Discussion :

[maxx78]

Bonjour,

Je suis pas un spécialiste ! Je cherche si possible avec la fonction Replace (ou autre) à identifier un caractère dans une chaine et le remplacer avec toute la chaine qui suit.

J'aurai bien aimé qu'un truc du genre marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
chaine=ANN_RECORDSET("ACC")
chaine2=replace(chaine,"<"(right,200),"")

J'ai une ancienne bdd très volumineuse qui a subit de multiples injections et j'aimerais la nettoyer facilement en identifiant le < et en virant tout ce qui suit. Je cherche une solution partout mais je ne trouve rien. Si vous avez une idée de génie je prends, merci.

[pc75]

Bonjour,

Tu identifies la position du caractère < et ensuite tu récupères le texte qui se situe avant cette position.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
chaine=ANN_RECORDSET("ACC")
Pos = InStr(chaine, "<")
NewChaine = Left(chaine, Pos - 1)

[maxx78]

VBScript error '800a0005'
Argument ou appel de procédure incorrect: 'Left'

[maxx78]

l'erreur venait juste de la non présence du < dans le champ