【问题】

I've came up with a bit of code that extracts certain values in a text file using VBA. I need it to loop as many times as the expression'INFORMATION DE BASE ET DONNÉES DE CALCUL'appear in the text file. Here's my code so far:

 

exemple of text file:

INFORMATION DE BASE ET DONNÉES DE CALCUL 

 

Nom de l'individu ................. Louis Boutel 

Sexe .............................. Homme 

Numéro d'assurance sociale  ....... 323-423-123 

No employé ........................ 14023 

Date de naissance ................. 1969-03-22 

Date d'emploi ..................... 1998-09-28 

 

INFORMATION DE BASE ET DONNÉES DE CALCUL 

 

Nom de l'individu ................. Morin laprise 

Sexe .............................. Homme 

Numéro d'assurance sociale  ....... 123-012-012 

No employé ........................ 14023 

Date de naissance ................. 1959-06-14

Date d'emploi ..................... 1996-10-22 

 

 

I Expected to have in Excel:

INFORMATION DE BASE ET DONNÉES DE CALCUL 

Date d'emploi 1998-09-28 

INFORMATION DE BASE ET DONNÉES DE CALCUL 

Date d'emploi 1996-10-22 

 

 

Code:

Sub test()

Dim myFile As String, text As String, textline As String, DDC As Integer, i As Integer, sArray(4) As String

 

myFile = "C:\Users\mark\Desktop\C0010DET.txt"

Open myFile For Input As #1

Do Until EOF(1)

    Line Input #1, textline

     text = text & textline

Loop

Close #1

 

 

    i = 1

 

    Dim vItm As Variant

    Dim aStrings(1 To 2) As String

 

    aStrings(1) = "INFORMATION DE BASE ET DONNÉES DE CALCUL": aStrings(2) = "INFORMATION DE BASE ET DONNÉES DE CALCUL"

 

    For Each vItm In aStrings

        DDC = InStr(text, "Date d'emploi")

        Cells(i + 1, 1).Value = Mid(text, DDC, 14)

        Cells(i + 1, 2).Value = Mid(text, DDC + 36, 10)

        Next vItm

 

End Sub

 

 

Do you know how I could run this sequence using a loop so I can retrieve all information needed?

【回答】

按开头字符可分组，每组相当于一条记录，再合并各组第1和第8个成员可得到结果。该算法涉及分组运算和有序运算，VBA虽可实现但难度较大。如无特殊要求可用SPL实现，代码简单易懂：

	A
1	=file("d:\\data.txt").import@si()
2	=A1.group@i(left(~,11)=="INFORMATION")
3	=A2.conj(~(1)|~(8))
4	=file("d:\\result.xlsx").xlsexport(A3)

 

A1：读取data.txt文件的内容。

A2：分组，将第一列以"INFORMATION"开头直到下一个以"INFORMATION"开头的数据分为一组。

A3：再合并各组第1个和第8个成员。

A4：将A3结果导出到指定的Excel文件。