modifier valeur dans un texte a un endroit preci

[Gavriel]

bonjour
j ai un fichier texte qu il y a dedans ceci
marc=2
pierre=5
jean=1
je cherche a faire que quant j' ecris un de c' est nom dans in inputbox il me fera +1 au nom ecrit
merci de votre aide

[locos974]

Salut,

Un petit example :

Code: [Tout sélectionner] [Déplier/Replier]

#include <File.au3>

$input = InputBox("tontext")
$file = FileOpen("lepathdetonfichier")

File $i = 1 To _FileCountLines($file)
     $line = FileReadLine($file, $i)
     $split = StringSplit($line, "=")
     If $split[1] == $input Then
               $newValue = Int($split[2] + 1)
               ; tu la remplace comme tu veux dans ton fichier
     EndIf
Next

GeSHi © Extension Codebox Plus

Je l'ai écrit sur le tas comme ça, à toi de le modifier à ta guise.
Ici je récupère la valeur de ton fichier par rapport au nom de l'input box, je l'incrémente et après il faut le remplacer !

Enjoy

[Gavriel]

merci de ta reponce
mais je n ai pas reussi il ne fait des erreurs a
File $i = 1 To _FileCountLines($file) j ai suprimer aussi le mot file et il fai une erreur sur 1 to
merci

[locos974]

https://www.autoitscript.fr/autoit3/doc ... tLines.htm
De rien

[Gavriel]

je n arrive toujours pas faire se que je veux

[orax]

Il y a effectivement une petite erreur dans le script. Ce n'est pas File mais For.

La ligne

Code: [Tout sélectionner] [Déplier/Replier]

File $i = 1 To _FileCountLines($file)

GeSHi © Extension Codebox Plus

doit être remplacée par

Code: [Tout sélectionner] [Déplier/Replier]

For $i = 1 To _FileCountLines($file)

GeSHi © Extension Codebox Plus

[Gavriel]

merci mais sa ne marche toujour pas

[walkson]

Bonjour,
Il y a une autre erreur

Code : Tout sélectionner

$file = FileOpen("lepathdetonfichier")

Par défaut le fichier est ouvert en lecture. Il faut mettre le flag à 1 => écriture (voir aide F1)
Une suggestion à votre problème

Code: [Tout sélectionner] [Déplier/Replier]

#include <File.au3>

Local $open = @DesktopDir & "\DocTextXls\Text.txt"
Local $nom = InputBox("titre","nom","paul")
Local $i = 1
While 1
   $lire = FileReadLine($open, $i);lecture de ligne
   If @error Then ExitLoop ;sortie de boucle en fin de texte
   If StringInStr($lire,"=") > 0 Then;recherche signe =
      $aa = StringSplit($lire,"=");split sur =
      If $nom = StringStripWS($aa[1],8) Then;compare avec input (supprime les espaces)
         $nb = " " & Int($aa[2] + 1);incrémente nombre entier + 1
         $stringR = StringReplace($lire,$aa[2],$nb);remplace la valeur dans la ligne
         ConsoleWrite($stringR & @CR)
         _FileWriteToLine($open,$i,$stringR,1);overwrite de la ligne>> paul = 7
      EndIf
   Else
      ConsoleWrite($lire & @CR);pas de signe = dans la ligne
   EndIf
   $i += 1
WEnd

GeSHi © Extension Codebox Plus

[Gavriel]

genial merci beaucoup