Solved

Txt files to Excel report

Posted on 2003-12-01
7
328 Views
Last Modified: 2010-05-03
Hello,

I have three txt files, say file1, file2 and file3.

File1 has format like:

Name1     Data1
Name2     Data2
Name3     Data3
Name 4    Data4

File2 also has the same format, just that sometimes  Names could be more or less than file1

Name1    text1
Name3    text3
Name4    text4  
Name5   text5
(here Name2 is missing, but Name5 is added)

File3 also has the same format, just that sometimes it can have Names that are more or less than file1 and file2.

Name1   variable1
Name2   variable2
Name6    variable6
(Name3, Name4, Name5 missing and Name6 added).

I want to capture all the Names present in all the three files and format it into one output file with,
Name, Data, Text, Variable columns and show these as 4 columns in an excel spreadsheet.

My output in excel will look like:

Name1   Data1   text1   variable1  
Name2   Data2   -         variable2
Name3   Data3   text3   -  
Name4   Data4   text4   -
Name5   -          text5   -
Name6   -          -         variable6

Please advise.

Thanks

0
Comment
Question by:kamur
7 Comments
 
LVL 1

Expert Comment

by:MsLim
Comment Utility
Based on your subject txt file to excel , BUT based on your column asking in VB programming.
are you interest to use programming to combine it become one ?
if yes , then read in line by line from file save it into database  with Name and data.
upon complete , read line by line from file 2, search the Name with database . if exist update the field call text otherwise append new record for such name and text.
upon complete file 2, read line by line from file 3 , search the Name with databse , if exist update the field call variable , otherwise append new record for such name and variable.

Hope can give ideal for you .
0
 
LVL 1

Expert Comment

by:anand2k
Comment Utility
HI,

The other way u can do if u do not want use database then use array/collection for each file and load the data into it with one for final output.

U just have to add a logic to search in array/collection to not get duplicate.

Enjoy
anand
0
 
LVL 53

Expert Comment

by:Dhaest
Comment Utility
Some Remarks on this little procedure (copy and paste it: tools-macro-visual basic editor, doubleclick on this sheet)
1: dim strArray(5,3) --> it's possible to adjust the first number to the maximum in different names !
2: Open "c:\file1.txt"  --> set to the correct path (also file2 & file3)
3: I assumed that's ok that I set the data from cell A1 until....
4: I assumed that the data in the textfiles where separated by a ";" (fe: name1;data1)

Sub ImportFiles()
    Dim strArray(10, 3) As String
    Dim sTextLine As String
    Dim iFileNum As Integer
    Dim i, j As Integer
    Dim found As Boolean
    i = 0
    iFileNum = FreeFile
    ' IMPORT THE FIRST FILE INTO AN ARRAY
    Open "c:\file1.txt" For Input As #iFileNum   ' Open file.
    Line Input #iFileNum, textline
    Do While Not EOF(iFileNum)   ' Loop until end of file.
           ' Read line into variable.
        strArray(i, 0) = Left(textline, InStr(textline, ";") - 1)
        strArray(i, 1) = Mid(textline, InStr(textline, ";") + 1)
        i = i + 1
        Line Input #iFileNum, textline
    Loop
    Close #iFileNum   ' Close file.
    ' IMPORT THE SECOND FILE INTO AN ARRAY
    iFileNum = FreeFile
    Open "c:\file2.txt" For Input As #iFileNum   ' Open file.
    Do While Not EOF(iFileNum)   ' Loop until end of file.
        Line Input #iFileNum, textline   ' Read line into variable.
        j = 0
        found = False
        While j < UBound(strArray)
            If strArray(j, 0) = Left(textline, InStr(textline, ";") - 1) And strArray(j, 0) <> "" Then
               found = True
               num = j
               j = UBound(strArray)
            End If
            j = j + 1
        Wend
        If found = True Then
            strArray(num, 2) = Mid(textline, InStr(textline, ";") + 1)
        Else
            strArray(i, 0) = Left(textline, InStr(textline, ";") - 1)
            strArray(i, 1) = Mid(textline, InStr(textline, ";") + 1)
            i = i + 1
        End If
    Loop
    Close #iFileNum   ' Close file.
   
    ' IMPORT THE THIRD FILE INTO AN ARRAY
    iFileNum = FreeFile
    Open "c:\file3.txt" For Input As #iFileNum   ' Open file.
    Do While Not EOF(iFileNum)   ' Loop until end of file.
        Line Input #iFileNum, textline   ' Read line into variable.
        j = 0
        found = False
        While j < UBound(strArray)
            If strArray(j, 0) = Left(textline, InStr(textline, ";") - 1) And strArray(j, 0) <> "" Then
               found = True
               num = j
               j = UBound(strArray)
            End If
            j = j + 1
        Wend
        If found = True Then
            strArray(num, 3) = Mid(textline, InStr(textline, ";") + 1)
        Else
            strArray(i, 0) = Left(textline, InStr(textline, ";") - 1)
            strArray(i, 3) = Mid(textline, InStr(textline, ";") + 1)
            i = i + 1
        End If
    Loop
    Close #iFileNum   ' Close file.
    i = 0
    j = 0
    While strArray(i, 0) <> "" And i < UBound(strArray)
        For j = 0 To 3
            Me.Cells(i + 1, j + 1) = strArray(i, j)
        Next j
        i = i + 1
    Wend

