Formatting VB Script
CodeGuru Home VC++ / MFC / C++ .NET / C# Visual Basic VB Forums Developer.com
Results 1 to 2 of 2

Thread: Formatting VB Script

Hybrid View

  1. #1
    Join Date
    Jan 2010
    Posts
    3

    Formatting VB Script

    Hello programmer's. I have the following VB script in VS2005, ASP.NET that writes sql data to a text file. Can someone help me understanding whether I can format the paydate and checkamt fields? Please see the two sample format problems below. I need to reformat certain values. Do I do the formatting in the Dim section or in the if not – then section or in the streamwriter section? Thank you.
    Two Sample Format Problems:
    1. Using the below VB script in asp.net the “paydate” is outputting to the checkfile.txt as 1/1/2010. I need to format it so it outputs as 1/1/10.

    2. Using the below VB script in asp.net the “checkamt” is outputting to the checkfile.txt as 848.7000. I need to format it so it outputs as 848.70.

    Code:
    Dim
    flag As 
    Boolean
    Dim ds As New 
    DataSet
    Dim da As New 
    SqlDataAdapter
    objComm = New SqlCommand("select * from tbl2txt", objConn)
    objComm.CommandTimeout = 500
     ''The flag is to let me know which authentication response to issue
    flag = False
    da.SelectCommand = objComm
    da.Fill(ds)
    intFileNum = ds.Tables(0).Rows.Count
    objConn.Close() 
    If intFileNum > 0 Then 
    flag = True 
    'START CREATE THE OUTPUT FILE HERE  
    'extract all fields out 1st, then format and write using the StreamWriter 
    Dim sw As New System.IO.StreamWriter("c:\CheckFile.txt")
    For Each dr As DataRow In ds.Tables(0).Rows
    Dim Strpaydate As String = String.Empty
    Dim Strcheckamt As String = String.Empty
    Dim Strname As String = String.Empty
    Dim Stradd1 As String = String.Empty
    Dim Stradd2 As String = String.Empty
    Dim Stradd3 As String = String.Empty
    Dim Stradd4 As String = String.Empty
    Dim Strpostcode As String = String.Empty
    Dim Strinvno As String = String.Empty
    Dim Strdocdate As String = String.Empty
    Dim Strinvoiceamt As String = String.Empty
    Dim Strvendor As String = String.Empty
    Dim Strcheckno As String = String.Empty
    Dim Strsname As String = String.Empty
    Dim StrGrp As String = String.Empty
    Dim StrGroupName As String = String.Empty
    'Make sure the value coming back from the DataBase is Not Null. If it has value then write it using the StreamWriter to the text file. WriteLine makes a new line for each entry 
     If Not IsDBNull(dr("paydate")) Then Strpaydate = (dr("paydate"))
    If Not IsDBNull(dr("checkamt")) Then Strcheckamt = Format(dr("checkamt"))
    If Not IsDBNull(dr("name")) Then Strname = (dr("name"))
    If Not IsDBNull(dr("add1")) Then Stradd1 = (dr("add1"))
    If Not IsDBNull(dr("add2")) Then Stradd2 = (dr("add2"))
    If Not IsDBNull(dr("add3")) Then Stradd3 = (dr("add3"))
    If Not IsDBNull(dr("add4")) Then Stradd4 = (dr("add4"))
    If Not IsDBNull(dr("postcode")) Then Strpostcode = (dr("postcode"))
    If Not IsDBNull(dr("invno")) Then Strinvno = (dr("invno"))
    If Not IsDBNull(dr("docdate")) Then Strinvno = (dr("docdate"))
    If Not IsDBNull(dr("invoiceamt")) Then Strinvoiceamt = (dr("invoiceamt"))
    If Not IsDBNull(dr("vendor")) Then Strvendor = (dr("vendor"))
    If Not IsDBNull(dr("checkno")) Then Strcheckno = (dr("checkno"))
    If Not IsDBNull(dr("sname")) Then Strsname = (dr("sname"))
    If Not IsDBNull(dr("Grp")) Then StrGrp = (dr("Grp"))
    If Not IsDBNull(dr("GroupName")) Then StrGroupName = (dr("GroupName"))
    'Now write to the streamwriter, adding a space between the values 
    sw.WriteLine(Strpaydate + " " + " " + Strcheckamt + " " + Strname + " " + Stradd1 + " " + Stradd2 _" " + Stradd3 + " " + Stradd4 + " " + Strpostcode + " " + Strdocdate + " " + Strinvoiceamt + " " + Strvendor _" " + Strinvno + " " + " " + Strcheckno + " " + Strsname + " " + StrGrp + " " + StrGroupName)
    Next
     
    'Clean Up 
    sw.Flush()
    sw.Close()
     
    'Clean Up 
    objConn.Dispose()
    ds.Dispose()
    da.Dispose() 
    End If
    Last edited by HanneSThEGreaT; January 13th, 2010 at 05:17 PM. Reason: Code Tags!

  2. #2
    Join Date
    Jan 2006
    Location
    Chicago, IL
    Posts
    15,002

    Re: Formatting VB Script

    David

    CodeGuru Article: Bound Controls are Evil-VB6
    2013 Samples: MS CODE Samples

    CodeGuru Reviewer
    2006 Dell CSP
    2006, 2007 & 2008 MVP Visual Basic
    If your question has been answered satisfactorily, and it has been helpful, then, please, Rate this Post!

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


Windows Mobile Development Center


Click Here to Expand Forum to Full Width

This is a CodeGuru survey question.


Featured


HTML5 Development Center