Lire et manipuler un fichier txt
Bonjour,
J'ai besoin d'aide et donc besoin de vous :)
J'essaie de créer une macro vbscript pour qu'elle lise un fichier txt et qu'elle écrit les lignes sur mon environnement de production (3270) afin de m’éviter de la saisie.
J'ai un bout de code ci dessous ou je souhaite que la macro lise une fois les 31 premiers caractères de fichier texte ci dessous puis les 10 lignes à partir du 32 caractères.
Quand je lance ma macro elle tourne en boucle en répétant les deux premières lignes.
Avez vous une idée d’où cela peut venir ?
Merci de votre aide
exemple du résultat attendu
0791106201511062015110620151500 ligne 1
47419107 1 ligne 1
47419108 1 ligne 2
47419109 1 ligne 3
etc.... jusqu’à la 10eme
Puis à la 11eme ligne il reprend les 31 premiers caractères
0791106201511062015110620151500 ligne 11
47419108 1 ligne 11
47419110 1 ligne 12
etc.... sur 10 lignes
La boucle doit durer jusqu’à la dernière ligne du fichier
******************************* FICHIER TEXTE **********************************************
079110620151106201511062015150047419107 1
079110620151106201511062015150047419108 1
079110620151106201511062015150047419109 1
079110620151106201511062015150047419101 1
079110620151106201511062015150047419102 1
079110620151106201511062015150047419103 1
079110620151106201511062015150047419104 1
079110620151106201511062015150047419105 1
079110620151106201511062015150047419106 1
079110620151106201511062015150047419107 1
079110620151106201511062015150047419108 1
079110620151106201511062015150047419110 1
Code:
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
| ********************************MACRO****************************************************
[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)
Dim fs, a, retstring
Dim tableau(3)
Dim i
Dim DAT, ITM8
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("C:\Interbase.txt",1, false)
Do While a.AtEndOfStream <> True
retstring = a.ReadLine
DAT = MID(retstring,1,31)
ITM8 = MID(retstring,32,18)
maj_DAT (retstring)
Loop
a.Close
sub maj_DAT (retstring)
Dim ITM8
DAT = MID(retstring,1,31)
ITM8 = MID(retstring,32,18)
autECLSession.autECLPS.SendKeys DAT
autECLSession.autECLOIA.WaitForInputReady
for i = 1 to 10
autECLSession.autECLPS.SendKeys ITM8
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[newline]"
Next
end sub |
