comment traiter un fichier.txt avec "replace" ?

**pasrico** · 28/11/2009, 23h54

bonjour
avant de formuler ma demande , je vous explique ce que je desire faire

- en partant d'un fichier texte (depart.txt) où j'ai des données en hexa
exemple :

70 4D 57 13 49 74 01 47 33 28 49 18 D1 10 22 01
66 76 47 78 70 00 0F 5F 20 1A 4D 4D 45 20 53 55
42 49 52 41 4E 4F 20 49 53 41 42 45 4C 4C 45 20
20 20 20 20 9F 1F 18 36 36 37 36 34 37 30 30 30
30 30 30 30 30 30 37 38 37 30 30 30 30 30 30
etc...

- après traitement en vb , avoir le fichier texte (final.txt)
exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
        ldi r16, $70
        rcall TX_master
        ldi r16, $4D
        rcall TX_master
        ldi r16, $57
        rcall TX_master
        ldi r16, $13
        rcall TX_master
        ldi r16, $49
        rcall TX_master
        ldi r16, $74
        rcall TX_master
        ldi r16, $01
        rcall TX_master
        etc...
        etc...

-------------------------
il faut remplacer dans le fichier départ , chaque espace par :

en vb j'ai ces routines

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Command3_Click()
        CRLF$ = Chr$(13) + Chr$(10)
 
 
      Invite$ = "entrez le texte à traiter"
      InviteFinale$ = InputBox$(Invite$)
      Text1.Text = InviteFinale$
 
End Sub--

---------------------------------

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
Dim TestString As String
 
TestString = InviteFinale$
 
Dim aString As String
Dim lolo As String
        CRLF$ = Chr$(13) + Chr$(10)
 lolo = CRLF$ & "        rcall TX_master" & CRLF$ & "        ldi r16, $"
 aString = Replace(TestString, " ", lolo)
 Text1.Text = aString
End Sub

--------------------

je débute en vb6 , a vrai dire il y a longtemp que je débute mais ca avance pas trop vite, suis pas trop fort

mon problème c'est que je fais une partie en manuel, avec des copier/coller , donc si vous pouviez m'aider
j'accepte toute idée

**iclic** · 29/11/2009, 12h00

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Dim Lireligne As String, partie As String
Dim Enreg1 As String, Enreg2 As String
Dim i2 As Integer, i3 As Integer
Dim lgligne As Integer, numbuf1 As Integer, numbuf2 As Integer
 
 'ouvrir le fichier texte
 numbuf1 = FreeFile
 'changer le chemin et nom du fichier suivant...
 Open "C:\Cor\Fic1.txt" For Input As #numbuf1
 numbuf2 = FreeFile
'changer le chemin et nom du fichier suivant...
 Open "C:\Cor\resultat.txt" For Output As #numbuf2
 
 Do While Not EOF(numbuf1)
      'lire la 1èreligne
      Input #numbuf1, Lireligne
      lgligne = Len(Lireligne)
      Lireligne = Lireligne & " "
      'initialiser les variables
      i3 = 1
      i2 = 0
      'traitement de la ligne
      Do While i2 < lgligne
          i2 = InStr(i3, Lireligne, " ")
          partie = Mid(Lireligne, i3, i2 - i3)
          i3 = i2 + 1
          Enreg1 = "        ldi r16, $" & partie
          Enreg2 = "        rcall TX_master"
          'ecrire dans le 2e fichier texte
          Print #numbuf2, Enreg1
          Print #numbuf2, Enreg2
      Loop
 Loop
 Close

J'ai testé

A+

**iclic** · 30/11/2009, 10h16

Bonjour,

