lire premiere caratere d'une chaine de caractereRésolu

Question

bonjour,
si possible de m'aider, je veux lire le premier caractère d'une chaine j'ai essayé avec substring mais j'ai pas trouvé truc

exemple :
bonjour---->bon
où
bonjour tous--->bt

merci :)

cs_Galain · Accepted Answer

Salut

 .Substring

Extrait une partie d'une chaîne.

Le premier paramètre indique la position de départ; le second, le nombre de caractères à extraire.


Dim a As String= "Informatique"

MessageBox.show(a.Substring(2,3)) 'Affiche  for

Le premier paramètre indique la position du caractère où doit commencer la sous-chaîne, en commençant à la position 0. (les caractères sont comptés 0, 1, 2, 3....

Le second paramètre la longueur de la sous-chaîne.

Exercice 1: comment obtenir les 4 caractères de droite:


Dim a As String= "Informatique"

MessageBox.show(a.Substring(A.Length-4)) 'Affiche  ique

Ici on omet le second paramètre,la longueur de la sous-chaîne, va jusqu'a la fin de la chaîne.

Exercice 2: comment obtenir les 3 caractères de gauche:


Dim a As String= "Informatique"

MessageBox.show(a.Substring(0, 3)) 'Affiche  inf


La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

lassad_haddaji · Answer

merci, c'est bien fonctionner seulement me reste quand il y a dans une chaine un espace comme bonjour tous
il dois me retourner bt
exemple:
GRENIER Alain ---return---> GA

merci en avance si tu me sors de ce petit problème

nhervagault · Answer

Salut,


Dim str as string = "bonjour tous"
if (str.Contains(" ")) then
dim tab as string() = .Split(" ")
dim result as List(of String)= new List(Of String) 
foreach t as string in tab
    result = a.Add(t(0))
next
return result.Join("")
else
' substring()
end if



(Code non testé) Ca donne une idée.

cs_Galain · Answer

Salut

Soit la chaine GRENIER Alain

 
        Dim i As Long
        Dim chn As String = "GRENIER Alain"
        chn = chn.Trim ' enlève les espaces au début et à la fin
        Dim resultat As String = String.Empty ' chaine vide
        resultat = chn.Substring(0, 1)
        For i = 1 To chn.Length - 1
            If chn.Substring(i, 1) " " Then resultat resultat + chn.Substring(i + 1, 1)
        Next i
        Label1.Text = resultat


Attention si la chaine est "GRENIER  Alain" cela ne fonctionnera pas car il y a 2 espaces entre les 2 mots
Par contre la chaine peut plus que 2 mots : à chaque fois la première lettre du mot est extraite

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

cs_Galain · Answer

Attention si la chaine est "GRENIER  Alain" cela ne fonctionnera pas car il y a 2 espaces entre les 2 mots
Je n'avais mis qu'un espace : désolé 

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

cs_Galain · Answer

Le site remplace mes 2 espaces par un seul dans la chaine "GRENIER Alain"
L'autre solution est valable aussi mais moins simple


La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

cs_Galain · Answer

Salut nhervagault

J'ai essayé ton code pour voir et il y a plusieurs avertissements
il doit manquer des éléments ou des définitions de variables



La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

lassad_haddaji · Answer

cool, merci Galain et encore merci à nhervagault
juste une remarque pour nhervagault que ca fonction il y a une erreur .Split(" ") normalement on utilise with d'abord

merci

cs_Galain · Answer

Si cela te convient mets "Repose acceptée"
A+

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

cs_Galain · Answer

Faute de frappe : Réponse bien sur
Tu as été plus rapide que moi


La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

lassad_haddaji · Answer

le script final je le met peut être un autre à besoin 

        Dim i As Long
        Dim chn As String = TextBox1.Text.ToString
        If (chn.Contains(" ")) Then

            chn = chn.Trim ' enlève les espaces au début et à la fin
            Dim resultat As String = String.Empty ' chaine vide
            resultat = chn.Substring(0, 1)
            For i = 1 To chn.Length - 1
                If chn.Substring(i, 1) " " Then resultat resultat + chn.Substring(i + 1, 1)
            Next i
            Label1.Text = resultat
        Else
            Label1.Text = chn.Substring(0, 2)

        End If

cs_Galain · Answer

Certaines lignes de ton script sont inutiles
Ici le cas d'espaces multiples successifs est traité

Dim i As Long
        Dim chn As String = TextBox1.Text.ToString
        chn = chn.Trim ' enlève les espaces au début et à la fin
        Dim resultat As String = chn.Substring(0, 1)  ' première lettre du premier mot
        For i = 1 To chn.Length - 1 ' on cherche les espaces
           ' si le caractère courant est un espace et que le caractère précédent n'est pas un espace
           ' on ajoute la première lettre de ce mot  
           If chn.Substring(i, 1) " " and chn.Substring(i-1,1) <> " " Then resultat resultat + chn.Substring(i + 1, 1)
        Next i
        Label1.Text = resultat
        

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

cs_Galain · Answer

Attention le code précédent est faux : mille excuses
il ne gère pas les espaces multiples
voici le code corrigé


La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain
        Dim i As Long
        Dim chn As String = TextBox1.Text.ToString
        chn = chn.Trim ' enlève les espaces au début et à la fin
        Dim resultat As String = chn.Substring(0, 1)  ' première lettre du premier mot
        For i = 1 To chn.Length - 2 ' on cherche les espaces
           ' si le caractère courant est un espace et que le caractère suivant n'est pas un espace
           ' on ajoute la première lettre de ce mot  
           If chn.Substring(i, 1) " " and chn.Substring(i+1,1) <> " " Then resultat resultat + chn.Substring(i + 1, 1)
        Next i
        Label1.Text = resultat

nhervagault · Answer

Ok j'avais mis 


"bonjour à tous".Split(" ") 


Et apres j'ai refais le code avec une variable intermédiaire
sans changer la remettre dans mon code avant de poster.

Le but etait d'introduire 
les tableaux de string et les split et les join

Lire premiere caratere d'une chaine de caractere

14 réponses

Votre réponse

Discussions similaires