VBScript/SQL Formatting Issue -
okay script have written functional add 2 things it. type in callid number associated other data on database in sql server. when type in number msgbox retrieves other columns associated particular number , outputs command prompt , outputs text file on hard drive. good, formatting horrible. how go improving formatting of file more reading. line space seperating each piece of data. able have name of each column under each piece of data associated column. appreciated. here code sensitive information omitted:
dim strquery strquery = inputbox("enter callid please:") dim sserver dim slogin dim spwd dim sdb dim ocn dim ors dim strfullquery dim strfield const forreading = 1 sserver = "" slogin = "" spwd = "" sdb = "" set ocn = createobject( "adodb.connection" ) ' set ocn create object called adodb.connection set ors = createobject( "adodb.recordset" ) ' set ors create object called adodb.recordset ocn.connectionstring = "provider=sqloledb" & _ ";server=" & sserver & _ ";uid=" & slogin & _ ";pwd=" & spwd & _ ";database=" & sdb & " " ocn.connectiontimeout=600 ocn.open 'open connection server strfullquery = "select * dbo.calllog callid=" + strquery 'this sql statement runs query on db ors.open strfullquery,ocn 'this opens record set , has 2 parameters, strfullquery , ocn if ors.eof 'if open record set @ end of file then... wscript.echo "there no records retrieve; check have correct record number." 'echo there no records retrieve. end if 'if there records loop through fields ors.movefirst 'move first object in record set , set current record until ors.eof ' while not open record set not end of file set objfilesystem = wscript.createobject("scripting.filesystemobject") 'set objfilesystem create object scripting.filesystemobject set objoutputfile = objfilesystem.createtextfile("c:\test.txt", true) 'set objoutputfile create object objfilesystem.createtextfile objoutputfile.writeline strcolumnnames strfield = ors.getstring if strfield <> "" 'if strfield doesn't equal "" wscript.echo strfield objoutputfile.writeline strfield &"|" 'objfilesystem.close objoutputfile.close end if 'ors.movenext 'move next object in record set loop ocn.close
you can add space make fixed-widths. let's know every field 20 characters or less:
objoutputfile.writeline strfield & string(20-len(strfield)," ") & "|"
Comments
Post a Comment