Hi guys,

Is there a way that I can compare a string against a list to see if it mathces and if it does change that string?.

This is what I have:

   WORD LIST ABBREVIATION
ASSIGNMENT ASGMT
ASSIGNMENT ONE ASGMT O
ASSIGNMENT TWO ASGMT T
ONE ON
TWO TO

I have to compare the word list column against the string and replace that word or words for the abbreviation. Let say that my string is: ASSIGNMENT ONE 99876

If I use REPLACE ("ASSIGNMENT ONE 99876", WORD LIST, ABBREVIATION) I get this result : ASGMT ONE 99876 instead of ASGMT O 99876

if I use "ASSIGNMENT ONE 99876 = WORD LIST" nothing happens because the whole string is not on the list

I was thinking of something as an exact match but I can't find anything on the net.

Any Ideas I'll appreciate it...

Thanks!

=======================
Strange and crazy, but everything is possible

__________________
=======================
Strange and crazy, but everything is possible

Hi there..

are you passing the whole list to the replace function?? is there a overcharged method that I don't remember???

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========

Hi gbianchi,

Yes I have to compare the whole list of words against the string and replace the words as I find them.

=======================
Strange and crazy, but everything is possible

ok.. you are in vb6?? replace parameters are:
string to look into
string to change
string to change to...

so would like to see have are you coding this. Also your aproach has a very good problem in your test case, because it will try to replace the string in orders it found, making it fail because you have 2 origin string that start the same...

your example was good from the point of view of vb(it replace the string).. replace only look for strings.. not tables or arrays of examples..

did you follow me??



HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========

gbianchi,

The list is in memory as an array, after the user has done the input I use the Lost Focus event fro that text box then I compare every item fom the list agaist the string and I replace the word using the replace function.

This is the code I have:

Private Sub txtIndex4_LostFocus()
Dim intSearch As Integer
        txtIndex4.Text = Replace(UCase(txtIndex4.Text), "'", "")
        For intSearch = 0 To intListCount
            If Trim(txtIndex4.Text) = strWordAbbreviations(intSearch, 1) Then
                txtIndex4.Text = strWordAbbreviations(intSearch, 2)
            End If
        Next intSearch
        Call constructIndex
end sub
Private Sub constructIndex()

Dim intSearch As Integer
txtDocumentDescription.Text = UCase(Replace(Trim (lblDocumentAbbreviation.Caption) & " " & Trim(txtIndex1.Text) & " " & Trim(txtIndex2.Text) & " " & Trim(txtIndex3.Text) & " " & Trim(txtIndex4.Text) & " " & Trim(txtIndex5.Text) & " " & Trim(txtIndex6.Text) & " " & Trim(txtIndex7.Text), " ", " "))

For intSearch = 0 To intListCount
txtDocumentDescription.Text = UCase(Replace(txtDocumentDescription.Text, " " & strWordAbbreviations(intSearch, 1) & " ", " " & strWordAbbreviations(intSearch, 2) & " "))
Next intSearch

End Sub


=======================
Strange and crazy, but everything is possible

hey there...

I don't fully understand the idea of your code.. but you still have the same problem...

the way you do the replace is your problem.. you have to always look first for the longest case, the problem you are facing is the order you look for the replace.. look what happens is you invert your array...

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========

gbianchi,

I know what you are saying, the code is removing any double space in the string, just in case that the user descides to insert extra spaces at the end, I have 7 fields that I need to check and replace words, so far the list contains 200 words and full sentences. This list resides as a table in SQL. I'll se if i can rearrange the table from the complete sentences to the single words.

Thanks for your help!

=======================
Strange and crazy, but everything is possible