Ou 2e manière en appliquant la fonction 'split

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Dim Lireligne As String, partie As String
Dim Enreg1 As String, Enreg2 As String
Dim i3 As Integer
Dim numbuf1 As Integer, numbuf2 As Integer
Dim Part() As String
 
 'ouvrir le fichier texte
 numbuf1 = FreeFile
 Open "C:\Cor\depart.txt" For Input As #numbuf1
 numbuf2 = FreeFile
 Open "C:\Cor\resultat.txt" For Output As #numbuf2
 Do While Not EOF(numbuf1)
      'lire les enregistrements
      Input #numbuf1, Lireligne
      Part() = Split(Lireligne)
      For i3 = 1 To UBound(Part)
        partie = Part(i3)
        Enreg1 = "        ldi r16, $" & partie
          Enreg2 = "        rcall TX_master"
          'ecrire dans le 2e fichier texte
          Print #numbuf2, Enreg1
          Print #numbuf2, Enreg2
      Next
 Loop
 Close

**pasrico** · 30/11/2009, 16h52

bonjour
merci iclic, c'est exactement ce que je voulais realiser, tu me fais economiser
beaucoup de temp en manuel.
encore merci de ton aide, et c'est un peu tot, mais bonnes fetes
a+

**pasrico** · 28/10/2010, 16h18

bonjour iclic
la derniere fois tu m'as vraiment dépanné , et donc je fais encore appelle à toi
mon prob ,cette fois c'est de traiter un fichier .hex que j'ai converti en .txt
mais j'ai en fin de ligne ,l'octet de contrôle de ligne à enlever , et en début de ligne, les 9 premiers caractères.
-----
au depart j'ai un fichier hex que j'ai mis en txt comme ceci

:10004000021C07B270059F08020002900000B20374
:100050001C006CC300B2031CC3B27081C0908190BD
:1000600091877312ABBC3554D6B950FCF3358B393C
:100070000369A47EF07764C1086B17B5E594AF50AF
:10008000FCF60920BEF27E8E8EC0E18A6662EA4DE1
:10009000BCB5B779DE4271728362FF8FA3B5E7EB1F

ce fichier contient en fin de ligne l'octet de contrôle, et donc dans un premier temps
je voudrais enlever tous contrôle en fin de ligne, c'est a dire enlever les 2 dernières lettres

:10004000021C07B270059F08020002900000B20374
:10004000021C07B270059F08020002900000B203 74 <- enlever

- ensuite enlever en debut de ligne, à partir des : les 9 chiffres qui suivent
(:10004000)
:10004000021C07B270059F08020002900000B203
:10004000 021C07B270059F08020002900000B203

- comme c'est en hex , intercaler un espace après 2 lettres de manière a avoir des octets,
ex:
021C07B270059F08020002900000B203
02 1C 07 B2 70 05 9F 08 02 00 02 90 00 00 B2 03

- et si possible remplacer tous les
9000 ou 90 00
par
(CRLF$ = Chr$(13) + Chr$(10) ), pour mettre le 90 00 en début de ligne suivante

90 00
-------- (le séparateur)

exemple:
02 1C 07 B2 70 05 9F 08 02 00 02 90 00 00 B2 03
donne:
02 1C 07 B2 70 05 9F 08 02 00 02
90 00
----------------
00 B2 03

cela m'enlèverait une épine du pied, car je fais tout à la main, et je commence à avoir
la vue fatiguée

**iclic** · 28/10/2010, 19h04

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim Valfic As String,Inter as String,Resultat as String
Dim i As Integer
 
Valfic = ":10004000021C07B270059F08020002900000B20374"
Valfic = Mid(Valfic, 10, Len(Valfic) - (10 - 1) - 2)
 
For i = 1 To Len(Valfic) Step 2
   Inter = Mid(Valfic, i, 2)
   Inter = Inter & " "
   Resultat = Resultat & Inter
Next
Resultat = Left(Resultat, Len(Resultat) - 1)
separe = InStr(Resultat, "90 00")
Inter = Mid(Resultat, separe, Len(Resultat) - (separe - 1))
Resultat = Left(Resultat, separe - 1)
Resultat = Resultat & vbCrLf & Inter

**pasrico** · 29/10/2010, 21h29

bonjour iclic
merci de ta reponse, je suis en train de l'incorporer à mon programme. j'ai pas
tout a fait fini, mais tu m'as encore bien aidé
a+

