string copy

[SKris]

i have text file with some coordinates like this:

123,434

453,975

827,832

...

i want to make a script to copy those coords in another file like this:

$A[1]="123"

$A[2]="453"

$A[3]="827"

.....

and

$B[1]="434"

$B[2]="975"

$B[3]="832"

...

Can u help me out? thankyou

[r3dbull]

I start off by admitting that I am not an expert, but I would go trough these steps:

1) StringSplit all the strings in the first text file with "," as string delimiter

2) Assign the [1] value to array named $A[$i]

3) Assign the [2] value to array named $B[$i]

Example:

$File = FileOpen("file1.txt", 0)
If $File = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

While 1
    $Line = FileReadLine($File)
    If @error = -1 Then ExitLoop
    $array=StringSplit($line, ",")

;->>That would result in having an array like this for the first two values
;array[0] => 2
;array[1] => 123
;array[2] => 434

    $A[$i]=$array[1]    
    $B[$i]=$array[2]    
    $i=$i+1
WEnd

This sould work, for what you asked.

Notice that I haven't tested this, so double check the code I wrote, I might have wrote down something wrong ~

Cheers,

r3dbull.

Edited April 1, 2011 by r3dbull

[Mat]

You are talking about a normal CSV file, if you search the forum for that then you'll see that this is a pretty common problem.

If you think it through then it is simple:

• Read the file (FileRead)
• Split it into lines (StringSplit with @CRLF and option 1)
• Size the arrays! Resizing is a slow process, and you know the length in advance so use it. (Redim)
• Using the next line, split it into its ',' parts (StringSplit with ',')
• Add the parts into the arrays (The array has already been sized in part 3 so its just a simple assignment.
• Go back to part 4 until you've done all the lines

Where needed I've added function names and other info. It should be easy to do with the helpfile.

The only thing which won't make sense unless you've programmed for a while is why you need to use option 1 in stringSplit with @CRLF. The reason is that @CRLF = @CR & @LF, so is not one character. You StringSplit(string, Chr1 & Chr2) splits on Chr1 OR Chr2, so you will get blank entries in the array.

Mat

Edit: The above example is missing WEnd at the end of the loop, and the While $i<100 can just be While 1 as the loop will exit when there are no more lines to read (The IF test after FileReadLine does that for you).

Edited April 1, 2011 by Mat

[guinness]

Your avatar looks familiar? You're not Hannes123 are you?

[r3dbull]

Thanks Mat for your reply, I adjusted the above code for Skris if he would like to test it.

Edited April 1, 2011 by r3dbull

[saywell]

If the paired data have a continuing relationship with one another, it might be more sensible to use a 2-d array so that

array[1][1] = 123

array[1][2] = 434

array[2][1] = 453

array[2][1] = 975 etc

just to keep them together and make it easier to use later in your script.

William

[Malkey]

Try this.

#include <Array.au3>

Local $sStr = "123,434" & @CRLF & _
              "453,975" & @CRLF & _
              "827,832"
;or
;Local $sStr = FileRead("FilePath\Name.txt")

Local $A = StringRegExp($sStr, "(\d+),", 3)
Local $B = StringRegExp($sStr, ",(\d+)", 3)

_ArrayDisplay($A, "Array $A")
_ArrayDisplay($B, "Array $B")

[SKris]

thankyou so much guys

i used Malkey method and it works perfect. ty