Case statement that will populate a txt file if value is not blank

[kdjonesmtb2]

I would like perform the following statements that will populate a txt file if variable is not blank

This is need as the population of these fields is situational so the datatable may not always have data

Thanks


Case variable not blank (not sure on syntax)

qfile1.Write((DataTable.Value("QTY_File_Header",dtGlobalSheet)))
qfile1.Write((DataTable.Value("Common_Delimiter",dtLocalSheet)))


qfile1.Write((DataTable.Value("QTY01_673_Quantity_Qualifier",dtGlobalSheet)))
qfile1.Write( S_QTY01_673_LEN) ' spacing for any left off characters
qfile1.Write((DataTable.Value("Common_Delimiter",dtLocalSheet)))



qfile1.Write((DataTable.Value("QTY02_380_Quantity",dtGlobalSheet)))
qfile1.Write( S_QTY02_380_LEN) ' spacing for any left off characters
qfile1.Write((DataTable.Value("Tilde",dtLocalSheet))) & vbcrlf '

 

[Geates]

I would convert the variable to a trimmed string and check its length. If the length is non-zero then write the variable to a file.

if (len(trim(cstr(variable))) then
   write variable to file
end if

-Geates

http://ns7.webmasters.com/caspdoc/html/vbscript_language_reference.htm

 

[kdjonesmtb2]

Hello

I tried the following but I am getting this syntax error

"Expected ')'"


Dim x

x=DataTable.Value("QTY01_673_Quantity_Qualifier01",dtGlobalSheet)


If (len(trim(cstr (x))) then

qfile1.Write((DataTable.Value("QTY01_673_Quantity_Qualifier01",dtGlobalSheet)))
end if

 

[Geates]

you need one more ')'

If (len(trim(cstr (x)))) then

I'm also assuming the you have already defined the file strem [tt]qfile1[/tt].


-Geates

http://ns7.webmasters.com/caspdoc/html/vbscript_language_reference.htm