Split Function

VBScript Split Function

The VBScript split function makes easy work out of searching text files for information. This function separates each line by a character, chosen by the programmer, and places each word in the line as an item in an array.

For example, the comma is commonly used to separate csv files. Each line in the csv file can be separated and placed in an array. Any other method within vbscript would require calling out a number of characters from the left or right or looking for specific strings within the line.

The split function in VBScript is a handy function that should be considered by programmers who want to create an array out of a text file which is separated by comma, colon, or even spaces. All can be handled with the split function.

split VBScript Code

split Code
split Code | Source

Animal Text File

Text File
Text File | Source

Create Text File

Go to Start-->All Programs-->Accessories-->Notepad. Go to File-->Save As and save the file as “C:\Temp\animals.csv”. Copy the line containing the animals into the animals.txt file by selecting the line, pressing “Ctrl” + “C”, then selecting in the animals.txt file and pressing “Ctrl” + “V” . dog,cat,horse,cow,pig,goat,sheep,chicken,bird,mouse

Select File-->Save within Notepad. Exit Notepad

Create Split Function VBScript

Go to Start-->All Programs-->Accessories-->Notepad. Go to File-->Save As and save the file as “C:\Temp\split.vbs”. Adding the .vbs file extension creates an executable VBScript file. Copy the following code into the split.vbs file by selecting the code just to the left of “Option Explicit”, dragging the cursor just to the right of “WScript.Quit(), press “Ctrl” + “C”, select within the split.vbs file, then press“Ctrl” + “V”. Select File-->Save within Notepad. Exit Notepad

Option Explicit

'Define Variables

Dim fso

Dim wshShell

Dim objTextFile

Dim animalArray

Dim strLine

Dim i

'Set Objects

Set fso = CreateObject("Scripting.FileSystemObject")

Set wshShell = CreateObject("WScript.Shell")

Set objTextFile = fso.OpenTextFile ("C:\temp\animals.txt",1,false)

'Read animals.txt file.

strLine = objTextFile.Readline

'Setup array using "split".

animalArray = split(strLine,",")

For i = 0 to Ubound(animalArray)

Next

'Display Messagebox

wscript.echo "I ride my " & animalArray(2) & " and milk my " & animalArray(3) & "."

'Close animals.txt file

objTextFile.close

'Cleanup Objects

Set fso = Nothing

Set wshShell = Nothing

Set objTextFile = Nothing

WScript.Quit()

VBScript Messagebox

Messagebox
Messagebox | Source

Numbered Animals Text File

Numbered Animals Text File
Numbered Animals Text File | Source

Run the VBScript to demonstrate the split function.

Navigate to “C:\Temp\” and double click on the split.vbs file. A message will pop up stating that I ride my horse and milk my cow. The VBScript is reading the text file, dividing the line by commas and making each word an item in the array. Since arrays start with 0, the third item in the array is labeled with a 2. The picture to the right actually shows how the items are numbered by the array.

More by this Author


Comments

No comments yet.

    Sign in or sign up and post using a HubPages Network account.

    0 of 8192 characters used
    Post Comment

    No HTML is allowed in comments, but URLs will be hyperlinked. Comments are not for promoting your articles or other sites.


    Click to Rate This Article
    working