Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
735 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°706917
waterbro
Posté le 23-04-2004 à 11:42:50  profilanswer
 

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
mood
Publicité
Posté le 23-04-2004 à 11:42:50  profilanswer
 

n°706990
phenxdesig​n
Posté le 23-04-2004 à 12:43:46  profilanswer
 

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
n°707162
waterbro
Posté le 23-04-2004 à 14:40:55  profilanswer
 

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

n°707201
JihemAir
Je sais pas
Posté le 23-04-2004 à 15:08:45  profilanswer
 

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 ?
n°708285
waterbro
Posté le 26-04-2004 à 09:13:06  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
[VBA] 3 fichier Excel dans un seul !?comparaison de chaine mais de nombre :-/
[C++]Port Serie -> Envoi d'un fichier texte...Petit probleme :/
Extraction et conversion d'un fichier xml en fichier imageprogrammation de l'exécution d'un fichier batch avec la schtasks
Enregistrer et lire une structure dans un fichier[PHP] Changer localement le niveau d'erreur dans un fichier
[Java] parser fichier CSV... JDBC ?[JS] Petit pb ! mémorisation d'une variable => RESOLU
Plus de sujets relatifs à : Petit soucis avec manipulation fichier + chaine de caractères - VB


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR