Je cherche un scrip qui permet de récupérer le premier caractere d'une phrase :

exemple :
dans 1 fichier nommé test.txt  il y a la phrase

02 Ceci est un test

Je voudrais récupérer le "0" dans un autre fichier ==> test2.txt

Cordialement

Milla

Salut,

Regarde du côté de : Mid$

A+
Exploreur

 Linux a un noyau, Windows un pépin

Exemple tout simple :

Private Sub Form_Load()

toto = "Je souhaite le premier caractère !"
MsgBox Mid$(toto, 1, 1)

End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

salut,
(salut Explo)

ou Left$(chaine,1)

voir codyx.org pour lecture écriture fichier texte
++

---

Prenez un instant pour répondre à ce sondage svp

Salut,
Tant qu'à faire, tester aussi la phrase (des fois qu'elle soit vide)

Private Sub Form_Load()
    MsgBox GetOnlyFirstChar("Essai")
End Sub

Private Function GetOnlyFirstChar(ByVal myValue As String, Optional DefaultIfNull As String = vbNullString) As String
    '# Test si la valeur est nulle:
    If myValue = vbNullString Then
        GetOnlyFirstChar = DefaultIfNull
    Else
        '# Sinon, mémo du 1er caractère:
        GetOnlyFirstChar = Left$(myValue, 1)
    End If
End Function

titicar

titicar ->

MsgBox Left$("", 1)
MsgBox Mid$("", 1, 1)

renvoient déjà vbnullstring (par défaut), pas d'erreur

---

Prenez un instant pour répondre à ce sondage svp

PCPT :
A force, je vois des "gestions d'erreur" partout :-(
Merci pour ta remarque car je ne le savais pas (ou je l'avais oublié)... Vais devoir remettre mes procédures à jour :-)

titicar

Salut,
Ca serait pas mal tout de même de faire quelque recherche avant de poster une question aussi "basique". ATTENTION Faut pas mal le prendre... Mais en fouillant sur le NET, l'aide en ligne et ici, tu aurait trouver en moins de temps qu'il ne t'a fallut pour ouvrir cette discution.

@+: Ju£i€n
Pensez: Réponse acceptée