Solved

Read External File in VBScript

Posted on 2006-12-01
16
598 Views
Last Modified: 2010-08-05

Ok, this question it very simple just any one example.

I whant read one external file (Data.log). This file have four column and many lines like this.:

    First Name        Last Name     Movielphone            HomePhone
         Peter             Gomez     (305)555-5555        (305) 444-4444
         Anni              Gomez     (305)555-5555        (305) 444-4444

In this script have four variable   First Name, Last Name, Movielphone and  HomePhone. I need to read all value in my external file for create other process.
Example.:

WshS.run ".\delprofi.bat " & First Name & Last Name & Movielphone & HomePhone

Thanks

0
Comment
Question by:HelpDeskCentennialrd
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 9
  • 5
16 Comments
 
LVL 44

Expert Comment

by:Arthur_Wood
ID: 18054040
You can use the Windows Shell Runtime, using the FileSSystemObject:

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

you can learn about how to use the FileSystemObject at this Microsoft link:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/a3f17c7a-69a2-47d8-8b40-6a74646f4e1d.asp

and also, for the complete overview:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/0fa93e5b-b657-408d-9dd3-a43846037a0e.asp

AW
0
 

Author Comment

by:HelpDeskCentennialrd
ID: 18054367
Thanks for your comments but my questions it more How I can Read one external file and get the value for my variables if the data to be in columns like my example.
0
 
LVL 3

Expert Comment

by:JRockSolid
ID: 18054474
Are those tab delimited?  Ex   FirstName <TAB> LastName
0
Get 15 Days FREE Full-Featured Trial

Benefit from a mission critical IT monitoring with Monitis Premium or get it FREE for your entry level monitoring needs.
-Over 200,000 users
-More than 300,000 websites monitored
-Used in 197 countries
-Recommended by 98% of users

 
LVL 3

Expert Comment

by:JRockSolid
ID: 18054728
Does This Work
------------------------------Untested ...Very Busy today

Const objDBlist = "C:\text.txt"
Const ForReading = 1
Const BatchFile = "C:\Batch.bat"

Public LastName(),FirstName(),Movielphone(),HomePhone()
x=0
Set Wshell = CreateObject("Wscript.Shell")
Set objTextFile = objFSO.OpenTextFile(objPClist, ForReading) '1 ip or hostname per line
      Do Until objTextFile.AtEndOfStream
            strLine = Split(objTextFile.readline,VBtab)
            
            ReDim Preserve FirstName(x)
            ReDim Preserve LastName(x)
            ReDim Preserve Movielphone(x)
            ReDim Preserve HomePhone(x)
            
            LastName(x)= strLine(0)
            FirstName(x) = strLine(1)
            Movielphone(x) = strLine(2)
            HomePhone(x) = strLine(3)
            
            x = x + 1
      Loop
      
For z = 0 To (x -  1)
      Space = " "
      Arguments = Space & Firstname(z) & Space & LastName(z) & Space &  Movielphone(z) & Space & HomePhone(z)
      Wshell.Run (BatchFile & Arguments)
Next
------------------------------------------------------------
0
 

Author Comment

by:HelpDeskCentennialrd
ID: 18061122

Could you check this line ?

Set objTextFile = objFSO.OpenTextFile(objPClist, ForReading) '1 ip or hostname per line

0
 
LVL 3

Expert Comment

by:JRockSolid
ID: 18061233
What did it say when it Sorry, Made a few changes...That what happens when you rush :[
---------------------------
Const objDBlist = "C:\text.txt"
Const ForReading = 1
Const BatchFile = "C:\Batch.bat"

Public LastName(),FirstName(),Movielphone(),HomePhone()
x=0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set Wshell = CreateObject("Wscript.Shell")
Set objTextFile = objFSO.OpenTextFile(objDBlist, ForReading) '1 ip or hostname per line
     Do Until objTextFile.AtEndOfStream
          strLine = Split(objTextFile.readline,VBtab)
         
          ReDim Preserve FirstName(x)
          ReDim Preserve LastName(x)
          ReDim Preserve Movielphone(x)
          ReDim Preserve HomePhone(x)
         
          FirstName(x)= strLine(0)
          LastName(x) = strLine(1)
          Movielphone(x) = strLine(2)
          HomePhone(x) = strLine(3)
         
          x = x + 1
     Loop
     
For z = 0 To (x -  1)
     strSpace = " "
     Arguments = strSpace & Firstname(z) & strSpace & LastName(z) & strSpace &  Movielphone(z) & strSpace & HomePhone(z)
     Wshell.Run (BatchFile & Arguments)
Next
-------------------------------------------

Did you get watchdog?
0
 
LVL 3

Expert Comment

by:JRockSolid
ID: 18061251
A couple things about this script....
1) It assumes that these fields are seperated by TABS
2) If there is an empty line in your file ... It will blow up
3) If the files dont exist, it will blow up
4) If the user doesnt have permission to the file it will blow up
5) If there is a line with a missing entry it will blow up
6) If you strap a bomb to it, IT WILL BLOW UP!!!
0
 

Author Comment

by:HelpDeskCentennialrd
ID: 18073973
I supose when you say IT WILL BLOW UP you takin about this error?

LecturaFile.vbs(21, 11) Microsoft VBScript runtime error: Subscript out of range: '[number: 3]'
0
 

Author Comment

by:HelpDeskCentennialrd
ID: 18073993
yes, i have my copy of watdog
0
 
LVL 3

Expert Comment

by:JRockSolid
ID: 18074035
No, if none of those situations were met then it is something unaccounted for.
Tell me your line 21 so I can sync up with yours.
0
 
LVL 3

Expert Comment

by:JRockSolid
ID: 18074051
If it is where i think it is then double check these:

1) It assumes that these fields are seperated by TABS
2) If there is an empty line in your file ... It will blow up
0
 
LVL 3

Expert Comment

by:JRockSolid
ID: 18074057
AND

All 4 fields must be present :

First Name<TAB>Last Name<TAB>Movielphone<TAB>HomePhone
0
 
LVL 3

Accepted Solution

by:
JRockSolid earned 25 total points
ID: 18217200
Yes, I have interest in this and no points was not what i had in mind.  I thought more like.... A response and another solution if he didnt have tab delimeted files, but definately NOT no points.
0
 

Author Comment

by:HelpDeskCentennialrd
ID: 18219122

If i want to ski the errors, what can I do.?
0
 
LVL 3

Expert Comment

by:JRockSolid
ID: 18220111
Get some skis and jump dude?!?!  I am unsure of what you want here. If there were errors or problems you could give the experts chances to fix them and if you dont its on you.  On the other hand if i have completely misunderstood your comment I am sorry.
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

There is an easy way, in .NET, to centralize the treatment of all unexpected errors. First of all, instead of launching the application directly in a Form, you need first to write a Sub called Main, in a module. Then, set the Startup Object to th…
Windows Script Host (WSH) has been part of Windows since Windows NT4. Windows Script Host provides architecture for building dynamic scripts that consist of a core object model, scripting hosts, and scripting engines. The key components of Window…
The viewer will be introduced to the member functions push_back and pop_back of the vector class. The video will teach the difference between the two as well as how to use each one along with its functionality.
This video will show you how to get GIT to work in Eclipse.   It will walk you through how to install the EGit plugin in eclipse and how to checkout an existing repository.

623 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question