Don réunir les deux lignes (mon fichier contenant énormément de lignes)
Merci d'avance
Message édité par waterbro le 23-04-2004 à 11:54:12
Publicité
Posté le 23-04-2004 à 11:42:50
phenxdesign
Posté le 23-04-2004 à 12:43:46
hum, kan tu les ecris, mets
print #1, "10100101000" & " " & deuxiemeLigne
si tu fais deja
print #1, "10100101000"
print #1, deuxiemeLigne
voila, jespere tavoir aidé
Message édité par phenxdesign le 23-04-2004 à 12:45:39
waterbro
Posté le 23-04-2004 à 14:40:55
Oui mais non car le tout est dans une variable donc j'affiche tout d'un coup. Voilà en gros mon code :
For v = 0 To UBound(Li)
If (Left(LTrim(Li(v)), 3) = "101" ) Then
If (Left(LTrim(Li(v)), 5) = "10101" ) Then
Print #2, LTrim(Li(v))
ElseIf (Left(LTrim(Li(v)), 5) = "10102" ) Then
Print #2, LTrim(Li(v))
End If
End If
Next
La variable ou est contenu ce que j'écris par la suite est Li. Voilà
JihemAir
Je sais pas
Posté le 23-04-2004 à 15:08:45
Dim strTemp as string
For v = 0 To UBound(Li) If (Left(LTrim(Li(v)), 3) = "101" ) Then If (Left(LTrim(Li(v)), 5) = "10101" ) Then strTemp = LTrim(Li(v)) ElseIf (Left(LTrim(Li(v)), 5) = "10102" ) Then Print #2, strTemp & " " & LTrim(Li(v)) End If End If Next
Et ça, ça marcherait ?
---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?