**pasrico** · 05/11/2010, 10h22

bonjour iclic
c'est encore moi

j'ai un fichier "départ.txt" que je veux traiter car il a des lignes
qui depasse 49 (16 octets maxi) , et donc "couper" ou spliter , mais je me mélange.

exemple:
------------------
c1 xx xx xx xx xx
yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy
yy yy yy yy yy yy
yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy
yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy yy
yy yy yy yy yy yy yy yy yy yy yy yy yy yy
90 00
----------------
etc.....

merci d'avance

**iclic** · 05/11/2010, 15h22

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ligne = left (ligne , 49) ...

le reste doit-il être garder ou supprimer?

Mais ai-je bien compris ta question?

ps: Normalement une seule question par post

**pasrico** · 05/11/2010, 16h00

re bonjour

si la ligne depasse un len>49 il faut la decouper en troncons de 49, c'est a dire
des lignes de 16 octets maxi, cela me permet de verifier rapidement si le compte est bon

merci

ps: excuse moi, mais comme cela fait toujours partie de mon programme, je
pensais que je pouvais l'ajouter, sans ouvrir un autre sujet

**iclic** · 05/11/2010, 16h23

Alors un test avec une boucle tant que longueur > 49

puis une autre variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
autrevariable=ligne
 
Do while len( autrevariable) > 49
 
     autrevariable =Mid(ligne,50, len (ligne - 49 )
 
     ligne = left(liggne,49)
 
    'ecrire ligne dans le fichier
 
    ligne = autrevariable '<******** IMPORTANT *******
 
Loop
 
    'ecrire autrevariable dans le fichier

A tester ...

A+

**pasrico** · 09/11/2010, 01h49

bonjour iclic

j'ai fait une procedure x (avec clientb.txt vers clienta.txt)
et une procedure y (avec clienta.txt vers clientb.txt)

et j'appelle ces 2 procedures tant que le len de la ligne est sup à 49

c'est tiré par les cheveux mais ca marche, et ca me depanne

j'ai aussi un petit prob, dans mon progamme , a chaque procedure je declare les variables, est-ce que je peux les declarer une seule fois en les mettant publiques? et a quel endroit? je me rapelle plus.

merci a toi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
  '   16 octets par ligne
'---  passage 1
     'ouvrir le fichier texte
 numbuf1 = FreeFile
 Open "C:\baba\travail\clientb.txt" For Input As #numbuf1
  numbuf2 = FreeFile
  Open "C:\baba\travail\clienta.txt" For Output As #numbuf2
 
 
Do While Not EOF(numbuf1)
      'lire la 1èreligne
      Input #numbuf1, Lireligne
      ligne = Lireligne
      mypos = Len(ligne)
      mypos1 = mypos - 48
 
 If Len(ligne) > 49 Then
    Valfich1 = Mid(ligne, 49, mypos1)
    Valfich2 = Left(ligne, 48)
 
          Print #numbuf2, Valfich2
          Print #numbuf2, Valfich1
   Else
        Print #numbuf2, ligne
   End If
   Loop
Close

**Overcrash** · 10/11/2010, 02h04

Bonsoir,

j'ai aussi un petit prob, dans mon progamme , a chaque procedure je declare les variables, est-ce que je peux les declarer une seule fois en les mettant publiques? et a quel endroit? je me rapelle plus.

Tu peux les mettre en haut en dehors de la procédure ce seront alors des variables global a tout le module/feuille ...

**arnieu** · 11/04/2011, 23h06

Salut pasrico,

j'ai essayé de t'envoyer un MP mais ça ne marche pas, juste pour info, quel logiciel as tu utilisé pour envoyer les commandes et recevoir le petit morceau de dump que tu as posté (celui d'Isabelle

).

Merci de me renseigner c'est cool.

comment traiter un fichier.txt avec "replace" ?

VB 6 et antérieur

Discussions similaires

Partager

Partager