add a new column after every record

[gcue]

hello world =)

i am trying to add a new column after every record.  the method i am using is pretty dirty - writing to a tempfile and going through each line to add a new column after every last instance of a record.  i think it might be a better job for stringregexp?  

here is the string (basically a declaration of an array with unpredictable values)

$string = 'Local $flash[7][3]' & @CRLF & @CRLF

$string &= '$flash[0][0] = "AAAAAA1111-111"' & @CRLF
$string &= '$flash[0][1] = "AAAAAA1111*111"' & @CRLF
$string &= '$flash[0][2] = "AAAAAA1111^111"' & @CRLF

$string &= '$flash[1][0] = "BBBB!BB1111111"' & @CRLF
$string &= '$flash[1][1] = "BBB$BBB1111111"' & @CRLF
$string &= '$flash[1][2] = "BBBBB%B1111111"' & @CRLF

$string &= '$flash[2][0] = "CCCCCC222-2222"' & @CRLF
$string &= '$flash[2][1] = "CCC*CCC2222222"' & @CRLF
$string &= '$flash[2][2] = "CCCCCC22-22222"' & @CRLF

$string &= '$flash[3][0] = "DDDD-DDD333333"' & @CRLF
$string &= '$flash[3][1] = "DDD#DDDD333333"' & @CRLF
$string &= '$flash[3][2] = "DDDDD*DD333333"' & @CRLF

$string &= '$flash[4][0] = "EEEEEE$4444444"' & @CRLF
$string &= '$flash[4][1] = "EEEEEE#4444444"' & @CRLF
$string &= '$flash[4][2] = "EEEEEE!4444444"' & @CRLF

$string &= '$flash[5][0] = "FFFFFF-5555555"' & @CRLF
$string &= '$flash[5][1] = "FFFFFF;5555555"' & @CRLF
$string &= '$flash[5][2] = "FFFFFF*5555555"' & @CRLF

$string &= '$flash[6][0] = "GG%GGGGGG6666666"' & @CRLF
$string &= '$flash[6][1] = "GGG^GGGGG6666666"' & @CRLF
$string &= '$flash[6][2] = "GGGGGG*GG6666666"'

i am trying to add a third column ($flash[X][3] = "") for each record

so id like to be able to say replace X_TEXT with Y_TEXT

Y_TEXT would essentially be the [2] column line for every record PLUS the new line $flash[X][3] = ""

hope this makes sense.

thank you in advance!

[water]

Use

ReDim $flash[7][4]

to add a column to the array.

[gcue]

right.. but im actually writing the text syntax to rebuild the array.. not actually rebuilding the array.. not sure if that makes sense?

[water]

So you want to change the script source?

$string = 'Local $flash[7][3]' & @CRLF & @CRLF

$string &= '$flash[0][0] = "AAAAAA1111-111"' & @CRLF
$string &= '$flash[0][1] = "AAAAAA1111*111"' & @CRLF
$string &= '$flash[0][2] = "AAAAAA1111^111"' & @CRLF

to

$string = 'Local $flash[7][3]' & @CRLF & @CRLF

$string &= '$flash[0][0] = "AAAAAA1111-111"' & @CRLF
$string &= '$flash[0][1] = "AAAAAA1111*111"' & @CRLF
$string &= '$flash[0][2] = "AAAAAA1111^111"' & @CRLF
$string &= '$flash[0][3] = "AAAAAA1111/111"' & @CRLF ...

 

[gcue]

almost...

from this

$string = 'Local $flash[7][3]' & @CRLF & @CRLF

$string &= '$flash[0][0] = "AAAAAA1111-111"' & @CRLF
$string &= '$flash[0][1] = "AAAAAA1111*111"' & @CRLF
$string &= '$flash[0][2] = "AAAAAA1111^111"' & @CRLF

$string &= '$flash[1][0] = "BBBB!BB1111111"' & @CRLF
$string &= '$flash[1][1] = "BBB$BBB1111111"' & @CRLF
$string &= '$flash[1][2] = "BBBBB%B1111111"' & @CRLF

$string &= '$flash[2][0] = "CCCCCC222-2222"' & @CRLF
$string &= '$flash[2][1] = "CCC*CCC2222222"' & @CRLF
$string &= '$flash[2][2] = "CCCCCC22-22222"' & @CRLF

$string &= '$flash[3][0] = "DDDD-DDD333333"' & @CRLF
$string &= '$flash[3][1] = "DDD#DDDD333333"' & @CRLF
$string &= '$flash[3][2] = "DDDDD*DD333333"' & @CRLF

$string &= '$flash[4][0] = "EEEEEE$4444444"' & @CRLF
$string &= '$flash[4][1] = "EEEEEE#4444444"' & @CRLF
$string &= '$flash[4][2] = "EEEEEE!4444444"' & @CRLF

$string &= '$flash[5][0] = "FFFFFF-5555555"' & @CRLF
$string &= '$flash[5][1] = "FFFFFF;5555555"' & @CRLF
$string &= '$flash[5][2] = "FFFFFF*5555555"' & @CRLF

$string &= '$flash[6][0] = "GG%GGGGGG6666666"' & @CRLF
$string &= '$flash[6][1] = "GGG^GGGGG6666666"' & @CRLF
$string &= '$flash[6][2] = "GGGGGG*GG6666666"'

to this

$string = 'Local $flash[7][3]' & @CRLF & @CRLF

$string &= '$flash[0][0] = "AAAAAA1111-111"' & @CRLF
$string &= '$flash[0][1] = "AAAAAA1111*111"' & @CRLF
$string &= '$flash[0][2] = "AAAAAA1111^111"' & @CRLF
$string &= '$flash[0][3] = ""' & @CRLF

