StringReplace. ... . .. . . . ..

[Cha0sBG]

Hey i looked at the help file for it but didn't quite understand it

i need to replace a text from 1 input box with anothere text in second input box.

if the text in the first input box is GO(200,105) to replace with "200","105","1" keep the numbers but change

[Andreik]

Look here an example:

$GUI = GUICreate("Prog",100,100)
$INP1 = GUICtrlCreateInput("GO(" & Random(1,100,1) & "," & Random(1,100,1) & ")",5,5,90,20)
$INP2 = GUICtrlCreateInput("",5,50,90,20)
$REPLACE = GUICtrlCreateButton("Replace",5,75,90,20)
GUISetState()

While 1
    $MSG = GUIGetMsg()
    If $MSG = $REPLACE Then
        $DATA = StringSplit(GUICtrlRead($INP1),"(")
        $DATA = StringSplit(StringMid($DATA[2],1,StringLen($DATA[2])-1),",")
        $DATA = '"' & $DATA[1] & '","' & $DATA[2] & '","1"'
        GUICtrlSetData($INP2,$DATA)
    ElseIf $MSG = -3 Then
        Exit
    EndIf
WEnd

[Cha0sBG]

but if the first input box where is GO...... is multilined ? and have more lines with more GO..... ?

[Andreik]

but if the first input box where is GO...... is multilined ? and have more lines with more GO..... ?

You don't said that.

Try this:

#Include <String.au3>

$GUI = GUICreate("Prog",100,100)
$INP1 = GUICtrlCreateInput("GO(" & Random(1,100,1) & "," & Random(1,100,1) & ")",5,5,90,20)
$INP2 = GUICtrlCreateInput("",5,50,90,20)
$REPLACE = GUICtrlCreateButton("Replace",5,75,90,20)
GUISetState()

While 1
    $MSG = GUIGetMsg()
    If $MSG = $REPLACE Then
        $DATA = StringSplit(GUICtrlRead($INP1),Chr(13))
        For $INDEX = 1 To $DATA[0]
        $DATA = _StringBetween($DATA[$INDEX],"(",")")
        $DATA = StringSplit($DATA[0],",")
        $DATA = '"' & $DATA[1] & '","' & $DATA[2] & '","1"'
        GUICtrlSetData($INP2,$DATA)
    Next
    ElseIf $MSG = -3 Then
        Exit
    EndIf
WEnd

Create you the multiline input box and test script.

Edited August 18, 2008 by Andreik

[Cha0sBG]

Here is the error i get

[Andreik]

Look at my edit. Try now.

[Cha0sBG]

same

expandcollapse popup

#Include <GuiConstantsEx.Au3>
#Include <EditConstants.au3>
#Include <String.au3>

$GUI = GUICreate("AgBot Script Converter", 500, 300)
$Dir1 = GUICtrlCreateInput("", 10, 50, 150, 20)
$INP1 = GUICtrlCreateInput("", 10, 80, 200, 200, BitOR($ES_MULTILINE,$ES_AUTOHSCROLL,$ES_AUTOVSCROLL))
$Browse1 = GUICtrlCreateButton("Open", 165, 50, 45, 20)
$Browse2 = GUICtrlCreateButton("Save To", 290, 50, 100, 20)
$INP2 = GUICtrlCreateInput("", 290, 80, 200, 200, BitOR($ES_MULTILINE,$ES_AUTOHSCROLL,$ES_AUTOVSCROLL))
$REPLACE = GUICtrlCreateButton("Replace",100, 5)
GUISetState()

While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then
        Exit
    EndIf
    If $msg = $Browse1 Then
        $H = FileOpenDialog("Select Tbot Script", @DesktopCommonDir, "TBot Scripts (*.TxT)", 1 + 4)
        GUICtrlSetData($Dir1, $H)
        $File = FileRead($H)
        If $File = "" Then
            MsgBox(0, "Empty File", "The File Is Empty")
        EndIf
        GUICtrlSetData($INP1, $File)
        FileClose($File)
    EndIf
    If $msg = $Browse2 Then
        $B = FileSaveDialog("Select Where To Save", @DesktopCommonDir, "AgBot Script Files (*.lst)", "Default Agbot Script")
    EndIf
    If $MSG = $REPLACE Then
        $DATA = StringSplit(GUICtrlRead($INP1),Chr(13))
        For $INDEX = 1 To $DATA[0]
        $DATA = _StringBetween($DATA[$INDEX],"(",")")
        $DATA = StringSplit($DATA[0],",")
        $DATA = '"' & $DATA[1] & '","' & $DATA[2] & '","1"'
        GUICtrlSetData($INP2,$DATA)
    Next
    EndIf
