Splitting array values into new columns with multiple delim's

[rickybobby]

I have a database of names, street names (no white space), and zipcodes captured via console output from our old "custom" catalog software; I've gotten the array cleaned up nicely but now i'm hitting a roadblock. The data has multiple delim's those being (,:,@CRLF), below is an example of a data set:

 

Row|Col 0

[0]|johnwindingroad:39501 (There are carriage returns after the end of each zip)

[1]|sallymadeupname:12345

[2]|rickimwaytootired:54321

.....

[N]|XY:Z

 

I want to split this data into columns of Names, Addresses, and Zip's.

 

I'm probably just too tired to get it, but any help is always appreciated!

[Danyfirex]

Hi. You could thi something like this:

#include <Array.au3>


Local $aArray=FileReadToArray("1.txt")
Local $aNewArray[UBound($aArray)][3]
local $aSplit=0
for $i= 0 to UBound($aArray)-1
    $aSplit=StringRegExp($aArray[$i],"[a-zA-Z0-9]+",3)
    $aNewArray[$i][0]=$aSplit[0]
    $aNewArray[$i][1]=$aSplit[1]
    $aNewArray[$i][2]=$aSplit[2]
Next

_ArrayDisplay($aNewArray)

Saludos

Edited March 27, 2014 by Danyfirex

[rickybobby]

Hi. You could thi something like this:

#include <Array.au3>


Local $aArray=FileReadToArray("1.txt")
Local $aNewArray[UBound($aArray)][3]
local $aSplit=0
for $i= 0 to UBound($aArray)-1
    $aSplit=StringRegExp($aArray[$i],"[a-zA-Z0-9]+",3)
    $aNewArray[$i][0]=$aSplit[0]
    $aNewArray[$i][1]=$aSplit[1]
    $aNewArray[$i][2]=$aSplit[2]
Next

_ArrayDisplay($aNewArray)

Saludos

That only seems to work if the delim's were whitespace; again my delim's are () ( : ) and (@CRLF) in that order.

Edited March 27, 2014 by rickybobby

[BrewManNH]

Just use the function StringSplit and use all 3 of your characters as delimiters and use flag 0 ($STR_CHRSPLIT) so that it splits on each character.

[rickybobby]

Just use the function StringSplit and use all 3 of your characters as delimiters and use flag 0 ($STR_CHRSPLIT) so that it splits on each character.

Just tried that it splits it into new rows, I wanted the array to have new columns; ex:

 ORIGINAL:

Row|Col 0

[0]|johnwindingroad:39501 (There are carriage returns after the end of each zip)

[1]|sallymadeupname:12345

[2]|rickimwaytootired:54321

 

NEW ARRAY:

Row|Col 0     |Col 1       |Col 2

[0]|   john  |windingroad| 39501 (There are carriage returns after the end of each zip)

[1]|  sally  |madeupname|12345

[2]|  rick   |imwaytootired|54321

 

Hope that makes it more clear what I'm trying to get at!

[rickybobby]

Solved it! Using this code:

$rows = StringSplit($string, @CR)
$cols = StringSplit($rows[1], "\:")

Dim $table[$rows[0]][$cols[0]]

For $i = 1 To $rows[0]
    $cols = StringSplit($rows[$i], "\:")
    For $j = 1 To $cols[0]
        $table[$i - 1][$j - 1] = $cols[$j]
    Next
Next

_ArrayDisplay($table)

[BrewManNH]

Here's how I did it.

#include <Array.au3>
Global $sFile = "file.txt"
Global $sText = FileRead($sFile)
Global $aText = StringSplit($sText, ":\" & @CR)
_ArrayDisplay($aText)
Global $aNewArray[$aText[0] / 3][3]
$Count = 0
For $I = 1 To $aText[0] - 1 Step 3 ; you only need the -1 if the last line is blank due to the last line feed
    $aNewArray[$Count][0] = $aText[$I]
    $aNewArray[$Count][1] = $aText[$I + 1]
    $aNewArray[$Count][2] = $aText[$I + 2]
    $Count += 1
Next
_ArrayDisplay($aNewArray)