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
Partager