Readin line after line of a memo field in VBA

[Guest]

I need to search for a specific string on each line in a memo field :

XXXAAAXXXXXXXXXXXXXXX
XXXXXXXXXXAAAXXXXXXXX
XXXXXXXXXXXXXXXXXXXXX

Searching "AAA" would return True for line 1 & 2 and False for line 3. In
other word How do I read line after line of a memo field and process my code
in VBA ?

Is there already done ? Any help would be welcome

 

[Douglas J Steele]

Assuming you're using Access 2000 or newer, store the value in a variable,
and use the Split function to break it into its individual lines. The
following untested aircode should do it:

Dim intLoop As Integer
Dim strMemo As String
Dim strOutput As String
Dim varLines As Variant

strMemo = Me.MyMemoField
varLines = Split(strMemo, vbCrLf)

If IsNull(varLines) = False Then
For intLoop = LBound(varLines) To UBound(varLines)
If InStr(varLines(intLoop), "AAA") > 0 Then
strOutput = strOutput & "AAA appears on line " & intLoop + 1 &
vbCrLf
End If
Next intLoop
Else
strOutput = "Nothing to search."
End If

MsgBox strOutput

 

[Guest]

Thanks it worked perfectly. I realised that in another application, reading
line after line does not make sens. In the same idea, How do you count string
occurences of a string in a memo field ?

XXXAAAXXXXXXXXXXXXXXXXXXXXXXXXXXAAAXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXAAAAXXXXXXXXXXXXXXXXXXXXXXXXXXXAAAXXX
--> Found 4 "AAA".

 

[Douglas J Steele]

Take a look at my April, 2004 "Access Answers" column in Pinnacle
Publication's "Smart Access"

You can download the column (and sample database) for free at
http://www.accessmvp.com/djsteele/SmartAccess.html