Split data in GML file into Excel file

Hello,

I have a GML file, please find it attached.  I was wondering if there is an automated way in Excel to parse the data in the file.  So all I need from the GML file is the Source and Destination data.  I would like to create two columns in an Excel, one that says Source and once that says Destination.  I would like to insert the source and destination data from the GML file into those respective columns in the Excel file.  But I have to be sure that they match what is the GML file.

Does anybody know of an automated way to do this, as I am sure there is one.

Thank You.
LVL 2
navid86Asked:
Who is Participating?
 
aikimarkConnect With a Mentor Commented:
closer?
Q-27664592.xls
0
 
aikimarkCommented:
please post a sample copy of the GML file.
0
 
navid86Author Commented:
I apologize, forgot to post it.  I am posting it in Excel file format, because EE won't accept .GML attachment.  All I did was just copy and paste from GML file into column a of Excel.
book1.xlsx
0
Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

 
aikimarkCommented:
@navid86

Does this version of the file look like what you see?
Q-27664592.txt
0
 
navid86Author Commented:
Yes, thats exactly what I see in the GML file.
0
 
aikimarkCommented:
Do you mean the values that follow the source and target strings?
0
 
navid86Author Commented:
yeah so I would like one column to say source and the other target.  Then add the corresponding values to the column.  So an example from the GML file is this:

    source 1435
    target 1278

I would like it to be in two columns in excel like this.

Source          Target
1435             1278

Just have to make sure that those values match up with what is in the txt file, like make sure 1435's target is 1278.
0
 
aikimarkCommented:
something like this?
Q-27664592.xls
0
 
navid86Author Commented:
Yes, except is there anyway to make the column headings source and target and remove source and target from the rows and just leave the numbers?
0
 
aikimarkCommented:
I thought that's what I posted
0
 
navid86Author Commented:
Sorry, didnt see your second post.  Thank you very much for your help!  Just so I know for future reference how did you do this?
0
 
aikimarkConnect With a Mentor Commented:
I did this manually
* import as fixed text, starting with the "source" string column, not importing the first column.
* fill right two columns
* add a new worksheet
* copy the second column into the new worksheet
* Select the usedrange cells and apply an autofilter
* do a custom filter (does not begin with s)
* Delete the rows
* copy the column back to the original worksheet
* repeat for the third column, with a different custom filter (does not begin with t)
In the original worksheet
* select the second column
* Edit replace all "source " with nothing
* select the third column
* Edit replace all "target " with nothing
* change the column headers for the second and third columns to source and target
* delete the first column
* Save As Excel format

===================
If you need to do this on multiple occasions, you could record a macro with these steps or you could create some VBA code to do this programmatically with a different process.
0
 
navid86Author Commented:
great thank you!
0
 
aikimarkCommented:
Here is an example of a code-centric solution.

Option Explicit

Public Sub ParseSourceTarget()
    Dim wks As Worksheet
    Dim rng As Range
    Dim rngCell As Range
    Dim rngTgt As Range
    
    Set wks = ActiveSheet
    Set rng = wks.UsedRange
    Set rngTgt = wks.Range("B2")
    
    Application.ScreenUpdating = False
    
    For Each rngCell In rng
        Select Case True
            Case rngCell.Value Like "*source #*"
                rngTgt.Value = Split(rngCell.Value, "source ")(1)
            Case rngCell.Value Like "*target #*"
                rngTgt.Offset(0, 1).Value = Split(rngCell.Value, "target ")(1)
                Set rngTgt = rngTgt.Offset(1)
        End Select
    Next
    
    wks.Range("B1").Value = "source"
    wks.Range("C1").Value = "target"
    wks.Range("A:A").EntireColumn.Delete
    
    Application.ScreenUpdating = True
End Sub

Open in new window

0
 
aikimarkCommented:
in the code-centric solution, I read the file as fixed text with a single column, starting with the first column.
0
 
navid86Author Commented:
Cool, thanks for taking the time to post the VBA code.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.