Parse and Import from txt file

[nat1967]

Well, here is a puzzle that I hope someone can help me with.

I have a text file that is provided to me that has data in it. This data needs to be imported to a A2K database. Here is a piece of the text file.

---------------- Begin Report --------------------
UserID : gysglqr
Total Number of Input Files : 0
Total Number of Response Files : 0

Input Filenames With Responses :
------------- End Report for gysglqr -------------


If I import this information using the import function <file/import>, the data is in one field in the table. Therefore, I need to be able to parse information in the text file and put the data in named data fields in a table.

The fields are UserID, TotalInput, TotalResponse, InputResponse. As you see above in the sample text file, my naming convention is taken directly from the text file for ease of understanding.

I need to grab the data to the right hand side of the ) and put it in the table with the corrosponding field.

Does anyone have any suggestions?

TIA Please give helpful posts the Stars they deserve. It makes the post more visible for others

Nathan
Senior Test Lead

 

[SBendBuckeye]

Hello Nathan,

Assuming you have consistent input as shown, read your text file a line at a time and do something like the following:

Private Sub ParseData(pstrLOT As String) 'LineOfText
Dim strTemp As String
DIm intTemp As Integer
If Instr(pstrLineOfText, &quot;UserID&quot Then
strTemp = Trim$(Mid$(pstrLOT, Instr(pstrLOT) + 1))
TableFieldNameUserID = strTemp
End If

Do similar logic for the other fields. If you need them to be numeric values, just slap a Val() around the trimmed text data you parse out.

Hope this helps! Good Luck! Please remember to give helpful posts the stars they deserve! This makes the post more visible to others in need!