Questione : Using instr per trovare “&„ allora per sostituirlo con “e„

Gli esperti I hanno il seguente codice;  Sto provando a trovare se c'è ne dei dati che questo ciclo proceda ha “&„ se così allora voglio sostituirlo con il testo„ e " ma esso mai non trova “&„. esempio del
The dei dati che sto cercando sono LORRIE &
What che di DARRYL ho bisogno di è LORRIE e ciclo del
The di DARRYL ed impianti dei proces appena mai non trovano & del

For c = 1 a rs7.Fields.count - 1
se rs7.RecordCount > 0 strCurrTxt di Then
= strCurrTxt del
del "" = rs7.Fields (c) 'non avere bisogno del primo campo non usano b-1
se InStr (1, strCurrTxt, “&") > 0 msgbox strCurrTxt„ instring " di Then
del
= sostituisce (strCurrTxt, “&„,„ e “, estremità If
rs8.AddNew
rs8 di 1)
! L'esportazione = lo strCurrTxt
rs8.Update
strCurrTxt di rs8.LastModified
Else
= “NESSUN TESTO HANNO TROVATO " la rottura del msgbox del
“e controllano "
estremità il c

Thank di rs7.MoveNext
di If
'voi esperti, mdlp class= del

Risposta : Using instr per trovare “&„ allora per sostituirlo con “e„

InStr ancora non lo compra qualche cosa.

Provare questo e fare rapporto con che cosa è nelle finestre di messaggio.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Per c = 1 a rs7.Fields.count - 1 '        
         Se rs7.RecordCount > 0 allora
            strCurrTxt = ""
            strCurrTxt = rs7.Fields (c)  'non avere bisogno del primo campo  non usano b-1
MsgBox “1: „ & strCurrTxt
            lo strCurrTxt = sostituisce (strCurrTxt, “&„,„ e “, 1)
MsgBox “2: „ & strCurrTxt
            'Se InStr (1, strCurrTxt, “&") > 0 allora
              'msgbox “che instring„
              'lo strCurrTxt = sostituisce (strCurrTxt, “&„,„ e “, 1)
            'Concluder se
             rs8.AddNew
            rs8! Esportazione = strCurrTxt
            rs8.Update
MsgBox “3: „ & rs8! Esportazione
            rs8.Bookmark = rs8.LastModified
        Altrimenti
            lo strCurrTxt = “NESSUN TESTO HA TROVATO„
            msgbox “rottura e controllo„
        Concluder se
        'rs7.MoveNext
      C seguente
Altre soluzioni  
 
programming4us programming4us