Vraag : Het gebruiken instr om te vinden „“ toen het te vervangen met „en“

Deskundigen heb ik de volgende code;  Ik probeer te vinden als om het even welke gegevens deze lijn verwerkt „&“ hebben als zo dan ik het met de tekst“ wil vervangen en " maar het vindt nooit „&“.
The- voorbeeld van gegevens dat ik zoek LORRIE & is de behoefte DARRYL
What I LORRIE en de lijn DARRYL
The en proces de werken vinden enkel nooit &

For c = 1 aan rs7.Fields.count - 1
als rs7.RecordCount > 0 Then
strCurrTxt = ""
strCurrTxt = rs7.Fields (c) 'geen eerste gebied vergen gebruikt B-1
als InStr (1, strCurrTxt, „&“) > 0 Then
msgbox“ het instring "
strCurrTxt = (strCurrTxt, „&“,“ en „, 1)
Eind If
rs8.AddNew
rs8 vervangt! De uitvoer = strCurrTxt
rs8.Update
rs8.Bookmark = rs8.LastModified
Else
strCurrTxt = „GEEN TEKST VOND "/> msgbox „Onderbreking
Eind If
'rs7.MoveNext
Volgende c

Thank u deskundigen, mdlp

Antwoord : Het gebruiken instr om te vinden „“ toen het te vervangen met „en“

InStr nog koopt u om het even wat niet.

Probeer dit, en rapport terug met wat in de berichtvakjes is.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Voor c = 1 aan rs7.Fields.count - 1 '        
         Als rs7.RecordCount > 0 toen
            strCurrTxt = ""
            strCurrTxt = vergen rs7.Fields (c  ) 'geen eerste gebied  gebruiken geen1
MsgBox „1: “ & strCurrTxt
            strCurrTxt = vervang (strCurrTxt, „&“,“ en „, 1)
MsgBox „2: “ & strCurrTxt
            'Als InStr (1, strCurrTxt, „&“) > 0 toen
              'msgbox „instring“
              'strCurrTxt = vervang (strCurrTxt, „&“,“ en „, 1)
            'Beëindig als
             rs8.AddNew
            rs8! De uitvoer = strCurrTxt
            rs8.Update
MsgBox „3: “ & rs8! De uitvoer
            rs8.Bookmark = rs8.LastModified
        Anders
            strCurrTxt = „GEEN GEVONDEN TEKST“
            msgbox „Onderbreking en controle“
        Eind als
        'rs7.MoveNext
      Volgende c
Andere oplossingen  
 
programming4us programming4us