Split file txt

martedì 10 aprile 2007 - 16.58

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

w00w Profilo | Newbie

5 messaggi | Data Invio: mar 10 apr 2007 - 16:58

Ciao a tutti.
ho un problema e non so come fare per risolverlo.

ho un file tipo questo

15 codice fiscale partita iva nome cognome
15 codice fiscale partita iva nome cognome
15 codice fiscale partita iva nome cognome
15 codice fiscale partita iva nome cognome
16 codice fiscale partita iva nome cognome
16 codice fiscale partita iva nome cognome
16 codice fiscale partita iva nome cognome

etc e li dovrei dividere in vari file in base al numero che di ente che sarebe questo 15 o 16 puo anche avere un numero di 4 cifre come per essempio 4030 o 2021

con linux ho gia fatto, ma con visual basic non so come fare.
grazie
ciao

batfracasso Profilo | Newbie

11 messaggi | Data Invio: mer 11 apr 2007 - 09:04

Se non ho capito male il numero non ha una dimensione fissa...
ma tra il numero e il codice fiscale c'è un separatore di spazio tipo punto e virgola oppure uno spazio?

Ciao Cesare

Giamp72 Profilo | Junior Member

115 messaggi | Data Invio: mer 11 apr 2007 - 09:35

Ciao Lorena,
ti ho scritto questa Sub che dovrebbe risolverti il problema..

Public Sub SeparaFiles(fileIn As String)
Dim qh As Integer
Dim riga As String
Dim OutFiles(10) As String
Dim i As Integer
Dim v$()

qh = FreeFile
Open fileIn For Input As #qh
While Not EOF(qh)
Line Input #qh, riga
v$() = Split(riga, " ")
Select Case v$(0)
Case "15"
OutFiles(1) = OutFiles(1) & riga & vbCrLf
Case "16"
OutFiles(2) = OutFiles(2) & riga & vbCrLf
Case "4030"
OutFiles(3) = OutFiles(3) & riga & vbCrLf

'...
End Select
Wend
Close #qh

For i = 1 To 10
If OutFiles(i) <> "" Then
qh = FreeFile
Open "out" & i For Output As #qh
Print #qh, OutFiles(i)
Close #qh
End If
Next

End Sub

ho impostato un massimo di 10 files di output che si chiameranno Out1, Out2 ecc..
ovviamente puoi chiamare i files come vuoi..
Fammi sapere se funziona.
Ciao

Giamp72

w00w Profilo | Newbie

5 messaggi | Data Invio: mer 11 apr 2007 - 09:36

Ciao
il numero d'avanti occupa 4 caractere, scioe
spazio spazio 15 spazio codice fiscale
spazio spazio 15 spazio codice fiscale
spazio spazio 16 spazio codice fiscale
spazio spazio 16 spazio codice fiscale
nessun spazio 4030 spazio codice fiscale
nessun spazio 4030 spazio codice fiscale
nessun spazio 2021 spazio codice fiscale
nessun spazio 2021 spazio codice fiscale

grazie

w00w Profilo | Newbie

5 messaggi | Data Invio: mer 11 apr 2007 - 09:38

Ciao Gimp72
lo provo e ti facio sapere subito.
grazie

w00w Profilo | Newbie

5 messaggi | Data Invio: mer 11 apr 2007 - 12:42

Ok
Giamp72

sei un grande!!

grazie

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !