Supprimer une chaineRésolu

Question

Bonjours, je cherche à supprimer un chaine de caractères sachant que je connais cette chaine.
exemple:
j'ai la chaine suivante:
C:\MonDossier\MonFichier
je veut supprimer par exemple:
C:\MonDossier\

Euh, je pense que l'exemple n'était pas vraiment nessecaire.

Voila

Merci d'avance

Bye

ebaudoux@club.fr
http://velerweb-2.fr.nf
http://jbaudoux.club.fr/veler/

jmfmarques · Accepted Answer

salut;

un copain (mais je ne connais pas VB.Net et me méfie tant de VB.Net que du copain), m'affirme :

msgbox substring(0, instrev(le_chemin_complet, "/"))

A-t-il vraiment raison ?

ptit_tof57 · Answer

Salut tu peux le faire en mettant cette chaine dans une variable que l'on va appelé VarChaine, donc si on résume :

Private Sub test()

        Dim VarChaine As String = "C:\MonDossier\MonFichier"
        MessageBox.Show(VarChaine.Remove(0, 14))   'Ici la méthode utilisée est Remove le premier chiffre correspond a l'index de départ et le deuxieme
au l'index de fin des caractères a supprimé.

    End Sub

A+, Tof

cs_veler · Answer

Ok, zut, j'ai pas préçisé que la chaine que l'on connais provient d'un textebox, donc c'est pas possible d'utiliser les nombres de caractère, mais sa m'a donné une idée, je vais plutôt essayer de remplacer la chaine.

Merci

ebaudoux@club.fr
http://velerweb-2.fr.nf
http://jbaudoux.club.fr/veler/

mortalino · Answer

Salut,

regarde si en DotNet tu n'as pas Right et InStr

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

ptit_tof57 · Answer

avec la propriété length de VarChaine tu peux obtenir la longeur de la chaine provenant de la textbox si ça peut t'aidé. Sinon je pense peut etre qu'il faudrais te tourné vers les expressions regulière mais la je ne peux pas t'aidé à  ce sujet. Bon courage.
A+
Tof

mortalino · Answer

Voici ce qui est faisable en VB6 :
Mot = Right$(TextBox1.Text, Len(TextBox1.Text) - InStrRev(TextBox1.Text, ""))

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

cs_veler · Answer

Mrd, chui en VB.Net, je vais essayer lenght

ebaudoux@club.fr
http://velerweb-2.fr.nf
http://jbaudoux.club.fr/veler/

mortalino · Answer

Oui, j'ai vu la section de ton post, mais cela peut peut-être t'aider, il y a sûrement les équivalent en dotnet

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

cs_veler · Answer

Oui surment

ebaudoux@club.fr
http://velerweb-2.fr.nf
http://jbaudoux.club.fr/veler/

ptit_tof57 · Answer

Je viens de faire une recherche de ces méthode dans l'explorateur d'objet et elles semble être présentent. Mais peut être par soucis de compatibilité entre les deux version.

ptit_tof57 · Answer

Je viens de faire une recherche de ces méthode dans l'explorateur d'objet et elles semble être présentent. Mais peut être par soucis de compatibilité entre les deux version.

mortalino · Answer

Bah je fais pas encore du DotNet, mais c'était pas loin. Suffit de tester... ça m'a pris 2 minutes, maintenant, il se peut que ce ne soit pas la meilleure façon de procéder, mais ça fonctionne : Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Mot1, Mot2 As String Mot1 = "C:\Chemin\Nom fichier.ext" Mot2 = Strings.Right(Mot1, Strings.Len(Mot1) - Strings.InStrRev(Mot1, "")) MessageBox.Show(Mot2) End Sub End Class ~ Mortalino ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, ~Provençal, le Gaulois~

cs_casy · Answer

LEs fonctions Len, left, .... sont toujours présente dans VB2005, car la référence Microsoft.VisualBasic est intégrée dans le projet.
Cette référence n'est là que pour assurer une certaine compatibilité avec VB6 et permet d'une certaine façon du faire du code "VB6" sous VB2005.

Je ne saurais trop te conseiller de décocher cette référence (dans les propriétés du projet) pour t'obliger à faire du code .Net et ainsi définitivement te débarasser du dinosaure VB6.  Car si tu veux faire du code VB6, tu ne trouveras pas plus performant et adapté que VB6 lui-même.

Pour ce qui est des fonctions de manipulation des chaines, tout est intégré dans la classe String. Ainsi
InStr devient String.IndexOf
InStrRev devient String.LastIndexOf
Len devient String.Lenght
Mid devient String.SubString

Quant à Left et Right, n'étant que des surcharges de Mid, même en VB6, elles n'existent plus, mais sont remplaçables par SubString (puisque remplaçable par Mid en VB6).

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

tbbuim1 · Answer

Moi je serais assez pour supprimer la chaine tf1...

Sinon pour supprimer un répertoire à partir d'une chaine tu peux:
Lancer un rd C:\MonDossier avec un Shell sous VB ;)

mortalino · Answer

Merci de m'avoir filer les équivalents Casy    Reste plus qu'à retenir.

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

cs_casy · Answer

"...Reste plus qu'à retenir...."

Non reste plus qu'à passer définitivement à .Net et oublier VB6 

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

mortalino · Answer

T'es fou !! 
C'est galère avec les GetUpperUbound, les Witch et j'en passe. Ca n'a vraiment rien à voir... 

Mais comme tu dis, va bien falloir y passer définitivement !

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

cs_veler · Answer

Salut, le VB.Net, c'est maintenant mieu que le VB6 surtout depuis qu'on sait que c'est compatible Vista.
Alors, En fait, pourquoi je veut trouver un code pour supprimer une partie d'une chaine, c'est parce que j'ai un code qui liste les fichiers et répertoires d'un répèrtoire racine et affiche sa dans un Treeview. Et, je ne veut pas qu'on voit le chemin complet du dossier.

Vla

Merci d'avance

Bye

ebaudoux@club.fr
http://velerweb-2.fr.nf
http://jbaudoux.club.fr/veler/

mortalino · Answer

Beh t'as plus qu'à transformer mon code avec les équivalents laissés par Casy.
Ca ne devrait pas poser de problèmes. 

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

cs_veler · Answer

Salut, c'est bon, sa fonctionne parfaitement, tu diras à ton pote que je le remercie.

Voila

Merci encore de votre aide

Bye

ebaudoux@club.fr
http://velerweb-2.fr.nf
http://jbaudoux.club.fr/veler/

mortalino · Answer

Salut Jacques,

j'y connais pas grand chose non plus mais ça semble cohérent 
SubString il me semble que c'est une sorte de Mid, 0 étant le départ, (peut-être mettre 1 ?), Et InStrRev, que tu connais.

Seul bémol : c'est pas un slash mais un anti pour les fichiers, et d'après le bout d'exemple de Casy, InStrRev est à remplacer par LastIndexOf

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

cs_casy · Answer

C'est quoi ce mélange horrible de VB6 et de .Net ????

La bonne version devrait etre quelque chose comme :

MessageBox.Show ChaineACouper.Substring(ChaineACouper.LastIndexOf(""))

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

mortalino · Answer

Ah et MsgBox (bien que pour la compatibilité ça fonctionne) est remplacé par
MessageBox.Show

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

Supprimer une chaine

23 réponses

Votre réponse

Discussions similaires