Traverse a string

[christianmassyn]

Hi i would like to know how to return a string as individual characters all the methods I can think of will take a long time if I must do it a lot. I am actualy wokring with CSV files, strings like Value1,Value2,Value3 i can use tokenize to break up but if I get something like ,,Value one tokenize does not give me enougth data.

[christianmassyn]

Not getting a lot of replies on this site these days, its a pitty always had such quick response here. Any way here is my solution:

global proc string[] cm_CSVrowBreakup(string $string){

    int $wordCount = 0;
    string $nextChar;
    string $currentWord = "";
    string $ReturArray[];
    int $loops = size($string);

    for($i=0;$i<$loops;$i++){

       $nextChar =substring $string (1+$i) (1+$i);
       if ($nextChar == ","){

           $ReturArray[$wordCount] = $currentWord;
           $currentWord ="";
           $wordCount++;

       }
       else{

           $currentWord = $currentWord + $nextChar;

       }
    }
    $ReturArray[$wordCount] = $currentWord;

    return $ReturArray;

}

[joojaa]

You should probably switch over to python if you want to read csv files. Because commas arent the only possible complication.

import csv
with open('data.csv', 'rb') as data:
    reader = csv.reader(data)
    for row in reader:
        doSomething()