Problems Parsing a .csv file

[drichter12]

I am trying to parse a line in a .csv file and break it into 3 variables. Here is the line...

172 0 01 10,70487,914193890129

The variables should be

v1 = 172 0 01 10
v2 = 70487
v3 = 914193890129

These variables will then be entered at a command line 1 item at a time with a carriage return after each. My problem is getting these variables to parse correctly as I seem to have issues related to the fact that the first variable has spaces in it. Can anyone point me in the right direction?

Thanks,


Dale

 

[nclouston]

How are you parsing it - what are you using as delimiters - spaces? Your delimiters are commas:

parse var CSV_Var v1 ',' v2 ',' v3

 

[drichter12]

Oh.. Sorry, I missed the "," between variables... New to programming. Thank you soo much! It all appears to be working now.



Dale

 

[mikrom]

To process a CSV line with any number of columns I would rather parse the columns into stem:

[COLOR=#0000ff]/* -- main program -- */[/color]
csv_line1 [COLOR=#804040][b]=[/b][/color] [COLOR=#ff00ff]'172 0 01 10,70487,914193890129'[/color]
[COLOR=#804040][b]call[/b][/color][COLOR=#008080] csvline_to_stem([/color]csv_line1[COLOR=#008080])[/color]
[COLOR=#804040][b]call[/b][/color][COLOR=#008080] print_stem[/color]
[COLOR=#804040][b]say[/b][/color] [COLOR=#ff00ff]'----------------------'[/color]
csv_line2 [COLOR=#804040][b]=[/b][/color] [COLOR=#ff00ff]'172 0 01 10,70487,914193890129,172 0 01 10,70487,914193890129'[/color]
[COLOR=#804040][b]call[/b][/color][COLOR=#008080] csvline_to_stem([/color]csv_line2[COLOR=#008080])[/color]
[COLOR=#804040][b]call[/b][/color][COLOR=#008080] print_stem[/color]
[COLOR=#804040][b]exit[/b][/color]

[COLOR=#0000ff]/* -- procedures/functions -- */[/color]
[COLOR=#008080]csvline_to_stem[/color]: [COLOR=#804040][b]procedure expose[/b][/color] elements.
  [COLOR=#0000ff]/* parse CSV line into global stem */[/color]
  [COLOR=#804040][b]parse arg[/b][/color] csv_line
  [COLOR=#0000ff]/* replace space with '*' and comma with space */[/color] 
  csv_line [COLOR=#804040][b]=[/b][/color] [COLOR=#008080]translate([/color]csv_line[COLOR=#804040][b],[/b][/color] [COLOR=#ff00ff]'* '[/color][COLOR=#804040][b],[/b][/color] [COLOR=#ff00ff]' ,'[/color][COLOR=#008080])[/color]  
  elements.0 [COLOR=#804040][b]=[/b][/color] [COLOR=#008080]words([/color]csv_line[COLOR=#008080])[/color]
  [COLOR=#804040][b]do[/b][/color] i[COLOR=#804040][b]=[/b][/color]1[COLOR=#804040][b] to [/b][/color]elements.0
    [COLOR=#0000ff]/* replace '*' with space */[/color]
    elements.i [COLOR=#804040][b]=[/b][/color] [COLOR=#008080]translate(word([/color]csv_line[COLOR=#804040][b],[/b][/color] i[COLOR=#008080])[/color][COLOR=#804040][b],[/b][/color] [COLOR=#ff00ff]' '[/color][COLOR=#804040][b],[/b][/color] [COLOR=#ff00ff]'*'[/color][COLOR=#008080])[/color]
  [COLOR=#804040][b]end[/b][/color]
  [COLOR=#804040][b]return[/b][/color]

[COLOR=#008080]print_stem[/color]: [COLOR=#804040][b]procedure expose[/b][/color] elements.
  [COLOR=#0000ff]/* print global stem */[/color]
  [COLOR=#804040][b]say[/b][/color] [COLOR=#ff00ff]'Global stem has'[/color] elements.0 [COLOR=#ff00ff]'elements:'[/color]
  [COLOR=#804040][b]do[/b][/color] i[COLOR=#804040][b]=[/b][/color]1[COLOR=#804040][b] to [/b][/color]elements.0
    [COLOR=#804040][b]say[/b][/color] [COLOR=#ff00ff]'elements['[/color][COLOR=#804040][b]||[/b][/color]i[COLOR=#804040][b]||[/b][/color][COLOR=#ff00ff]']='[/color] elements.i
  [COLOR=#804040][b]end[/b][/color]
  [COLOR=#804040][b]return[/b][/color]

Output:

Global stem has 3 elements:
elements[1]= 172 0 01 10
elements[2]= 70487
elements[3]= 914193890129
----------------------
Global stem has 6 elements:
elements[1]= 172 0 01 10
elements[2]= 70487
elements[3]= 914193890129
elements[4]= 172 0 01 10
elements[5]= 70487
elements[6]= 914193890129

 

[drichter12]

Ouch, that makes my head hurt

This is what I ended up with...

/* Create New Phantom Extensions from .csv file 04-29-2010*/

file = "c:\ACDtoPHANTOM.csv"

do while( lines(file) )

data=LINEIN(file)

Parse Var data v1","v2","v3"

CALL ZocTimeout 60
CALL ZocWaitForSeq 1

CALL ZocSend "new^M"

CALL ZocWait "TYPE:"
CALL ZocSend "500^M"

CALL ZocWait "TN"
CALL ZocSend v1"^M"

CALL ZocWait "CDEN"
CALL ZocSend "^M"

CALL ZocWait "DES"
CALL ZocSend "SPDCL^M"

CALL ZocWait "CUST"
CALL ZocSend "0^M"

CALL ZocWait "ERL"
CALL ZocSend "^M"

CALL ZocWait "DN"
CALL ZocSend v2"^M"

CALL ZocWait "CPND"
CALL ZocSend "^M"

CALL ZocWait "VMB"
CALL ZocSend "^M"

CALL ZocWait "HUNT"
CALL ZocSend "^M"

CALL ZocWait "TGAR"
CALL ZocSend "^M"

CALL ZocWait "LDN"
CALL ZocSend "^M"

CALL ZocWait "NCOS"
CALL ZocSend "^M"

CALL ZocWait "RNPG"
CALL ZocSend "^M"

CALL ZocWait "SCPW"
CALL ZocSend "^M"

CALL ZocWait "SGRP"
CALL ZocSend "^M"

CALL ZocWait "CLS"
CALL ZocSend "xfa cfxa^M"

CALL ZocWait "MLWU_LANG"
CALL ZocSend "^M"

CALL ZocWait "PLEV"
CALL ZocSend "^M"

CALL ZocWait "FTR"
CALL ZocSend "dcfw 16 "v3"^M"

CALL ZocWait "FTR"
CALL ZocSend "^M"

CALL ZocWait "REQ"

END



Dale

 

[jamie2]

Dale,

You must be using ZOC to excute scripts on your Nortel? Good to see!!!

 

[drichter12]

Yes I am. I switched to ZOC last year to get away from ProComm since it hasn't been supported for close to 10 years now. So far I have been thrilled with it



Dale

 

[jamie2]

Are you pulling your .csv file from the MV.xls utility?

 

[drichter12]

I'm using the updated version from GHTROUT's site buy yes most of the time depending on what I need....



Dale