VB 5 question
Résolu/Fermé
Cpcdos
Messages postés
425
Date d'inscription
samedi 11 juillet 2009
Statut
Membre
Dernière intervention
28 octobre 2016
-
22 mai 2010 à 10:26
Cpcdos Messages postés 425 Date d'inscription samedi 11 juillet 2009 Statut Membre Dernière intervention 28 octobre 2016 - 22 mai 2010 à 15:53
Cpcdos Messages postés 425 Date d'inscription samedi 11 juillet 2009 Statut Membre Dernière intervention 28 octobre 2016 - 22 mai 2010 à 15:53
A voir également:
- VB 5 question
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Glary utilities 5 gratuit - Télécharger - Nettoyage
- 5 bips au démarrage hp ✓ - Forum Matériel & Système
- Fichier gta 5 - Forum jeux en ligne
9 réponses
ghuysmans99
Messages postés
2496
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
339
Modifié par ghuysmans99 le 22/05/2010 à 11:37
Modifié par ghuysmans99 le 22/05/2010 à 11:37
Si Split() n'est pas disponible, utilise Mid() et InStr() .
VB.NET is good ... VB6 is better !
VB.NET is good ... VB6 is better !
Cpcdos
Messages postés
425
Date d'inscription
samedi 11 juillet 2009
Statut
Membre
Dernière intervention
28 octobre 2016
13
22 mai 2010 à 15:53
22 mai 2010 à 15:53
https://codes-sources.commentcamarche.net/#2
avec la commande
If Instr(text1.text,"mot à chercher")>0 then ........
ou
If text1.text like "*mot à chercher*" then ........
pour chercher le mot dans un textebox en vb
avec la commande
If Instr(text1.text,"mot à chercher")>0 then ........
ou
If text1.text like "*mot à chercher*" then ........
pour chercher le mot dans un textebox en vb
ghuysmans99
Messages postés
2496
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
339
Modifié par ghuysmans99 le 22/05/2010 à 10:46
Modifié par ghuysmans99 le 22/05/2010 à 10:46
Split(taTextbox," ") te renverra dans un tableau les mots un par un.
Perso je vois pas l'utilité de réinventer DOS en moins bien car il est encore trouvable sur le net et en émulation (DOSBox principalement et ensuite VirtualBox, plus généraliste). Un truc qui serait plus malin à faire c'est essayer de comprendre comment il fonctionne. Faut bien te dire qu'il n'y a pas que les commandes que l'utilisateur tape, y'a aussi ce qui se passe derrière (gestion de fichiers, de mémoire, etc.)
VB.NET is good ... VB6 is better !
Perso je vois pas l'utilité de réinventer DOS en moins bien car il est encore trouvable sur le net et en émulation (DOSBox principalement et ensuite VirtualBox, plus généraliste). Un truc qui serait plus malin à faire c'est essayer de comprendre comment il fonctionne. Faut bien te dire qu'il n'y a pas que les commandes que l'utilisateur tape, y'a aussi ce qui se passe derrière (gestion de fichiers, de mémoire, etc.)
VB.NET is good ... VB6 is better !
Cpcdos
Messages postés
425
Date d'inscription
samedi 11 juillet 2009
Statut
Membre
Dernière intervention
28 octobre 2016
13
22 mai 2010 à 11:13
22 mai 2010 à 11:13
dac mercii je vais tester son fonctionnement
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Cpcdos
Messages postés
425
Date d'inscription
samedi 11 juillet 2009
Statut
Membre
Dernière intervention
28 octobre 2016
13
22 mai 2010 à 11:18
22 mai 2010 à 11:18
bizzrad la commande split n'est pas reconnu par visual basic (5)
Cpcdos
Messages postés
425
Date d'inscription
samedi 11 juillet 2009
Statut
Membre
Dernière intervention
28 octobre 2016
13
Modifié par Cpcdos le 22/05/2010 à 11:23
Modifié par Cpcdos le 22/05/2010 à 11:23
Par exemple c'est de crée un spell checker SANS l'aide d'un autre programme (word / office..etc...)
exemple du genre :
[ps : text1 est un textebox.]
If text1.text = * *"bonjourr" * * then
msgbox "Il y a une erreur d'orthographe!"
else
msgbox "Pas d'erreurs"
end if
enfin du genre comme ça la condition pour trouver dans un textebox OU dans une variable un mot , une lettre ou des chiffres.
exemple du genre :
[ps : text1 est un textebox.]
If text1.text = * *"bonjourr" * * then
msgbox "Il y a une erreur d'orthographe!"
else
msgbox "Pas d'erreurs"
end if
enfin du genre comme ça la condition pour trouver dans un textebox OU dans une variable un mot , une lettre ou des chiffres.
Cpcdos
Messages postés
425
Date d'inscription
samedi 11 juillet 2009
Statut
Membre
Dernière intervention
28 octobre 2016
13
22 mai 2010 à 11:39
22 mai 2010 à 11:39
okii mercii je vais tester
Cpcdos
Messages postés
425
Date d'inscription
samedi 11 juillet 2009
Statut
Membre
Dernière intervention
28 octobre 2016
13
22 mai 2010 à 13:18
22 mai 2010 à 13:18
C'est bon j'ai trouvé un moyen
Private Sub Form_Load()
Dim mystring, chercher, MyPos,mot
mystring = "je m'applle Favier Sébastien 01"
chercher = "Favier"
MyPos = InStr(4, mystring, chercher, 1)
MsgBox MyPos
MOT = Mid(mystring, MyPos, 6)
MsgBox MOT
End Sub
Parcontre avec
MOT = Mid(mystring, MyPos, 6)
MsgBox MOT
le msgbox m'affichera " Favier " en 6 lettres mais si je met
chercher = "Sébastien"
en haut
le msgbox m'affichera que " Sébast " car j'ai mis la valeur ' 6 ' dans
MOT = Mid(mystring, MyPos, 6)
y il a t-il un moyen pour qu'il prenne le mot entier sans mettre une valeur ?
( qu'il cherche le mot entré dans la variable chercher )
Private Sub Form_Load()
Dim mystring, chercher, MyPos,mot
mystring = "je m'applle Favier Sébastien 01"
chercher = "Favier"
MyPos = InStr(4, mystring, chercher, 1)
MsgBox MyPos
MOT = Mid(mystring, MyPos, 6)
MsgBox MOT
End Sub
Parcontre avec
MOT = Mid(mystring, MyPos, 6)
MsgBox MOT
le msgbox m'affichera " Favier " en 6 lettres mais si je met
chercher = "Sébastien"
en haut
le msgbox m'affichera que " Sébast " car j'ai mis la valeur ' 6 ' dans
MOT = Mid(mystring, MyPos, 6)
y il a t-il un moyen pour qu'il prenne le mot entier sans mettre une valeur ?
( qu'il cherche le mot entré dans la variable chercher )
ghuysmans99
Messages postés
2496
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
339
Modifié par ghuysmans99 le 22/05/2010 à 14:37
Modifié par ghuysmans99 le 22/05/2010 à 14:37
En codant correctement c'est mieux :
Que veux-tu dire par sans mettre une valeur ?
Private Sub Form_Load() Dim mystring As String, chercher As String Dim myPos As Integer, mot As String mystring = "je m'applle Favier Sébastien 01" chercher = "Favier" mypos = InStr(4, mystring, chercher, 1) mot = Mid(mystring, mypos, Len(chercher)) MsgBox "Mot trouvé à la position " & mypos & vbcrlf & mot, vbInformation End Sub
Que veux-tu dire par sans mettre une valeur ?
Cpcdos
Messages postés
425
Date d'inscription
samedi 11 juillet 2009
Statut
Membre
Dernière intervention
28 octobre 2016
13
22 mai 2010 à 15:48
22 mai 2010 à 15:48
sans mettre une valeur :
MOT = Mid(mystring, MyPos, 6
le '6'
mais bon on peut laisser tomber le sujet car j'ai posé la question a codes sources et donc j'ai résolue le problème
mercii beaucoup pour aide
MOT = Mid(mystring, MyPos, 6
le '6'
mais bon on peut laisser tomber le sujet car j'ai posé la question a codes sources et donc j'ai résolue le problème
mercii beaucoup pour aide