Question : Using l'instr à trouver « et » puis pour le remplacer par « et »

Les experts I ont le code suivant ;  J'essaye de trouver que le cas échéant des données les processus que de cette boucle a « et » si tellement alors je veux le remplacer par le texte » et " mais il ne jamais trouver « et ». exemple du
The des données que je recherche est LORRIE et le
What de DARRYL que j'ai besoin est LORRIE et boucle du
The de DARRYL et travaux de proces ne trouvent jamais juste et du

For c = 1 à rs7.Fields.count - 1
si rs7.RecordCount > 0 strCurrTxt de Then
= strCurrTxt du
de "" = rs7.Fields (c) 'ne pas avoir besoin de premier champ n'emploient pas b-1
s'InStr (1, strCurrTxt, « &") > 0 msgbox strCurrTxt » instring " de Then
du
= remplacent (strCurrTxt, « et », » et « , extrémité If
rs8.AddNew
rs8 de 1)
! L'exportation = le strCurrTxt
rs8.Update
strCurrTxt de rs8.Bookmark = de rs8.LastModified
Else
= « AUCUN TEXTE ONT TROUVÉ " coupure de msgbox du
la « et vérifient " le

Thank de rs7.MoveNext
d'If
/> 'le prochain vous les experts, mdlp class= de

Réponse : Using l'instr à trouver « et » puis pour le remplacer par « et »

InStr ne vous achète toujours pas quelque chose.

Essayer ceci, et faire rapport avec ce qui est dans les boîtes de message.
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :

Pour c = 1 à rs7.Fields.count - 1 '        
         Si rs7.RecordCount > 0 puis
            strCurrTxt = ""
            strCurrTxt = rs7.Fields (c)  'ne pas avoir besoin de premier champ  n'emploie pas b-1
MsgBox « 1 :  » et strCurrTxt
            le strCurrTxt = remplacent (strCurrTxt, « et », » et « , 1)
MsgBox « 2 :  » et strCurrTxt
            'S'InStr (1, strCurrTxt, « &") > 0 puis
              'msgbox « instring »
              le 'strCurrTxt = remplacent (strCurrTxt, « et », » et « , 1)
            'Finir si
             rs8.AddNew
            rs8 ! Exportation = strCurrTxt
            rs8.Update
MsgBox « 3 :  » et rs8 ! Exportation
            rs8.Bookmark = rs8.LastModified
        Autrement
            le strCurrTxt = « AUCUN TEXTE A TROUVÉ »
            msgbox « coupure et contrôle »
        Finir si
        'rs7.MoveNext
      Prochain c
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us