Code:
Dim v1, v2, v3
Dim strSql As String
Dim strFilename As String
Dim strTextLine As String
Dim iFile As Integer
iFile = FreeFile
strFilename = Me.FileN 'substitute the path to file
Open strFilename For Input As #iFile
Do Until EOF(1)
Line Input #1, strTextLine
If InStr(1, strTextLine, "Item rdc_nbr=") Then
v1 = Mid(strTextLine, 15, 4)
v2 = Mid(strTextLine, 29, 8)
v3 = Replace(Mid(strTextLine, 48, InStrRev(strTextLine, """")), "/>", "")
strSql = "Insert into YourTable(Field1,Field2,Field3) values(" & v1 & "," & v2 & "," & v3 & ")" ' insert your table and field names
' Currentdb.Execute strSql,dbFailOnError
Debug.Print strSql
End If
Loop
Close #iFile
Result:
Code:
Insert into YourTable(Field1,Field2,Field3) values("01","100008","0")
Insert into YourTable(Field1,Field2,Field3) values("02","100008","0")
Insert into YourTable(Field1,Field2,Field3) values("03","100008","0")
Insert into YourTable(Field1,Field2,Field3) values("04","100008","0")
Insert into YourTable(Field1,Field2,Field3) values("07","100008","0")
Insert into YourTable(Field1,Field2,Field3) values("08","100008","0")
Insert into YourTable(Field1,Field2,Field3) values("09","100008","0")
Insert into YourTable(Field1,Field2,Field3) values("10","100008","0")
Insert into YourTable(Field1,Field2,Field3) values("12","100008","0")
Insert into YourTable(Field1,Field2,Field3) values("13","100008","0")
Insert into YourTable(Field1,Field2,Field3) values("26","100008","0")
Insert into YourTable(Field1,Field2,Field3) values("01","100024","0")
Insert into YourTable(Field1,Field2,Field3) values("02","100024","0")
Insert into YourTable(Field1,Field2,Field3) values("03","100024","0")
Insert into YourTable(Field1,Field2,Field3) values("04","100024","10")
Insert into YourTable(Field1,Field2,Field3) values("07","100024","0")
Insert into YourTable(Field1,Field2,Field3) values("08","100024","17")