D00mruNNer
Hi ich will eine text.text datei auslesen....in vb.
i hab schon gegoogelt habd as gefudnen
aba das raff in it ganz^^^^
i hab schon gegoogelt habd as gefudnen
| Zitat: |
| Private Sub Command1_Click() Dim Datei(1 To 3) As String Dim Ausgabedatei As String Dim Pfad As String 'diese Dateien werden eingelesen Datei(1) = "text1.txt" Datei(2) = "text2.txt" Datei(3) = "text3.txt" 'Ordner, in dem die Dateien liegen 'und die Ausgabedatei geschrieben werden soll Pfad = "c:\temp\" 'Name der Ausgabedatei Ausgabedatei = "gesamt.txt" 'Ausgabedatei öffnen Open Pfad & Ausgabedatei For Append As #1 'Schleife über die "Quelldateien" For x = 1 To UBound(Datei) f = FreeFile 'Quelldateien einlesen Open Pfad & Datei(x) For Input As #f Do While Not EOF(f) 'Zeilenweise einlesen Line Input #f, s 'in Ausgabedatei schreiben Print #1, s Loop Close #FreeFile Next x Close #1 End Sub |
aba das raff in it ganz^^^^