Programming Forums - vb.net to VBScript

Programming Forums (http://www.programmingforums.org/forumindex.php)

- JavaScript and Client-Side Browser Scripting (http://www.programmingforums.org/forum23.html)

- - vb.net to VBScript (http://www.programmingforums.org/showthread.php?t=13048)

vb.net to VBScript

Is there an easy way to convert from VB.net to VBScript code? I'm just recently started getting some what good w/ VB.net, and i'm not entirely familiar w/ VBScript. Here's what I am doing in VB.net.

Dim strTag As String

        Dim intValue As Integer

        Dim objStreamW As IO.StreamWriter

        Dim tdNow As Date





        'Variable

        strTag = "L3Mas"

        intValue = 1



        'Writes info to file. 

        objStreamW = IO.File.AppendText("text.txt")

        objStreamW.Write(strTag & "|" & tdNow & "|")

        objStreamW.WriteLine(intValue)





        'Closes

        objStreamW.Close()



        Me.Close()

Should I even bother w/ putting that in VBScript. I figured it'd be easier to mass produce in script since i don't have alot of time to get this done.

what exactly are you trying to do?

All i am doing is writing a file to a server that looks like

" tagname|date time|value "

and naming the file based on what the tag name is. It's also formatting the date as requested by my boss.

I put the variables in there to make it to make duping it very easy. All this is being done in the load even of form1.

Just wanted to check back in with everyone. I doubt it matters much but I got things figured out. I started digging through the MSDN and here is what I came up with.

Dim fso, MyFile, strFileLoc

Dim currDate, currTime, currMonth, currMonAbr, currDay, currYear



strfileloc = "\\servername\location\testfile1.txt"

currDate = date

currTime = time

currDay = day(currdate)

currYear = year(currdate)

currMonth = Month(now)

currMonAbr = MonthName(currmonth, true)





   Set fso = CreateObject("Scripting.FileSystemObject")



   Set MyFile = fso.CreateTextFile(strFileLoc, True)



   MyFile.WriteLine("TagNameHere" & "|" & currDay & "-" & currMonabr & "-" & currYear & " " & currtime)



   MyFile.Close

I might still have to figure out how to change the time from 12 to 24 hour time. The only way I can figure that is to use the hour, min, and sec function then search the string for AM or PM and add 12 to the hour if necessary. Then finish the write w/ Hour & Min & Sec.

:)