解析此文件的最佳方法是什么?

时间:2008-10-02 06:23:38

标签: vb.net parsing fileparse

我只是想知道是否有人知道我可以在帖子底部解析文件的好方法。

我有一个数据库设置,每个部分都有正确的表格,例如Refferal Table,Caller Table,Location Table。每个表都有相同的列,显示在下面的文件中

我真的很喜欢一些相当遗传的东西,所以如果文件布局发生变化,它就不会让我感到困惑。目前我只是一行读取文件,只是使用case语句来检查我所在的部分。

有人能帮助我吗?

PS。我正在使用VB但C#或其他任何东西都没问题,文档中的x也只是个人信息我已经空白

谢谢, 森

文件:--->

DIAL BEFORE YOU DIG
Call 1100, Fax 1300 652 077
PO Box 7710 MELBOURNE, VIC 8004

Utilities are requested to respond within 2 working days and reference the Sequence number.

[REFFERAL DETAILS]
FROM=                 Dial Before You Dig - Web
TO=                   Technical Services
UTILITY ID=           xxxxxx
COMPANY=              {Company Name}
ENQUIRY DATE=         02/10/2008 13:53
COMMENCEMENT DATE=    06/10/2008
SEQUENCE NO=          xxxxxxxxx
PLANNING=             No

[CALLER DETAILS]
CUSTOMER ID=          403552
CONTACT NAME=         {Name of Contact}
CONTACT HOURS=        0
COMPANY=              Underground Utility Locating
ADDRESS=              {Address}
SUBURB=               {Suburb}
STATE=                {State}
POSTCODE=             4350
TELEPHONE=            xxxxxxxxxx
MOBILE=               xxxxxxxxxx
FAX TYPE=             Private
FAX NUMBER=           xxxxxxxxxx
PUBLIC ADDRESS=       xxxxxxxxxx
PUBLIC TELEPHONE=
EMAIL ADDRESS=        {Email Address}

[LOCATION DETAILS]
ADDRESS=              {Location Address}
SUBURB=               {Location Suburb}
STATE=                xxx
POSTCODE=             xxx
DEPOSITED PLAN NO=    0
SECTION & HUNDRED NO= 0
PROPERTY PHONE NO=
SIDE OF STREET=       B
INTERSECTION=         xxxxxx
DISTANCE=             0-200m B
ACTIVITY CODE=        15
ACTIVITY DESCRIPTION= xxxxxxxxxxxxxxxxxx
MAP TYPE=             StateGrid
MAP REF=              Q851_63
MAP PAGE=
MAP GRID 1=
MAP GRID 2=
MAP GRID 3=
MAP GRID 4=
MAP GRID 5=
GPS X COORD=
GPS Y COORD=
PRIVATE/ROAD/BOTH=    B
TRAFFIC AFFECTED=     No
NOTIFICATION NO=      3082321
MESSAGE=              entire intersection of Allora-Clifton rd , Hillside
rd and merivale st

MOCSMESSAGE=          Digsafe generated referral

Notice: Please DO NOT REPLY TO THIS EMAIL as it has been automatically generated and replies are not monitored. Should you wish to advise Dial Before You Dig of any issues with this enquiry, please Call 1100

(See attached file: 3082321_LLGDA94.GML)

4 个答案:

答案 0 :(得分:5)

Google has the answers,一旦你知道文件格式被称为'.ini'

编辑:也就是说,它是一个.ini加上一些额外的领先/尾随垃圾。

答案 1 :(得分:4)

您可以按顺序读取文件的每一行。每一行基本上都是名称对。将每个值放在按名称键入的映射(哈希表)中。为每个部分使用地图。解析完文件后,您将拥有包含所有名称值对的映射。迭代每个映射并填充数据库表。

答案 2 :(得分:2)

我会前往Python进行任何类型的字符串解析。我不确定你想要保留多少这些信息,但我可能会使用Python的split()函数在=上拆分以除去等号,然后将空格从空格中删除第二块馅饼。

首先,我会屏蔽我知道不需要的页眉/页脚信息,然后执行类似于以下操作的内容:

我们拿一块并将其保存在test1.txt

ADDRESS=              {Location Address}
SUBURB=               {Location Suburb}
STATE=                xxx
POSTCODE=             xxx
DEPOSITED PLAN NO=    0
SECTION & HUNDRED NO= 0
PROPERTY PHONE NO=

这是一个小的python片段:

>>> f = open("test1.txt", "r")
>>> l = f.readlines()
>>> l = [line.split('=') for line in l]
>>> for line in l:
    print line

['ADDRESS', '{Location Address}']
['SUBURB', '{Location Suburb}']
['STATE', 'xxx']
['POSTCODE', 'xxx']
['DEPOSITED PLAN NO', '0']
['SECTION & HUNDRED NO', '0']
['PROPERTY PHONE NO', '']

这实际上会为您提供一个[Column,Value]元组,您可以使用它将数据插入数据库(在转义所有字符串等之后,SQL注入警告)。

这假设电子邮件输入和您的数据库将具有相同的列名,但如果他们没有,则使用字典设置列映射相当简单。另一方面,如果电子邮件和列是同步的,则无需知道列的名称即可解析。

您可以遍历伪字典并在参数化的sql字符串中的正确位置打印出每个键值对。

希望这有帮助!

编辑:虽然这是在Python中,但C#/ VB.net应具有相同/相似的能力。

答案 3 :(得分:1)

Using f As StreamReader = File.OpenText("sample.txt")
    Dim g As String = "undefined"
    Do
        Dim s As String = f.ReadLine
        If s Is Nothing Then Exit Do
        s = s.Replace(Chr(9), " ")
        If s.StartsWith("[") And s.EndsWith("]") Then
            g = s.Substring("[".Length, s.Length - "[]".Length)
        Else
            Dim ss() As String = s.Split(New Char() {"="c}, 2)
            If ss.Length = 2 Then
                Console.WriteLine("{0}.{1}={2}", g, Trim(ss(0)), Trim(ss(1)))
            End If
        End If
    Loop
End Using