Comment Retirer les Guillement de "XXX"
Comment Retirer les Guillement de "XXX" - VB/VBA/VBS - Programmation
Marsh Posté le 26-11-2007 à 19:36:20
Non, ce n'est pas ça 
Help !! 
Message édité par super striker le 26-11-2007 à 19:37:07
Marsh Posté le 26-11-2007 à 20:40:08
euh...
tu veux faire quoi exactement ?
parceque replace, ça doit marcher normalement... qu'est-ce qui ne va pas avec cette syntaxe ? et y'a quoi exactement dans ton fichier ?
Message édité par MagicBuzz le 26-11-2007 à 20:40:32
Marsh Posté le 27-11-2007 à 11:01:30
Si tu bloques avec replace, je te propose ceci:
Si tu est sûr que chaque mot est entouré de guillemets, tu peux aussi supprimer la première et dernière lettre de chaque mot, avec Mid.
si Mot contient "ALPHABET"
Mot_sans_guillemet = Mid(Mot,2,Len(Mot)-1)
Message édité par Nico4664 le 27-11-2007 à 11:01:55
Marsh Posté le 27-11-2007 à 19:25:00
txt = replace (txt, chr$(34),"" )
essaye c'est un truc dans le genre, ça supprimera toutes les guillemets
---------------
http://www.ypikay.com
Marsh Posté le 27-11-2007 à 20:01:34
en .NET ce sera plutôt un truc du genre :
Code :
|
Message édité par MagicBuzz le 27-11-2007 à 20:01:52
Sujets relatifs:
- Retirer des caracteres d'une chaîne...
- Parcours alphabétique d'une map<char,XXX> sans la casse
- Retirer des guillemets avant l'INSERT
- [Tomcat] La servlet XXX est actuellement indisponible
- comment retirer sa base de donnée mysql
- retirer le cadre de mon flash
- Modification vbs fonction replace de XXX à YYY
- Retirer les informations imprimées sur les pages web !
- Access SQL: retirer une liste d'emails d'une mailing list
- Retirer le debut et la fin d'un string
Marsh Posté le 26-11-2007 à 02:24:45
Bonjour,
Je voulais savoir comment enlever à tout les mots d'un dico que je charge dans un tableau les guillements ? (je suis sous VB 2005)
Par exemple, au lieu d'avoir pour tab(123) = "ALPHABET", je voudrais avoir tab(123)=ALPHABET.
Voilà ce que j'ai fait déjà pour charger le dico :
StreamToDisplay = New StreamReader("C:\Mes Documents\Vocab_ODS" )
For i = 0 To 300000
tab(i) = StreamToDisplay.ReadLine
Next i
Merci à vous