rst
-
28 août 2001 à 13:26
LeJav
Messages postés8Date d'inscriptionlundi 13 janvier 2003StatutMembreDernière intervention 5 juin 2006
-
23 janv. 2003 à 10:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
LeJav
Messages postés8Date d'inscriptionlundi 13 janvier 2003StatutMembreDernière intervention 5 juin 2006 23 janv. 2003 à 10:53
Bien que moi-même, je ne sois un très grand "Anglophyle", je trouve curieux ta remarque sur le choix de la langue... car, enfin, si tu est si fière d'être Français (et je le suis...), pourquoi avoir choisi "Blindman" comme pseudo?
Enfin, et quand même, merci pour la source!
Oups!! Pardon pour l'orthographe, il est vrai qu'il laisse à désirer sur le site (que j'apprécie par ailleurs...)
yoman64
Messages postés962Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 2 août 20102 8 juin 2002 à 08:48
For i = 1 to Len(Text1.Text)
Lettre = Mid(Text1.Text,i,1) 'sépare toutes les lettres (ou chiffres) de la phrase
If Lettre = txtSéparateur.Text Then Goto SUIVANT 'si Lettre égal un séparateru genre "-" ou "&" et encore d'autre!
txtAvant.Text = txtAvant.Text & Lettre 'ajoute caractères par caractères
Next i
SUIVANT:
For j = i+1 to Len(Text1.Text)
Lettre = Mid(Text1.Text,j,1) 'on reprend la ou on s'était arreté mais SANS le séparateur
txtAprès.Text = txtAprès.Text & Lettre
Next j
!!! CE CODE A ETE MIS EN DIRECT!!! donc s'il y a des erreures, prévenez-moi.
Je ne sais pas à quel source tu fait allusion, mais je reconnais que souvent j'utilise des non de variable ou de fonction en anglais car dans cette langues, les mots sont souvent plus courts...
23 janv. 2003 à 10:53
Enfin, et quand même, merci pour la source!
Oups!! Pardon pour l'orthographe, il est vrai qu'il laisse à désirer sur le site (que j'apprécie par ailleurs...)
8 juin 2002 à 08:48
28 août 2001 à 18:01
PUT que deposer etc...
Et on evite les franglisation du genre 'getnomdumec' :))
28 août 2001 à 15:27
Dim Lettre
For i = 1 to Len(Text1.Text)
Lettre = Mid(Text1.Text,i,1) 'sépare toutes les lettres (ou chiffres) de la phrase
If Lettre = txtSéparateur.Text Then Goto SUIVANT 'si Lettre égal un séparateru genre "-" ou "&" et encore d'autre!
txtAvant.Text = txtAvant.Text & Lettre 'ajoute caractères par caractères
Next i
SUIVANT:
For j = i+1 to Len(Text1.Text)
Lettre = Mid(Text1.Text,j,1) 'on reprend la ou on s'était arreté mais SANS le séparateur
txtAprès.Text = txtAprès.Text & Lettre
Next j
!!! CE CODE A ETE MIS EN DIRECT!!! donc s'il y a des erreures, prévenez-moi.
merci
28 août 2001 à 13:26