$string &= '$flash[1][0] = "BBBB!BB1111111"' & @CRLF
$string &= '$flash[1][1] = "BBB$BBB1111111"' & @CRLF
$string &= '$flash[1][2] = "BBBBB%B1111111"' & @CRLF
$string &= '$flash[1][3] = ""' & @CRLF

$string &= '$flash[2][0] = "CCCCCC222-2222"' & @CRLF
$string &= '$flash[2][1] = "CCC*CCC2222222"' & @CRLF
$string &= '$flash[2][2] = "CCCCCC22-22222"' & @CRLF
$string &= '$flash[2][3] = ""' & @CRLF

$string &= '$flash[3][0] = "DDDD-DDD333333"' & @CRLF
$string &= '$flash[3][1] = "DDD#DDDD333333"' & @CRLF
$string &= '$flash[3][2] = "DDDDD*DD333333"' & @CRLF
$string &= '$flash[3][3] = ""' & @CRLF

$string &= '$flash[4][0] = "EEEEEE$4444444"' & @CRLF
$string &= '$flash[4][1] = "EEEEEE#4444444"' & @CRLF
$string &= '$flash[4][2] = "EEEEEE!4444444"' & @CRLF
$string &= '$flash[4][3] = ""' & @CRLF

$string &= '$flash[5][0] = "FFFFFF-5555555"' & @CRLF
$string &= '$flash[5][1] = "FFFFFF;5555555"' & @CRLF
$string &= '$flash[5][2] = "FFFFFF*5555555"' & @CRLF
$string &= '$flash[5][3] = ""' & @CRLF

$string &= '$flash[6][0] = "GG%GGGGGG6666666"' & @CRLF
$string &= '$flash[6][1] = "GGG^GGGGG6666666"' & @CRLF
$string &= '$flash[6][2] = "GGGGGG*GG6666666"' & @CRLF
$string &= '$flash[6][3] = ""'

thanks for your help!

[water]

I still don't fully understand your problem.
Can't you just copy the changed lines from your last post to your script?

[gcue]

actually im working on a script that modifies existing arrays.. so in case you wanted to add/delete a column/record to your existing array you can do so without losing your existing values.  

[water]

So you write a script to modify the source code of another script?

[BrewManNH]

Have you tried using _ArrayColInsert or _ArrayColDelete?

[gcue]

actually its meant for hard coded arrays.. where values to arrays are set within the script.  so its for cases where those arrays need modifying..

[water]

Hard coded values ... BBRRR.
Wouldn't it make more sense to store those values in a file?
Proof of concept:
Store the array in a CSV and retrieve it when needed.
 

#include <File.au3>
Local $flash[7][3]

$flash[0][0] = "AAAAAA1111-111"
$flash[0][1] = "AAAAAA1111*111"
$flash[0][2] = "AAAAAA1111^111"

$flash[1][0] = "BBBB!BB1111111"
$flash[1][1] = "BBB$BBB1111111"
$flash[1][2] = "BBBBB%B1111111"

$flash[2][0] = "CCCCCC222-2222"
$flash[2][1] = "CCC*CCC2222222"
$flash[2][2] = "CCCCCC22-22222"

$flash[3][0] = "DDDD-DDD333333"
$flash[3][1] = "DDD#DDDD333333"
$flash[3][2] = "DDDDD*DD333333"

$flash[4][0] = "EEEEEE$4444444"
$flash[4][1] = "EEEEEE#4444444"
$flash[4][2] = "EEEEEE!4444444"

$flash[5][0] = "FFFFFF-5555555"
$flash[5][1] = "FFFFFF;5555555"
$flash[5][2] = "FFFFFF*5555555"

$flash[6][0] = "GG%GGGGGG6666666"
$flash[6][1] = "GGG^GGGGG6666666"
$flash[6][2] = "GGGGGG*GG6666666"
_ArrayDisplay($flash)
_FileWriteFromArray("C:\temp\test.csv", $flash, 0)
Global $aArray
_FileReadToArray("C:\temp\test.csv", $aArray, $FRTA_NOCOUNT, "|")
_ArrayDisplay($aArray)

This makes changes much easier.

[water]

Hard coded values ... BBRRR.
Wouldn't it make more sense to store those values in a file?
Proof of concept:
Store the array in a CSV and retrieve it when needed.
 

#include <File.au3>
Local $flash[7][3]

$flash[0][0] = "AAAAAA1111-111"
$flash[0][1] = "AAAAAA1111*111"
$flash[0][2] = "AAAAAA1111^111"

$flash[1][0] = "BBBB!BB1111111"
$flash[1][1] = "BBB$BBB1111111"
$flash[1][2] = "BBBBB%B1111111"

$flash[2][0] = "CCCCCC222-2222"
$flash[2][1] = "CCC*CCC2222222"
$flash[2][2] = "CCCCCC22-22222"

$flash[3][0] = "DDDD-DDD333333"
$flash[3][1] = "DDD#DDDD333333"
$flash[3][2] = "DDDDD*DD333333"

$flash[4][0] = "EEEEEE$4444444"
$flash[4][1] = "EEEEEE#4444444"
$flash[4][2] = "EEEEEE!4444444"

$flash[5][0] = "FFFFFF-5555555"
$flash[5][1] = "FFFFFF;5555555"
$flash[5][2] = "FFFFFF*5555555"

$flash[6][0] = "GG%GGGGGG6666666"
$flash[6][1] = "GGG^GGGGG6666666"
$flash[6][2] = "GGGGGG*GG6666666"
_ArrayDisplay($flash)
_FileWriteFromArray("C:\temp\test.csv", $flash, 0)
Global $aArray
_FileReadToArray("C:\temp\test.csv", $aArray, $FRTA_NOCOUNT, "|")
_ArrayDisplay($aArray)

This makes changes much easier.