Petit soucis avec manipulation fichier + chaine de caractères - VB

Petit soucis avec manipulation fichier + chaine de caractères - VB - VB/VBA/VBS - Programmation

Marsh Posté le 23-04-2004 à 11:42:50    

Voilà j'ai un petit souci. Ca ne m'a pas l'air ultra compliqué mais pourtant je n'y arrive pas... :(  
 
En fait j'obtient ça dans un fichier:


10101011100070      PERFUSION, DIFFUSEUR
101020100000000000AO00000


 
Et j'aimerai obtenir ça:


10101011100070      PERFUSION, DIFFUSEUR 101020100000000000AO00000


 
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
Reply

Marsh Posté le 23-04-2004 à 11:42:50   

Reply

Marsh 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
Reply

Marsh 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à  :)

Reply

Marsh 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 ?
Reply

Marsh Posté le 26-04-2004 à 09:13:06    

OUI ça marche !!!
 
Merci beaucoup !!  :jap:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed