Sujet Précédent Sujet Suivant

Traitement text

Résolu
jedix001 Messages postés 11 Date d'inscription dimanche 1 mai 2016 Statut Membre Dernière intervention 3 juin 2018 - 1 mai 2016 à 15:51
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 - 2 mai 2016 à 16:54
bonjour
j' ai besoin d'aide pour transformer un fichier texte plein ecrit de debut jusque a la fin , en un texte qui a 2 caracteres par ligne .merci

7 réponses

Réponse 1 / 7
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
1 mai 2016 à 15:58
Ouvrir fichier texte, lire contenu, couper chaine de caractères, écrire fichier.
0
jedix001 Messages postés 11 Date d'inscription dimanche 1 mai 2016 Statut Membre Dernière intervention 3 juin 2018
1 mai 2016 à 16:06
comment faire pour couper une chaine de caracteres sur une ligne qui a plus de 1000 characteres
0
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
Modifié par NHenry le 1/05/2016 à 16:07
As-tu essayé quelque chose ?
Un bout de code ?
0
jedix001 Messages postés 11 Date d'inscription dimanche 1 mai 2016 Statut Membre Dernière intervention 3 juin 2018
1 mai 2016 à 16:12
non je ne sais pas comment .
quand on lit une ligne comment le dire pour sélectionner 2 charactere et de revenir a la ligne
0
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
1 mai 2016 à 16:17
Quelle version de VB ?
0
jedix001 Messages postés 11 Date d'inscription dimanche 1 mai 2016 Statut Membre Dernière intervention 3 juin 2018
1 mai 2016 à 16:37
vb6
0
Réponse 2 / 7
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
1 mai 2016 à 20:21
Bonjour, et un salut à whismeril
VB6 est assez agile.
Regarde : 
toto = "1234567890"
 titi = Split(StrConv(toto, vbUnicode), Chr(0))
  For i = 1 To UBound(titi) - 1 Step 2
    titi(i) = titi(i) & vbCrLf
  Next
  MsgBox Join(titi, "")
0
Whismeril Messages postés 19025 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 19 avril 2024 656
1 mai 2016 à 21:21
Salut à toi aussi, mais cette fois je n'y suis pour rien ;-)
0
Réponse 3 / 7
jedix001 Messages postés 11 Date d'inscription dimanche 1 mai 2016 Statut Membre Dernière intervention 3 juin 2018
1 mai 2016 à 21:08
j ai essayer sa mais sa marche pas

Fichier = FreeFile

Open "C:\0.txt" For Input As #Fichier
While Not EOF(Fichier)
Line Input #Fichier, ligne

toto = ligne
titi = Split(StrConv(toto, vbUnicode), Chr(0))
For i = 1 To UBound(titi) - 1 Step 2
titi(i) = titi(i) & vbCrLf
Next
Text1.Text =Join(titi, "")

Wend

Close #Fichier
0
Réponse 4 / 7
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
Modifié par ucfoutu le 1/05/2016 à 23:50
1) "ça ne marche pas" ne veut rien dire sans précision ! Erreur ? Laquelle. Résultat non espéré ? Lequel ?
2) la totalité de ton fichier doit être lue dans la variable toto, ainsi : 
 Dim FF As Integer: FF = FreeFile
   Open "C:\0.txt" For Input As #FF
        toto = Input(LOF(FF), #FF)
   Close #FF

(puis traitement de toto
3) j'espère que ton fichier ne pèse pas plus de 2 MO, tout de même ! Sinon, tu vas être obligé de le découper pour le traiter.

Pour ton info : j'ai quand-même testé ===>> "marche"


________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
0
jedix001 Messages postés 11 Date d'inscription dimanche 1 mai 2016 Statut Membre Dernière intervention 3 juin 2018
Modifié par jedix001 le 2/05/2016 à 16:03
bonjour
j ai essayé ce code
Dim FF As Integer: FF = FreeFile
Open "C:\0.txt" For Input As #FF
toto = Input(LOF(FF), #FF)
Close #FF
titi = Split(StrConv(toto, vbUnicode), Chr(0))
For i = 1 To UBound(titi) - 1 Step 2
titi(i) = titi(i) & vbCrLf
Next
MsgBox Join(titi, "")

et sa marche bien , mais quand je rederige le resultat dans une textbox text1.text=Join(titi, "") sa marche pas ; il me renvois le meme text enligne et c est pas ce que je veux
0
jedix001 Messages postés 11 Date d'inscription dimanche 1 mai 2016 Statut Membre Dernière intervention 3 juin 2018 > jedix001 Messages postés 11 Date d'inscription dimanche 1 mai 2016 Statut Membre Dernière intervention 3 juin 2018
2 mai 2016 à 16:18
desolé mes amis j ai pas decocheé la propriété multiline a true
et s ma rche bien merci

Dim FF As Integer: FF = FreeFile
Open "C:\0.txt" For Input As #FF
toto = Input(LOF(FF), #FF)
Close #FF
titi = Split(StrConv(toto, vbUnicode), Chr(0))
For i = 1 To UBound(titi) - 1 Step 2
titi(i) = titi(i) & vbCrLf
Next
Text1.Text = Join(titi, "")
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
2 mai 2016 à 16:22
cela veut tout simplement dire que tu n'as pas réglé les propriétés de ta textbox en multiline !
C'est quand-même fort du café d'avoir à te le dire !
0
Réponse 6 / 7
jedix001 Messages postés 11 Date d'inscription dimanche 1 mai 2016 Statut Membre Dernière intervention 3 juin 2018
2 mai 2016 à 16:44
sa fait longtemps que j ai pas programmé , on oublies quelques détails importants. merci pour tout.
0
Réponse 7 / 7
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
2 mai 2016 à 16:54
Bon ...
Veux-tu bien maintenant libérer cette discussion ? (un clic sur le tag RESOLU au niveau de ton premier message). Merci d'y penser.
0

Discussions similaires

différence entre visual basic 6 et visual basic.net
andregoub -
Med365 -

10 réponses
Visual Basic 5 gratuit vb5 gratuit!!!
SamuelCadieux -
ilakan -

2 réponses
Revoir le choix d'un IDE ou RAD
Mustang88 -
vb95 -

13 réponses
Choix d'un IDE
Mustang88 -
Mustang88 -

4 réponses
VBNET pause...sleep...pause...sleep...
bimbo777 -
eldim -

4 réponses
Rejoignez-nous