End Sub
0
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 

Author Comment

by:kamur
Comment Utility
Dhaest,

I am getting the results as:

Name1      Data1      text1      variable1
Name2      Data2            variable2
Name3      Data3      text3      
Name4      text4              
Name5      text5            
Name6                  variable6

text4 and text5 are in wrong column.

Thanks

0
 
LVL 53

Accepted Solution

by:
Dhaest earned 500 total points
Comment Utility
My mistake...

' This line must change (file1.txt)
            strArray(i, 2) = Mid(textline, InStr(textline, ";") + 1)

COMPLETE CODE


Sub ImportFiles()
    Dim strArray(10, 3) As String
    Dim sTextLine As String
    Dim iFileNum As Integer
    Dim i, j As Integer
    Dim found As Boolean
    i = 0
    iFileNum = FreeFile
    ' IMPORT THE FIRST FILE INTO AN ARRAY
    Open "c:\file1.txt" For Input As #iFileNum   ' Open file.
    Line Input #iFileNum, textline
    Do While Not EOF(iFileNum)   ' Loop until end of file.
           ' Read line into variable.
        strArray(i, 0) = Left(textline, InStr(textline, ";") - 1)
        strArray(i, 1) = Mid(textline, InStr(textline, ";") + 1)
        i = i + 1
        Line Input #iFileNum, textline
    Loop
    Close #iFileNum   ' Close file.
    ' IMPORT THE SECOND FILE INTO AN ARRAY
    iFileNum = FreeFile
    Open "c:\file2.txt" For Input As #iFileNum   ' Open file.
    Do While Not EOF(iFileNum)   ' Loop until end of file.
        Line Input #iFileNum, textline   ' Read line into variable.
        j = 0
        found = False
        While j < UBound(strArray)
            If strArray(j, 0) = Left(textline, InStr(textline, ";") - 1) And strArray(j, 0) <> "" Then
               found = True
               num = j
               j = UBound(strArray)
            End If
            j = j + 1
        Wend
        If found = True Then
            strArray(num, 2) = Mid(textline, InStr(textline, ";") + 1)
        Else
            strArray(i, 0) = Left(textline, InStr(textline, ";") - 1)
            strArray(i, 2) = Mid(textline, InStr(textline, ";") + 1)
            i = i + 1
        End If
    Loop
    Close #iFileNum   ' Close file.
   
    ' IMPORT THE THIRD FILE INTO AN ARRAY
    iFileNum = FreeFile
    Open "c:\file3.txt" For Input As #iFileNum   ' Open file.
    Do While Not EOF(iFileNum)   ' Loop until end of file.
        Line Input #iFileNum, textline   ' Read line into variable.
        j = 0
        found = False
        While j < UBound(strArray)
            If strArray(j, 0) = Left(textline, InStr(textline, ";") - 1) And strArray(j, 0) <> "" Then
               found = True
               num = j
               j = UBound(strArray)
            End If
            j = j + 1
        Wend
        If found = True Then
            strArray(num, 3) = Mid(textline, InStr(textline, ";") + 1)
        Else
            strArray(i, 0) = Left(textline, InStr(textline, ";") - 1)
            strArray(i, 3) = Mid(textline, InStr(textline, ";") + 1)
            i = i + 1
        End If
    Loop
    Close #iFileNum   ' Close file.
    i = 0
    j = 0
    While strArray(i, 0) <> "" And i < UBound(strArray)
        For j = 0 To 3
            Me.Cells(i + 1, j + 1) = strArray(i, j)
        Next j
        i = i + 1
    Wend

End Sub

0
 

Author Comment

by:kamur
Comment Utility
Thanks Dhaest. It worked great.

Can I ask one more question on this...If I want to add a title at the top for each column, would that mess up the whole logic? Just a thought, not needed if it would be a major rewrite of the above code.

Thanks for the quick replies.
Regards


0
 
LVL 53

Expert Comment

by:Dhaest
Comment Utility
You only have to adjust the last part of the code:

i = 0
j = 0
While strArray(i, 0) <> "" And i < UBound(strArray)
    For j = 0 To 3
        Me.Cells(i + 1, j + 1) = strArray(i, j)
    Next j
    i = i + 1
Wend
Change this: Me.Cells(i + 1, j + 1) = strArray(i, j)
Into: Me.Cells(i + 2, j + 1) = strArray(i, j)
0

Featured Post

Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

Join & Write a Comment

Suggested Solutions

Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

772 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

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now