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

Popular posts from this blog

How to mention the localhost in android -

php - Calling a template part from a post -

c# - String.format() DateTime With Arabic culture -