Parsing Tilde Delimited Memo Field

[rmoreno]

Hi, I need help with a table generated by some equipment we use here at work. There is a table named TestGrp which has two fields titled [ResutT] and [TestGroupParams]. What I would like is to create a table named TP_TestGrp and extract specific info from a 67 element tilde delimited memo field named TestGrp.[TestGroupParams] and put them into a created table named TP_TestGrp. This table needs to update automatically if the TestGrp table is modified. Can anyone help please.

[June7]

Looks like the import wizard can't just use the tilde as separator value because the data are expressions. This is rotten export structure.

I think this will require VBA procedure that opens a recordset of the source data, parses the string, then saves records to destination table. Something like:

Dim strResultT As String
Dim strAry As Variant
Dim i As Integer
Dim rsSource As DAO.Recordset
Dim rsDest As DAO.Recordset
strResultT = 'how will the value be obtained - reference to control on form or InputBox prompt user for input - I recommend a form
Set rsSource = CurrentDb.OpenRecordset("SELECT * FROM TestGrp WHERE ResultT = '" & strResultT & "';")
Set rsDest = CurrentDb.OpenRecordset("SELECT * FROM TP_TestGrp;")
While Not rsSource.EOF
strAry = Split(rsSource!TestGroupParams,"~")
rsDest.AddNew
rsDest.TP_ResultT = strResultT
For i = 0 to 66
rsDest.Fields("Data" & i + 1) = Mid(strAry(i), InStr(strAry(i), "=") + 1)
Next
rsSource.MoveNext
Wend
rsDest.Update

Will there be requirement to edit existing record with the import values or will only always be new records?