for $=1 to $_
 $c=substr($i,$,1) $!=""
 select
 case $c='"' $s=$s+$t+$c do if $=$_ $f[$a]=$s $a=$a+1 $i=$f[$a] $s='' $=0 $_=len($i) endif do $=$+1 $c=substr($i,$,1) $s=$s+$c until $c='"' or $=$_  until $c='"' $s=$s+$te
 case $c="'" $s=$s+$t+$c do if $=$_ $f[$a]=$s $a=$a+1 $i=$f[$a] $s='' $=0 $_=len($i) endif do $=$+1 $c=substr($i,$,1) $s=$s+$c until $c="'" or $=$_  until $c="'" $s=$s+$te



 for $=1 to $_
  $c=substr($i,$,1) $!=""
  select
  case $c='"' $s=$s+$t+$c do if $=$_ $f[$a]=$s $a=$a+1 $i=$f[$a] $s='' $=0 $_=len($i) endif do $=$+1 $c=substr($i,$,1) $s=$s+$c until $c='"' or $=$_  until $c='"' $s=$s+$te
  case $c="'" $s=$s+$t+$c do if $=$_ $f[$a]=$s $a=$a+1 $i=$f[$a] $s='' $=0 $_=len($i) endif do $=$+1 $c=substr($i,$,1) $s=$s+$c until $c="'" or $=$_  until $c="'" $s=$s+$te


SPACING FIXED ! HOORAY!

Another one :


$txtTarget               = $frm.TextBox
$txtTarget.Left          = 5
$txtTarget.Top           = 5 + $txtSource.Bottom
$txtTarget.Right         = $frm.ClientWidth - 110
$txtTarget.Bottom        = $frm.ClientHeight - 20
$txtTarget.ScrollBars    = 3
$txtTarget.FontName      = "Courier New"
$txtTarget.FontSize      = 8
$txtTarget.MultiLine     = 1


[ 24. January 2003, 23:42: Message edited by: jpols ]
_________________________