WEnd

Here is my script

and here is a txt file with those stuff

go(95,44)
go(97,59)
go(110,62)
go(84,66)
go(51,74)
go(72,83)
go(84,106)
go(99,91)
go(121,72)
go(134,44)
go(140,24)
go(146,5)
go(131,10)
go(107,28)
go(96,13)
go(91,4)
go(104,23)

just save this as txt file and open it from the program

Edited August 18, 2008 by Cha0sBG

[Andreik]

expandcollapse popup

#Include <GuiConstantsEx.Au3>
#Include <EditConstants.au3>
#include <File.au3>
#Include <String.au3>

$GUI = GUICreate("AgBot Script Converter", 500, 300)
$Dir1 = GUICtrlCreateInput("", 10, 50, 150, 20)
$INP1 = GUICtrlCreateInput("", 10, 80, 200, 200, BitOR($ES_MULTILINE,0x00100000,0x00200000))
$Browse1 = GUICtrlCreateButton("Open", 165, 50, 45, 20)
$Browse2 = GUICtrlCreateButton("Save To", 290, 50, 100, 20)
$INP2 = GUICtrlCreateInput("", 290, 80, 200, 200, BitOR($ES_MULTILINE,0x00100000,0x00200000))
$REPLACE = GUICtrlCreateButton("Replace",100, 5)
GUISetState()

While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then
        Exit
    EndIf
    If $msg = $Browse1 Then
        $H = FileOpenDialog("Select Tbot Script", @DesktopCommonDir, "TBot Scripts (*.TxT)", 1 + 4)
        GUICtrlSetData($Dir1, $H)
        $File = FileRead($H)
        If $File = "" Then
            MsgBox(0, "Empty File", "The File Is Empty")
        EndIf
        GUICtrlSetData($INP1, $File)
        FileClose($File)
    EndIf
    If $msg = $Browse2 Then
        $B = FileSaveDialog("Select Where To Save", @DesktopCommonDir, "AgBot Script Files (*.lst)", "Default Agbot Script")
        $FILE_SAVE = FileOpen($B,2)
        FileWrite($FILE_SAVE,GUICtrlRead($INP2))
        FileClose($FILE_SAVE)
    EndIf
    If $MSG = $REPLACE Then
        $FILE_OPEN = FileOpen($H,0)
        $TEMP = ""
        For $INDEX = 1 To _FileCountLines($H)
        $DATA = _StringBetween(FileReadLine($FILE_OPEN,$INDEX),"(",")")
        $DATA = StringSplit($DATA[0],",")
        $DATA = '"' & $DATA[1] & '","' & $DATA[2] & '","1"'
        If $TEMP = "" Then
        GUICtrlSetData($INP2,$DATA)
        Else
        GUICtrlSetData($INP2,$TEMP & @CRLF & $DATA)
        EndIf
        $TEMP = GUICtrlRead($INP2)
        Next
        FileClose($FILE_OPEN)
    EndIf
WEnd

Edited August 18, 2008 by Andreik

[Cha0sBG]

your the best !!!!!!

Andreik you RULEEEEEEEEEEEEEE

[Andreik]

Look edit because now work save to file.

Edited August 18, 2008 by Andreik

[SmOke_N]

$s_text = "go(95,44)" & @CRLF & "go(97,59)" & @CRLF & "go(110,62)" & @CRLF & _
    "go(84,66)" & @CRLF & "go(51,74)" & @CRLF & "go(72,83)" & @CRLF & _
    "go(84,106)" & @CRLF & "go(99,91)" & @CRLF & "go(121,72)" & @CRLF & _
    "go(134,44)" & @CRLF & "go(140,24)" & @CRLF & "go(146,5)" & @CRLF & _
    "go(131,10)" & @CRLF & "go(107,28)" & @CRLF & "go(96,13)" & @CRLF & _
    "go(91,4)" & @CRLF & "go(104,23)"
MsgBox(0, "Before", $s_text)
;Only line you need:
$s_text = StringRegExpReplace($s_text, "(?i)(go\s*\(\s*)(\d+)(\s*,\s*)(\d+)(\s*\))", '"\2","\4","1"')
MsgBox(0, "After", $s_text)