Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win


looking for vbscript for reading text file info then compare excel columns and write back to another text file.

Posted on 2011-03-24
Medium Priority
Last Modified: 2012-05-11
I've been searching around but thought I would ask.
I'm looking for a way to loop through a text file (servernames) and find the same name
in an excel file. Once the name is found (like in column B) then jump over to a certain column
(like column E) and take that info (column E) and write it back into another text file.

Question by:aev2061
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
  • 5
  • 5
LVL 58

Expert Comment

by:Bill Prew
ID: 35212191
Approximately how many rows will be in the Excel file?

Are there any header rows in the Excel file?

Can you provide sample files for testing?


Author Comment

ID: 35212421
Well there is no way to control that. It could be 20 or 200. One thing I also have is multiple worksheets (tabs). See an example xls I uploaded.
I'm looking to read the servername in the text file then find the server in column B (who knows which tab) and once the server is found output Column E to another text file.

LVL 58

Expert Comment

by:Bill Prew
ID: 35212481
So are you saying that the script would actually have to search all tabs in the excel file?

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.


Author Comment

ID: 35212494
LVL 58

Expert Comment

by:Bill Prew
ID: 35218612
Okay, here's a VBS approach, save as a VBS file and adjust the paths at the top.

One thing I'm not clear on is if the server names can be the same on different tabs.  In your example they were, but if that is true then how would be know which one to match to the lines read from the servers text file?  I'm think you may have just done that for quick sample data, but let me know.

Option Explicit

' Define Needed constants
Const cForReading = 1
Const cForWriting = 2
Const xlUp = -4162
Const cExcelFile = "X:\EE\EE26910401\Inventory.xls"
Const cTextFile = "X:\EE\EE26910401\servers.txt"
Const cOutFile = "X:\EE\EE26910401\merged.txt"

' Define needed variables
Dim oFSO, oExcel, oMaster, oSheet, oInFile, oOutFile, dCount, iSheet, iRow, sKey, sData

' Create file system object
Set oFSO = CreateObject("Scripting.FileSystemObject")

' Create dictionary to load excel data into
Set dCount = CreateObject("Scripting.Dictionary")

' Open Excel worksheet
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = False
Set oMaster = oExcel.Workbooks.Open(cExcelFile, False, False)

' Load data from all sheets in excel workbook
For iSheet = 1 To oMaster.Sheets.Count
    Set oSheet = oMaster.Sheets(iSheet)
    For iRow = 2 To oSheet.Cells(65536, "B").End(xlUp).Row
        sKey = oSheet.Cells(iRow, "B").Value
        sData = oSheet.Cells(iRow, "E").Value
        if dCount.Exists(sKey) Then
            ' What do we do about duplicates???
            dCount.Add sKey, sData
        End If

' Process list of servers from text file
Set oInFile = oFSO.OpenTextFile(cTextFile, cForReading)
Set oOutFile = oFSO.OpenTextFile(cOutFile, cForWriting, True)

' Read input lines, look for matching key from excel data, output corresponding data
Do Until oInFile.AtEndOfStream
    sKey = oInFile.Readline
    If dCount.Exists(sKey) Then
        oOutFile.WriteLine sKey & "," & dCount.Item(sKey)
        oOutFile.WriteLine sKey & ",MISSING"
    End If

' Close input and output files

Open in new window


Author Comment

ID: 35219868
No, the servers will be different from tab to tab and yes, It was a quick example.
So looking forward once the script found a match how would I grab 2 or more items to pull out into the merged.txt? Would I just add in another sData = oSheet.Cells(iRow, "Whatever Row I needed").Value

Also this is great. I can't thank you enough!
LVL 58

Expert Comment

by:Bill Prew
ID: 35220064
To pull data from multiple columns just concatenate the values together as in this example:

        sData = oSheet.Cells(iRow, "E").Value & "," & _
                oSheet.Cells(iRow, "A").Value & "," & _
                oSheet.Cells(iRow, "C").Value

Open in new window

This will output the values from columns E, A and C for each server, as in:


Open in new window


Author Comment

ID: 35220135
Cool!... Thanks so very much...
LVL 58

Accepted Solution

Bill Prew earned 2000 total points
ID: 35220145
I think the poster has closed this question wrong, and likely meant to accept my last post as the solution.


Author Closing Comment

ID: 35220225
That is correct... I accepted the solution.. and I did add this to the knowledge base..

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Introduction During my participation as a VBScript contributor at Experts Exchange, one of the most common questions I come across is this: "I have a script that runs against only one computer. How can I make it run against a list of computers in …
Not long ago I saw a question in the VB Script forum that I thought would not take much time. You can read that question (Question ID  (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_28455246.html)28455246) Here (http…
This tutorial will teach you the special effect of super speed similar to the fictional character Wally West aka "The Flash" After Shake : http://www.videocopilot.net/presets/after_shake/ All lightning effects with instructions : http://www.mediaf…
We’ve all felt that sense of false security before—locking down external access to a database or component and feeling like we’ve done all we need to do to secure company data. But that feeling is fleeting. Attacks these days can happen in many w…

618 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