[VB6] Copiare parti di un file sequenziale

[almasy]

Salve a tutti
ho un problemone per me...probolemino per altri che mi sta tormentando.
Ho un file sequnziale stile questo:
pippo
xxxx
yyy
pluto
123
aaa
pippo
xxxx
yyy
pluto
123
aaa
.....
ove a cadenza fissa si trovano due indicatori come pippo e pluto.
Devo aprire il file e leggerlo fino alla fine - e fin qua ci siamo - ora tutto quello che è scritto tra pippo e pluto deve essere scritto in altro file sequnziale A.txt e tutto quello che è scritto tra pluto e pippo deve essere scritto in altro file B.txt e qui mi incarto totalmente.
Quancuno pùò darmi una dritta. Grazie Almasy

[LMondi]

Fossi in te, per farla semplice (ma dipende da quanti dati sono in gioco) aprirei il file "padre" immettendo i dati dei due segmenti in apposite e diverse variabili (magari pubbliche), per poi salvarle in modo distinto (ciascuna nel proprio file sequenziale).

[nogovoia]

specifica il linguaggio nel titolo prima che ti chiudano il topic

cmq, c# o vb?

[LeleFT]

Originariamente inviato da nogovoia
specifica il linguaggio nel titolo prima che ti chiudano il topic

cmq, c# o vb?

Esatto. Che linguaggio usi?


Ciao.

[almasy]

Scusate VB
Grazie Almasy

[LeleFT]

Originariamente inviato da almasy
Scusate VB
Grazie Almasy

Sarebbe bene anche indicarne la versione... ne esistono tante.


Ciao.

[almasy]

La versione è vb 6.
Grazie Almasy

[keiji68]

Prova questo:

Private Sub Command1_Click()
Dim TextLine As String
Dim scrivi_a As Boolean

Open App.Path & "\File1.txt" For Input As #1   ' Apre il file in lettura
Open App.Path & "\File2.txt" For Output As #2   ' Apre il file in scrittura
Open App.Path & "\File3.txt" For Output As #3   ' Apre il file.

Do While Not EOF(1)   ' Ripete fino alla fine del file.
   
   Line Input #1, TextLine   ' Assegna la riga a una variabile.
   'Debug.Print TextLine   ' Scrive nella finestra Immediata.
   If TextLine = "pippo" Then scrivi_a = True
   If TextLine = "pluto" Then scrivi_a = False
   
   If scrivi_a = True Then
      Print #2, TextLine
   Else
      Print #3, TextLine
   End If
   
Loop
Close #1   ' Chiude il file.
Close #2
Close #3


End Sub

ciao

[almasy]

keiji68... grazie infinite funziona perfettamente.
Grazie Almasy