break on

dim $out[0], $c
$in = @scriptdir+"\test.csv"
$out[0] = ""
$c=0
$=open(1,$in,2)
if not @error
    $l=readline(1)
    while not @error
        redim preserve $out[$c]
        $l=substr($l,2,len($l)-2)
        $out[$c] = split($l,'","')
        $c=$c+1
        $l=readline(1)
    loop
    $=close(1)
endif

;test array
for $i=0 to ubound($out)
    for $j=0 to ubound($out[$i])
        at($i,$j*10) $out[$i][$j]
    next
next

get $

code:

---

 "John","Doe"
"Jane","Doe" 

---

it was really hard to create this csv by other editors than Notepad
(Richard is damn RIGHT !!!)

{edit#2} Oh yeah , please feel free to play Golf with this snippet above {/edit}

[ 31. January 2003, 13:41: Message edited by: jpols ]

code:

---

The following field contains a comma,"Doe, John"
The following field contains a quote,"He said ""Don't quote me on that"""
The following field contains three quote characters in a row,""""""""
The following field contains quote-comma-quote-quote-comma-quote,""","""","""

---

quote:

---

Doe, John
"Don't quote me on that"
"""
","","

---

code:

---

  
Break on
At(11,12) "Please enter your source file name (eg. a:\text.csv)?"
gets $source
At(14,12) "Please enter your Group Name?"
gets $group
If open (1, $source) = 0
	$sourceline = Readline(1)
	WHILE @ERROR = 0  
          ;???  fnCSV2Array ($sourceline)  

;Split File

	$sourcearray = split ($sourceline,",")
	
	Put in array
	For Each $itemofname in $sourcearray
	Next
      
      ;Arrange output
	$fullname= $sourcearray[1]+ " " + $sourcearray[0]
	$Username= LEFT($sourcearray[1], 1)  + $sourcearray[0]
	$lower = Lcase($username)
	$username = $lower
		IF Open( 3 , "output.txt" , 5 )  = 0
		$x = WriteLine( 3 , $fullname + "," + $username + "," + $group + @CRLF)
		close (3)
		endif  
	$sourceline = Readline(1)
	LOOP
Close (1)
endif 

Function fnCSV2Array($s)
Dim $iIndex,$iLength,$cChar,$iMode,$iArraySize
Redim Preserve $fnCSV2Array[0]
$iArraySize=0
$iMode=0 ; 1 = in quoted field

$iLength=Len($s)
For $iIndex = 1 To $iLength
  $cChar=SubStr($s,$iIndex,1)
  	If $iMode
  		If $cChar='"'
  			If SubStr($s,$iIndex+1,1)='"'
    			$fnCSV2Array[$iArraySize]=""+$fnCSV2Array[$iArraySize]+$cChar
   			 $iIndex=$iIndex+1
  			Else
  			$iMode=0
  			EndIf
  		Else
  		$fnCSV2Array[$iArraySize]=""+$fnCSV2Array[$iArraySize]+$cChar
 		 EndIf
 		 Else
	 	Select
  			Case $cChar=','
    			$iArraySize=$iArraySize+1
    			Redim Preserve $fnCSV2Array[$iArraySize]
  			Case $cChar='"'
    			$iMode=1
  			Case "true"
    			$fnCSV2Array[$iArraySize]=""+$fnCSV2Array[$iArraySize]+$cChar
  		EndSelect
	EndIf
Next
EndFunction

---

code:

---

Apple,Pear,"A bunch of bananas"

---

code:

---

$sourcearray=fnCSV2Array($sourceline)

---