Re-Number in txt file

[tezhihi]

i have some the same data in txt file ex below:

data="1"

data="1"

data="1"

data="1"

and i want to replace it as

data="1"

data="2"

data="3"

data="4"

Please provide me how to do that i tried with stringregex and find all data to array but when i use _replacestringinfile with loop for $i  = 1 to 4 it doesn't work

 

[KickStarter15]

Can you post your script so that we can provide more suggestions and help.

[tezhihi]

this is code of this topic

#include <Array.au3>
#include <File.au3>
$read = FileRead(@ScriptDir & "\test.txt")
$find = StringRegExp($read, '(datatofindall="[0-9]+")', 3)
For $i = 0 to UBound($find) - 1
   For $j = 1 to 9
      _ReplaceStringInFile(@ScriptDir & "\test.txt", $find[$i], 'datatofindall="' & $j & '"', 1, 1)
   Next
Next

 

the contain of is

datatofindall="1"

datatofindall="1"

datatofindall="1"

datatofindall="1"

datatofindall="1"

datatofindall="1"

datatofindall="1"

datatofindall="1"

datatofindall="1"

and i want to replace it as

datatofindall="1"

datatofindall="2"

datatofindall="3"

datatofindall="4"

datatofindall="5"

datatofindall="6"

datatofindall="7"

datatofindall="8"

datatofindall="9"

 

[tezhihi]

5 minutes ago, KickStarter15 said:

Can you post your script so that we can provide more suggestions and help.

Please check and help me if you can

[jchd]

Something like that?

$s = _StringRepeat('datatofindall="1"' & @CRLF, 12)
ConsoleWrite("Before" & @LF & $s & @LF)
$s = Execute('"' & StringRegExpReplace($s, '"\d+"', '""" & _Incr() & """') & '"')
ConsoleWrite("After" & @LF & $s)

Func _Incr()
    Static $n = 0
    $n +=1
    Return $n
EndFunc

 

[tezhihi]

2 minutes ago, jchd said:

Something like that?

$s = _StringRepeat('datatofindall="1"' & @CRLF, 12)
ConsoleWrite("Before" & @LF & $s & @LF)
$s = Execute('"' & StringRegExpReplace($s, '"\d+"', '""" & _Incr() & """') & '"')
ConsoleWrite("After" & @LF & $s)

Func _Incr()
    Static $n = 0
    $n +=1
    Return $n
EndFunc

 

Yes and i want to replace it in txt file

[Subz]

Another way:

#include <Array.au3>

Local $x = 1, $sFindData = 'datatofindall="'
Local $sFileName = @ScriptDir & "\Filename.txt"
Local $aFileName = FileReadToArray($sFileName)
Local $hFileOpen = FileOpen(@ScriptDir & "FileData.txt", 2)
_ArrayDisplay($aFileName, "Before")
For $i = 0 To UBound($aFileName) - 1
    If StringInStr($aFileName[$i], $sFindData) Then
        $aFileName[$i] = $sFindData & $x & '"'
        $x += 1
    EndIf
    FileWrite($hFileOpen, $aFileName[$i] & @CRLF)
Next
FileClose($hFileOpen)
_ArrayDisplay($aFileName, "After")

 

[tezhihi]

2 minutes ago, Subz said:

Another way:

#include <Array.au3>

Local $x = 1, $sFindData = 'datatofindall="'
Local $sFileName = @ScriptDir & "\Filename.txt"
Local $aFileName = FileReadToArray($sFileName)
Local $hFileOpen = FileOpen(@ScriptDir & "FileData.txt", 2)
_ArrayDisplay($aFileName, "Before")
For $i = 0 To UBound($aFileName) - 1
    If StringInStr($aFileName[$i], $sFindData) Then
        $aFileName[$i] = $sFindData & $x & '"'
        $x += 1
    EndIf
    FileWrite($hFileOpen, $aFileName[$i] & @CRLF)
Next
FileClose($hFileOpen)
_ArrayDisplay($aFileName, "After")

 

oh i understand your code. thanks you so much

[tezhihi]

36 minutes ago, Subz said:

Another way:

#include <Array.au3>

Local $x = 1, $sFindData = 'datatofindall="'
Local $sFileName = @ScriptDir & "\Filename.txt"
Local $aFileName = FileReadToArray($sFileName)
Local $hFileOpen = FileOpen(@ScriptDir & "FileData.txt", 2)
_ArrayDisplay($aFileName, "Before")
For $i = 0 To UBound($aFileName) - 1
    If StringInStr($aFileName[$i], $sFindData) Then
        $aFileName[$i] = $sFindData & $x & '"'
        $x += 1
    EndIf
    FileWrite($hFileOpen, $aFileName[$i] & @CRLF)
Next
FileClose($hFileOpen)
_ArrayDisplay($aFileName, "After")

 

but can not raplace it in txt file example:

this is text datatofindall="1" this is text

this is text datatofindall="1" this is text

this is text datatofindall="1" this is text

this is text datatofindall="1" this is text

this is text datatofindall="1" this is text

this is text datatofindall="1" this is text

if use your code the results will be

datatofindall="1"

datatofindall="2"

datatofindall="3"

datatofindall="4"

datatofindall="5"

datatofindall="6"

[Subz]

What about:

#include <Array.au3>

Local $x = 1, $sFindData = 'datatofindall="1"'
Local $sFileName = @ScriptDir & "\Filename.txt"
Local $aFileName = FileReadToArray($sFileName)
Local $hFileOpen = FileOpen(@ScriptDir & "FileData.txt", 2)
_ArrayDisplay($aFileName, "Before")
For $i = 0 To UBound($aFileName) - 1
    If StringInStr($aFileName[$i], $sFindData) Then
        $aFileName[$i] = StringReplace($aFileName[$i], $sFindData, StringReplace($sFindData, "1", $x))
        $x += 1
    EndIf
    FileWrite($hFileOpen, $aFileName[$i] & @CRLF)
Next
FileClose($hFileOpen)
_ArrayDisplay($aFileName, "After")

 

[tezhihi]

45 minutes ago, Subz said:

What about:

#include <Array.au3>

Local $x = 1, $sFindData = 'datatofindall="1"'
Local $sFileName = @ScriptDir & "\Filename.txt"
Local $aFileName = FileReadToArray($sFileName)
Local $hFileOpen = FileOpen(@ScriptDir & "FileData.txt", 2)
_ArrayDisplay($aFileName, "Before")
For $i = 0 To UBound($aFileName) - 1
    If StringInStr($aFileName[$i], $sFindData) Then
        $aFileName[$i] = StringReplace($aFileName[$i], $sFindData, StringReplace($sFindData, "1", $x))
        $x += 1
    EndIf
    FileWrite($hFileOpen, $aFileName[$i] & @CRLF)
Next
FileClose($hFileOpen)
_ArrayDisplay($aFileName, "After")

 

Ding Ding. Exactly. Thanks you so much