[ VB6 ] Textdatei splitten

ich möchte eine textdatei mit zb. 1000 zeilen in 5 textdateien unterteilen, in jeder sollen dann 200 zeilen der großen Datei sein.


Also :

ich habe eine main.txt mit 100 zeilen, klicke auf do it und dann erstellts eine 1.txt, 2.txt usw. und in der 1. sind die ersten 20 zeilen, in der 2. die zweiten 20 usw.


danke schonmal, Readline is zu langsam, wills nich langsam machen, sollte schnell gehen , deshalb brauch ich ne bessere methode :p

Hab dir mal eine kleine Funktion dazu geschrieben. Das Array bzw. die Zeilenanzahl musst du je nach Größe der Datei anpassen.

Code:

---

Dim Path As String
Dim x As Integer
Dim datei(6) As String
Dim ZeilenProDatei As Integer

x = 0
Path = App.Path & "\main.txt"
Open Path For Input As #1
Do Until EOF(1)
x = x + 1
Line Input #1, dat
datei(Int(x / 20)) = datei(Int(x / 20)) & vbNewLine & dat
Loop
Close #1
For i = 0 To UBound(datei())

If datei(i) <> "" Then
Open App.Path & "\Part" & i & ".txt" For Output As #1
Print #1, datei(i)
Close #1
End If
Next i

---

thx die funktion ist gut, ein paar kleine schönheitsfehler waren noch drinnen, hab ich gefixxt, woltle eig. nich den ganzen source so aber thx ;)