|
Ray,
as always you are an incredible help. Your code has got me on the correct track.
As you will see below I cobbled up your nice tight code so I could walk through it slowly and really understand what was working and what was not.
The first thing I realized was that I had the file from UPS in the wrong format, once I corrected that my search string array worked well.
Next problem I had was it found the line but it did not properly turn it into a string. Once I corrected my SetStringArraySeparator(",") that worked to seperate the data.
Now I have 2 records it finds. I attempted to use an if statement to decide what data was what and return it properly but I always get the last record data only.
I am now thinking I should rebuild the string to make a separate unique ID for each one of the 2 data strings its finding and then do another search to break it down farther.
I am getting closer thanks to your help.
Thanks again for the help
///
var v1 as String
var v2 as String
var v3 as String
var v4 as String
var v5 as String
var v6 as String
var v7 as String
var v8 as String
var v9 as String
var v10 as String
var v11 as String
var v12 as String
var v13 as String
var v14 as String
var v15 as String
var v16 as String
var v17 as String
var v18 as String
var v19 as String
var V20 as String
var v21 as String
var v22 as String
var v23 as String
var v24 as String
var v25 as String
var v26 as String
var v27 as String
var v28 as String
var v29 as String
var v30 as String
var v31 as String
var v32 as String
var v33 as String
var v34 as String
var v35 as String
var v36 as String
var v37 as String
var v38 as String
var v39 as String
var vtrak as String
var vreturn as String
var vFile as String
var vContent as String
var vLine as String
var n as Int
var nn as Int
//"201209281526" unique patient Id to test with
var vsearched as String
var vBlank1 as String
vFile = "c:\sesame\UPSEXPTrak.csv"
//vFile = "c:\sesame\UPSADDRESSBOOK.csv"
//Writeln(vfile)
//vBlank1 = blank1
vContent = @Insert(vFile)
//Writeln("start " + vContent)
//vcontent = @Replace(vcontent, ";", "")
//Writeln("replace " + vContent)
SetStringArraySeparator(@NewLine())
vContent = @SortStringArray(vContent, 0)
//Writeln("after sort " + vContent)
vContent = @SearchStringArray(vContent, "201209281526..")
//vContent = @SearchStringArray(vContent, "20120430845..")
//Writeln("after search " + vContent)
RestoreStringArraySeparator()
If vContent <> "" Then
{
While vContent <> ""
{
vLine = Split(vContent, @Newline())
Writeln("this is vline " + vline)
Writeln("after vline***********************************************")
SetStringArraySeparator(",")
//vline = @SortStringArray(vline, 0)
v1 = @AccessStringArray(vLine, 1)
v2 = @AccessStringArray(vLine, 2)
v3 = @AccessStringArray(vLine, 3)
v4 = @AccessStringArray(vLine, 4)
v5 = @AccessStringArray(vLine, 5)
v6 = @AccessStringArray(vLine, 6)
v7 = @AccessStringArray(vLine, 7)
v8 = @AccessStringArray(vLine, 8)
v9 = @AccessStringArray(vLine, 9)
v10 = @AccessStringArray(vLine, 10)
v11 = @AccessStringArray(vLine, 11)
v12 = @AccessStringArray(vLine, 12)
v13 = @AccessStringArray(vLine, 13)
v14 = @AccessStringArray(vLine, 14)
v15 = @AccessStringArray(vLine, 15)
v16 = @AccessStringArray(vLine, 16)
v17 = @AccessStringArray(vLine, 17)
v18 = @AccessStringArray(vLine, 18)
v19 = @AccessStringArray(vLine, 19)
v20 = @AccessStringArray(vLine, 20)
v21 = @AccessStringArray(vLine, 21)
v22 = @AccessStringArray(vLine, 22)
v23 = @AccessStringArray(vLine, 23)
v24 = @AccessStringArray(vLine, 24)
v25 = @AccessStringArray(vLine, 25)
v26 = @AccessStringArray(vLine, 26)
v27 = @AccessStringArray(vLine, 27)
v28 = @AccessStringArray(vLine, 28)
v29 = @AccessStringArray(vLine, 29)
v30 = @AccessStringArray(vLine, 30)
v31 = @AccessStringArray(vLine, 31)
v32 = @AccessStringArray(vLine, 32)
v33 = @AccessStringArray(vLine, 33)
v34 = @AccessStringArray(vLine, 34)
v35 = @AccessStringArray(vLine, 35)
writeln("1 " + v1)
writeln("2 " + v2)
writeln("3 " + v3)
writeln("4 " + v4)
writeln("5 " + v5)
writeln("6 " + v6)
writeln("7 " + v7)
writeln("8 " + v8)
writeln("9 " + v9)
writeln("1 " + v10)
writeln("11 " + v11)
writeln("12 " + v12)
writeln("13 " + v13)
writeln("14 " + v14)
writeln("15 " + v15)
writeln("16 " + v16)
writeln("17 " + v17)
writeln("18 " + v18)
writeln("19 " + v19)
writeln("20 " + v20)
writeln("21 " + v21)
writeln("22 " + v22)
writeln("23 " + v23)
writeln("24 " + v24)
writeln("25 " + v25)
writeln("26 " + v26)
writeln("27 " + v27)
writeln("28 " + v28)
writeln("29 " + v29)
writeln("30 " + v30)
writeln("31 " + v31)
writeln("32 " + v32)
writeln("33 " + v33)
writeln("34 " + v34)
writeln("35 " + v35)
//If @AccessStringArray(vLine, 25) <> "UPS Print Return Label"
If v25 = "UPS Print Return Label"
{
vreturn = v29
Writeln("this is return " + vtrak)
//TrackingNumber = @AccessStringArray(vLine, 29)
//Writeln("this is it " + @AccessStringArray(vLine, 29))
}
//If @AccessStringArray(vLine, 25) = ""
If v25 = ""
{
vtrak = v29
Writeln("this is traking " + vtrak)
//TrackingNumber = @AccessStringArray(vLine, 29)
//Writeln("this is it " + @AccessStringArray(vLine, 29))
}
}
}
|
Pages: 1
Send Topic 
Print
Suggestions for parsing a file (Very long read) (Read 1082 times)
