Build Array from String, Count Each Element Index

myStr = "this sentence is just fine"

msg = Split(myStr)

numStr = UBound(msg) + 1

MsgBox numStr

'For Each word In msg
' MsgBox word
' If word = "is" Then
' MsgBox msg(word)
' End If
'Next


For x = LBound(msg) To UBound(msg)
MsgBox msg(x) & " " & x
If x <> UBound(msg) Then
MsgBox msg(x+1)
End If
Next

Parse File, Write to a Different File

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\test2.txt", ForReading)

Set objWrite = objFSO.OpenTextFile("C:\Scripts\output.txt", 2)

Dim arrFileLines()

i = 0

Do Until objFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop

objFile.Close

For Each strLine in arrFileLines
MyArray = Split(strLine, ".", -1, 1)
Msg = MyArray(0)
Msgbox Msg

objWrite.WriteLine("<a href=""https://comp.service-now.com/GOTO=" & Msg & Chr(34) & ">" _
& Msg & "</a>" & "</p>" & vbCrLf)

' objWrite.WriteLine("=HYPERLINK(""https://comp.service-now.com/GOTO=" & Msg _
' & Chr(34) & "" & ",""Click Here"")")

' objWrite.WriteLine("https://comp.service-now.com/GOTO=" & Msg)

Next

Using VMware ESXi 5.5 for Virtual Networking Labs

Spent the past few weeks putting this together. Wanted to pull all the disjointed silos of information together into a single document.

Enjoy.

PDF (25 MB)
ESXi 5.5 Setup How To (Signed).pdf