Originariamente inviato da flash.tato
Mi sa che non hai capito

A me serve che se il file è così
codice:
aaaaaaaJPGbbbbbbbbbbJPGcccccc
Crei tre file così
codice:
- 1° file
aaaaaaa
- 2° file
JPGbbbbbbbbbb
- 3° file
JPGcccccc
Dove se prima del 1" JPG c-e- del testo crei un file con quel testo prima del 1" JPG e che i file successivi devono iniziare obbligatoriamente con "JPG"
Allora devi creare files senza testo all'interno? ok...
codice:
'Con lo stream reader legge tutto il contenuto del file
Dim R As New IO.StreamReader(<file da dividere> )
'E lo deposita in S
Dim S As String = R.ReadToEnd
'Quindi chiude il file, che ormai non serve più
R.Close()

'Crea un array di char che rappresenta il separatore "JPG"
Dim ParamSeparator() As Char = {"J", "P", "G"}
'Separa il testo del file in base al separatore e deposita
'gli elementi divisi in un array di stringhe
Dim Files() As String = S.Split(ParamSeparator)

'Dichiara un file per la scrittura
Dim W As IO.StreamWriter

'Esegue un ciclo che si ripete per la lunghezza di Files 
'ossia delle parti divise
For Each S As String In Files
  'A ogni step crea un nuovo file, utilizzando il contatore come nome S
  W = New Io.StreamWriteer("JPG" + S + ".jpg")
  'Chiude il fle
  W.Close()
Next