How to search? 1

[aida]

Hello....
My question is:
1. I have a text area in which the user will enter text. The text will be stored in a database (oracle). I want to create a function that can check the character the user enter. For example if the character is * then the character will be stored as ***** in database. The program then continue look at each character in the text and store it as above in the database.

How to do that?
Thank You
Aida

 

[swilliams]

Dim sEntry
Dim sNewEntry
Dim lLenEntry
Dim i

sLenEntry = Len(sEntry)
For i = 1 To lLenEntry
If Mid(sEntry,i,1) = "*" Then
sNewEntry = sNewEntry & "*****"
Else
sNewEntry = sNewEntry & Mid(sEntry,i,1)
End If
Next

Then, write sNewEntry to the database, instead of sEntry.

Alternatively, you can use InStr to check for the existence of an * and use the loop

Dim lAsterixFound
lAsterixFound = InStr(sEntry,"*&quot
Do Until lAsterixFound = 0
' process the string using Left / Mid
lAsterixFound = InStr(lAsterixFound+1,sEntry,"*&quot
Loop

Simon