Ecrire une fonction

jeremy4920 Messages postés 28 Date d'inscription lundi 17 mai 2004 Statut Membre Dernière intervention 22 juin 2004 - 4 juin 2004 à 08:39
TheLordFreddy Messages postés 157 Date d'inscription mardi 9 décembre 2003 Statut Membre Dernière intervention 3 février 2005 - 4 juin 2004 à 11:26
voila mon probleme: qd j'ouvre un fichier et que je lis la premiere ligne si ca commence par un T je veux ecrire TOTO apres le T ou si ca commence par M je veux ecrire MAMAN, séparé par un point

qui pourrait m'aider?

3 réponses

TheLordFreddy Messages postés 157 Date d'inscription mardi 9 décembre 2003 Statut Membre Dernière intervention 3 février 2005 2
4 juin 2004 à 10:01
slt,
voila une soluce
je nome le fichier text : text1.txt

dim Ligne as string
'ouverture fichier
open "c:\text1.txt" for input as #1
'lecture de la premiere ligne du fichier
line input #1,Ligne
if left(ligne,1)="T" then 'récupère la premiere lettre
msgbox "TOTO"
elseif left(ligne,1)="M" then
msgbox "MAMAN"
end if
'fermeture fichier
close #1

-------------------------------------------
Ne vous fiez pas à l'apparence...
0
jeremy4920 Messages postés 28 Date d'inscription lundi 17 mai 2004 Statut Membre Dernière intervention 22 juin 2004
4 juin 2004 à 10:28
C bien mai en fait G une chaine de caractere et je la converti en la separan par une barre ca s'affiche directement ds une textbox
0
TheLordFreddy Messages postés 157 Date d'inscription mardi 9 décembre 2003 Statut Membre Dernière intervention 3 février 2005 2
4 juin 2004 à 11:26
bon ba c bon alor?
-------------------------------------------
Ne vous fiez pas à l'apparence...
0