translation table

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

translation table

Logged in as: Guest

arrSession:exec spGetSession 2,2,61058

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> translation table
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

translation table - 6/4/2008 10:16:26 PM

SirBlade

Posts: 28
Score: 0
Joined: 1/11/2006
Status: offline

I got a table with 2 collums and a very large nr of rows, all values are unique. The table looks a bit like this:

abc,123
def,456
ghi,789
etc...

I want to make function where i use a value from the first collum as input and get the value from the 2nd collum as output. Which technique do I need to use to accomplish this. I'll need to do around 15000 lookups so I don't want to work through a .csv for every conversion.

Post #: 1

RE: translation table - 6/5/2008 12:18:02 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

Read the entire data structure into a dictionary.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to SirBlade)

Post #: 2

RE: translation table - 6/13/2008 4:11:51 AM

SirBlade

Posts: 28
Score: 0
Joined: 1/11/2006
Status: offline

Thx, the dictionary object worked perfectly. Here's the code I used for my test-application, maybe someone can use it.

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDictionary = CreateObject("Scripting.Dictionary")

'Create Dictionary using input files
File2Dict("File1.txt")
File2Dict("File2.txt")

'get SearchName
searchName = Lcase(Trim(inputbox("PLS enter name:")))
If isnull(searchName) or isempty(searchName) or SearchName = "" then
Wscript.Quit
End if

'Translate HesName to HvaName
ReturnName = TranslateName(searchname)
If isnull(ReturnName) or isempty(ReturnName) then
Wscript.Echo SearchName & " doesn't appear in dictionary."
Else
Wscript.Echo SearchName & VbTab & ReturnName
End if

'************************
'*** Subs & Functions ***
'************************

Function File2Dict(InputFile)
Set objFile = objFSO.OpenTextFile(InputFile, 1)
Do Until objFile.AtEndOfStream
 strLine = Trim(LCase(objFile.ReadLine))
 strline = replace(strline, Chr(34), "")
 CommaPos = instr(strLine, ",")
 HesName = Left(strLine, CommaPos - 1)
 HvaName = Mid(strLine, CommaPos + 1)
 If Not objDictionary.Exists(HesName) Then
  objDictionary.Add HesName, HvaName
 Else
  wscript.echo HvaName & " allready exists."
 End If
Loop
objFile.Close
End Function

'translate InputName to OutputName
Function TranslateName(InputName)
If objDictionary.Exists(InputName) Then
 TranslateName = objDictionary.Item(InputName)
End If
End Function

(in reply to ebgreen)

Post #: 3

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> translation table

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts