Les mots

Télécharger le projet
Commenter

Description

Traitement, découpage de Chaîne
Ce n'est pas un programme pour un programme mais juste un programme de démo, un exemple de Code de découpage de chaîne avec les explications

Source / Exemple : 


'***********************************************************************
'***********************************************************************
'***************************LesMots par Nocturne************************
'************************Traitement de Chaîne, 2001*********************
'***********************************************************************
'***********************************************************************
Option Explicit

Private Sub Command1_Click()
Dim Chaine, Mots As String
Dim x As Integer
Dim StockageDesMots() As String
Dim MotsTotal As String
Dim MemIndex As Integer

MemIndex = List1.ListCount - 1
For x = 0 To MemIndex 'Vide la list1
If List1.ListCount <> 0 Then
List1.RemoveItem (List1.ListCount - 1)
End If
Next x

Chaine = Text1.Text 'Récup les mots du champ**
Mots = Trim(Chaine) 'Supprime les espaces de début et de fin**

If Len(Mots) = 0 Then 'Verif, mais facultatif
    'Je fais rien
Else
    StockageDesMots = Split(Mots, " ") 'Identification du caractère recherché
    For x = 0 To UBound(StockageDesMots)
        If StockageDesMots(x) <> "" Then
            MotsTotal = MotsTotal & StockageDesMots(x) 'Recup les donnees
            List1.AddItem StockageDesMots(x)
        End If
    Next x
End If

'Affichage des Labels 1, 2 , 3 et 9**
Label1.Caption = StrConv(Mots, vbProperCase) 'Majuscule le début des mots**
Label2.Caption = LCase(Mots) 'Tout en minuscule**
Label3.Caption = UCase(Mots) 'Tout en majuscule**
Label9.Caption = MotsTotal 'Enléve les espaces

'Focus sur le champ**
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = "Qq chose"
'Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Conclusion :


Un petit Code VB pour le découpage de chaîne ou de texte
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Nocturne)