Discussion :

[Superpat9999]

Bonjour, j'ai écrit un code en VSB afin d'ouvrir un fichier bancaire et modifier un chiffre, ce code fonctionne correctement, mais je veux l'améliorer : Le chiffre de la carte sera recherché à partir de la fin du fichier et remplacé qu'une seule fois par le solde. Pourriez-vous m'aider en modifiant les dernières lignes.
Actuellement tout est remplacé ! (Si j'ai par hasard 2 fois le même chiffre c'est cuit
De plus une fois celui-ci modifié, je voudrais lancer le fichier.
Merci.

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
'Ofx.vbs
 
Set objDialog = CreateObject("UserAccounts.CommonDialog")
 
'Filtre des fichiers
objDialog.Filter = "Money|*.ofx|Tous les fichiers|*.*"
objDialog.Flags = &H0200
objDialog.FilterIndex = 1
objDialog.InitialDir = "D:\downloads"
intResult = objDialog.ShowOpen
 
If intResult = 0 Then
    Wscript.Quit
Else
 
End If
 
'La variable est : repertoire
repertoire =  objDialog.FileName
frappe= "F"
while  frappe = "F"
   solde = inputbox("Donnez le solde du compte", "Solde du compte")
   If Instr(1,solde,"+",1)= 1 then frappe="T"
   If Instr(1,solde,"-",1)= 1 then frappe="T"
wend
 
frappe= "F"
while  frappe = "F"
   carte = inputbox("Donnez le solde de la carte", "Solde de la carte")
   If Instr(1,carte,"+",1)= 1 then frappe="T"
   If Instr(1,carte,"-",1)= 1 then frappe="T"
wend
 
msgbox "Soldes des comptes : [" & solde & "] +  [" & carte & "]"
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Dim st
Set fso = CreateObject("Scripting.FileSystemObject")
 
'******************************************************
'************ Changement à partir d'ICI **********************
'******************************************************
 
'Ouverture et lecture du fichier à modifier
'Set f = fso.OpenTextFile(repertoire, ForReading)
'st = f.readAll
'f.Close
 
'Ecriture du fichier modifié... aprés avoir remplacer "Carte" par "Solde".
'Set f = fso.OpenTextFile(repertoire, ForWriting)
'f.Write replace(st,carte,solde,1,-1,0)
'f.close

[ProgElecT]

Replace, fonction
Syntaxe

Replace(expression, find, replacewith[, start[, count[, compare]]])
count Facultatif:
Nombre de remplacements de sous-chaîne à effectuer. Si cette valeur est omise, la valeur par défaut -1, qui signifie tous les remplacements possibles, est employée.

Code :

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

f.Write replace(st,carte,solde,1,1,0)

le 5 éme paramétre.
Si tu n'as pas MSDN tu peux le charger ICI (en bas de page du forum ou d'une discussion, OUTILS VB ==> MSDN VB6 Fr)

Motif de l'edit:

........
De plus une fois celui-ci modifié, je voudrais lancer le fichier.
Merci.

Avec MSDN onglet Rechercher, mots a rechercher WScript.shell, WshShell Object, bas de page droite RUN ==> WshShell.Run en bas de page Exemple

[Superpat9999]

Merci pour la réponse, je m'approche...
C'est bien, mais je souhaite la recherche en partant de la fin vers le haut

[Fredledingue]

essayes avec InStrRev()

[Superpat9999]

J'ai trouvé :

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
Dim fso, Fichier, FR, textCont, Carte, Solde, Compteur, Ligne
Const ForReading = 1, ForWriting = 2
 
Solde = "+9999.99"
Carte = "-25.30"
Fichier = "C:\Documents and Settings\Superpat\Bureau\CA20090903_1029.ofx"
Compteur = 0
Ligne=0
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set FR = fso.opentextfile(fichier, 1, True)
 
Do While Not Fr.AtEndOfStream
	chaine = Fr.readline()
	If InStr(1, chaine, carte) > 0 Then
		ligne = Fr.Line
	End If
Loop
FR.close
Set FR = Nothing
Set fso = Nothing
 
'Exemple d'après Sympatix.
'Cet exemple ouvre le fichier *.ocx, lit 'chaque ligne, si elle ressemble à "Ligne à modifier",
'copie la chaine "Ligne modifiée" dans un nouveau fichier nommé titi.txt, sinon, recopie simplement
'la ligne lue. A la fin, le fichier titi.txt est renommé en *.ocx. Et la ligne "Ligne à modifier" est
'bien remplacée par "Ligne modifiée".
 
 
'-------Début du script de copie de fichier- Remplacement--------
Const Pour_Lire = 1
Const Pour_Ecrire = 2
AModif = testCont
Modif = solde
Fichier1 = Fichier
Fichier2 = "C:\Documents and Settings\Superpat\Bureau\titi.txt"
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FR = FSO.OpenTextFile (Fichier1, Pour_Lire)
Set F2 = FSO.CreateTextFile (Fichier2, True, False)
 
Do Until FR.AtEndOfStream
	Lit = FR.ReadLine
'	WScript.Echo "10 : " & lit
'	WScript.Echo "11 : " & ligne		'93
 
	If Ligne=FR.Line Then
		F2.WriteLine "<BALAMT>"& Modif
	Else
		F2.WriteLine Lit
	End If
Loop
Set FR = Nothing
Set F2 = Nothing
fso.DeleteFile Fichier1
FSO.MoveFile Fichier2, Fichier1
'--------Fin du script--------

Encore merci pour vos réponses

[Superpat9999]

Je termine ma programmation (suite du code).
J'ai un fichier d'extension ofx, lorsque je clique dessus il copie automatiquement les comptes dans Money. L'ayant modifié et refermé je le lance.

Code :

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

1
2
3
4
5
6
 
 
Set WSHShell = WScript.CreateObject("WScript.Shell")
set shell = wscript.CreateObject("Shell.Application")
 
shell.Open fichier

Merci encore à tous, grâce aux codes que j'ai trouvés ici ou là, je suis arrivé à faire ce qui m'intéressait.