REVISEUR
Seamless
Messages postés
61
Date d'inscription
samedi 7 juin 2003
Statut
Membre
Dernière intervention
21 novembre 2004
-
31 janv. 2004 à 15:30
Saros Messages postés 921 Date d'inscription vendredi 20 décembre 2002 Statut Membre Dernière intervention 23 septembre 2010 - 8 mars 2005 à 17:57
Saros Messages postés 921 Date d'inscription vendredi 20 décembre 2002 Statut Membre Dernière intervention 23 septembre 2010 - 8 mars 2005 à 17:57
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/19944-reviseur
https://codes-sources.commentcamarche.net/source/19944-reviseur
8 mars 2005 à 17:57
Voilà un code possible :
Public sub Split(str as String, sep as String, byref res())
dim i as integer
dim j as integer
dim n as integer
let n=0
let i=1
let j=InStr(i,str,sep)
while j>0
redim preserve res(0 to n)
let res(n)=mid(str,i,j-i-1)
let n=n+1
let i=j+1
wend
redim preserve res(0 to n)
let res(n)=mid(str,i,len(str)-i+1)
End sub
La syntaxe est pas la même, remplace partout où tu as
a = split(b,c)
par :
call split(b,c,a)
8 mars 2005 à 14:58
Erreur d'exécution
Procédure Sub ou Function non définie et quand on clique sur OK, ds la procédure
Sub LoadFile()
Dim canal As Integer 'Canal pour le fichier .dat
Dim res As String 'Tampon 1, transfert d'une ligne du fichier
Dim re2() As String 'Tampon 2, traitement de la ligne transférée
Dim i As Integer, j As Integer 'Pour les boucles For
Dim tOrd As Integer 'TabIndex (pour qu'il n'y ait pas de problèmes avec la touche Tab)
n = 0 'Aucune ligne chargée pour l'instant
canal = FreeFile 'Prendre un canal
cdl.ShowOpen
If cdl.filename = vbNullString Then End
Open cdl.filename For Input As canal 'Ouverture du fichier en lecture seule
ReDim tbl(0 To 300, 0 To 4) 'On initialise le tableau avec un gros chiffre
While Not EOF(canal) 'Parcourir le fichier jusqu'à sa fin ; pour chaque ligne du fichier :
Input #canal, res 'Transférer dans res
re2 = Split(res, ";") 'Séparer les différentes composantes de la ligne
le mot split est en surbrillance.
8 mars 2005 à 13:31
8 mars 2005 à 09:32
par contre chez moi, ça ne fonctionne pas bien du tout, en effet, j'utilise la version 5.0 de Visual Basic et quand j'ouvre l'application et que je veux la faire fonctionner, un message d'erreur s'inscrit à l'écran et c'est au niveau du split que ça ne va pas.
qqun peut-il me dire ce qu'il faut gfaire pour éviter le split?
Merci d'avance. C 'est dommage car ça à l'air intéressant. Que de souvenir. Nostalgie quand tu nous tiens !
1 juil. 2004 à 21:09
Excuse-moi pour avoir répondu si tard, j'ai eu quelques problèmes côté navigateur internet ^^
++
28 juin 2004 à 20:29
Après l'avoir dézipé, je vois un dossier qui s'appelle "all", un lien vers le site internet, et un fichier read-me. Que dois-je faire ? Où dois-je cliquer ?
28 juin 2004 à 19:58
On peut en éditer, en créer etc...
On peut aussi le faire à la main avec Notepad (c'est ce que j'ai fait pour la première version) mais c'est plus long, inutile de le dire...
28 juin 2004 à 19:49
2 févr. 2004 à 20:49
2 févr. 2004 à 20:48
Je n'ai pas mis encore le mode Stephen King, mais ça ne va pas tarder.
1 févr. 2004 à 22:59
Trop lol !
Vive les SM.... lol
non, c'est une bonne idée... Mais pour faire ramer windows tu vas faire comment?
Des boucles sans fin?
1 févr. 2004 à 21:33
Bref, des révisions, quoi !
Saros
1 févr. 2004 à 16:12
non, mais voila, c'est une méthode pour faire apprendre plus vite...
lol
Mais on pourrait desactiver cette option, grace à un mot de passe...lol
1 févr. 2004 à 16:05
damned, et pourquoi pas ajouter l'envoi automatique des résultats par SMS aux parents et un mail au prof d'anglais ? ;-D
ceci dit, ça pousserait pas mal à apprendre plus vite lol
bon prog
@++
1 févr. 2004 à 12:15
1 févr. 2004 à 12:02
Et merci pour ton vote !
Saros
1 févr. 2004 à 11:18
Très bien... A part quelques trucs :
- Ca peut paraitre con, mais a mon avis faut mettre une colonne présent ! avec la 3eme personne du singulier.
- Pouvoir ajouter des verbes comme la dit seamless
- Si les fichiers dat étaient dans des fichiers ressources, pour ensuite les copier dans le rép du prog, ca serait peut etre mieux.
- Un truc un peu compliqué, mais qui serait excellent... Certains verbes ont une signification très proche, et il n'est pas rare que l'on mette une traduction approximative, il faudrait que plusieures réponses soient possibles, mais avec un message, ou je ne sais pas quoi pour donner LA VRAIE signification.
- Un truc de fou pour emmerder : Afficher le prog n'importe quand et donner une liste de 10 verbes (pas tous quand meme !). S'il y a plus de 5 fautes (sur 10 donc) le PC s'éteint... lol Et s'il y a entre 5 et 8 fautes, le PC continue correctement, et s'il y 0 ou 1 faute, ya une récompense... lol
Je voulais dire d'autres trucs mais j'ai oublié a cause de mon idée diabolique.... lol AHAHAHA
Non sinon c'est classe. J'ai pas vérifier tous les verbes mais j'ai quand meme vu une faute (pur hasard), sur le verbe écrire en anglais... La dernière forme, c'est wriTTen (avec 2 t)
Voili Voilo
Sinon je mets 10/10 (Parce que je pense que tu vas faire quelques améliorations)
31 janv. 2004 à 22:51
La fonctionnalité proposée ci-haut, pas encore...
31 janv. 2004 à 15:36
Je tiens à préciser que j'ai fait ce programme à la va-vite en 1/2 heure ce matin, donc je n'ai pas eu le temps de l'adapter...
Je vais rajouter cette fonction le plus tôt possible, ainsi que rajouter des verbes forts allemands et irréguliers anglais.
Saros
31 janv. 2004 à 15:30
Le programme est bien mais je trouve que tu devrais mettre un truc pour qu'on puisse entrer nous même des verbes.
Voila (Mais le programme est super)
:.Seamless.: