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