Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft Un bon exemple d'aide programmation !!!

Un bon exemple d'aide programmation !!!

40 réponses
Avatar
LE TROLL
Bonjour mes amis et mes ennemis :o)

Voici un bon exemple d'aide, comme quoi, quand je demande qu'on me fasse un
programme, il n'y a rien d'anormal à ça, et à part quelques personnes, ce sont
ceux qui ne font pas le programme qui sont anormaux, ici j'ai dû attendre 4
jours pour avoir une routine, sur VB l'attente moyenne la nuit est de 12h00, la
journée d'1h pur avoir son programme, voyez-vous la différence de compétence.

Le mec est clair: je ne connais pas, j'ai besoin mais pas le temps,
voulez-vous bien me faire ça, merci.
Ici, si on demande ça, on est fustigé, sauf exception, vous n'aidez pas!

Voici:

Forum VB (vbA, Basic)...
Mjolnir le 23/08/2005 à 21h38 pose sa question: = traitement de fichier

Bonjour, Je dois effectuer un petit traitement sur un fichier texte (csv).
Je ne connais pas vb et je ne souhaite pas passer trop de temps pour
résoudre mon problème qui est ponctuel. J'explique le besoin.
j'ai un fichier dont chaque ligne contiens une référence, un
description, et deux mesures (nombres à virgule). Ces valeurs sont
séparés par des points-virgules. Les lignes sont triés selon les références.
Je dois juste caluler les moyennes des deux mesures pour chaque
référence et mettre cela dans un autre fichier. Pouvez-vous m'aider ?
Merci.
---------fin de la question------

Le 23/08/2005 à 22h26 de Jean-Marc
Le premier code arrive:

Private Sub Command1_Click()
Dim f As Integer
Dim g As Integer
Dim s As String
Dim t() As String
Dim v1 As Double, v2 As Double
Dim moy As Double
Dim nb As Long

f = FreeFile
' adapter ceci pour désigner le bon fichier d'entrée
Open "c:\mes_mesures.csv" For Input As #f

g = FreeFile
' adapter ceci pour désigner le bon fichier de sortie
Open "c:\moyennes.txt" For Output As #g

' parcourir tout le fichier
While Not (EOF(f))
' lire une ligne complète
Line Input #f, s
' pour compter le nombre de lignes
nb = nb + 1
' la découper en champs, en indiquant le
' point-virgule comme séparateur
t() = Split(s, ";")
' t(2) contient le 3eme élément de chaque ligne
' donc la première valeur d'après l'énoncé
v1 = Val(t(2))
' t(3) contient le 4eme élément de chaque ligne
' donc la seconde valeur d'après l'énoncé
v2 = Val(t(3))
' calcul de la moyenne
moy = (v1 + v2) / 2
' écriture dans le fichier de sortie
Print #g, moy
Wend
Close #g
Close #f
MsgBox "c'est fini, " & nb & " lignes lues."
End Sub
-----------fn du code--------

Le 24/08/2005 à 9h45 de LE TROLL (moi)
Le second code arrive avec fichiers joints et une form avec listes pour la
démonstration:

Salut,

Voici la moyenne des 2 mesures par ligne, reversées du fichier csv.txt au
fichier moyenne.txt, ci-joint fichiers annexé.
Voici aussi le code:

' expl1 : tansfert de fichier : form 1
'
Option Explicit
'
Sub Form_Activate()
Dim position(3) As Integer
Dim lgrLigne As Integer
Dim alphaNombre As String
Dim valeur(2) As Double
Dim moyenne As Double
Dim p01 As Long
Dim p02 As Long
Dim ligne As String
Dim i As Long
'
ChDrive App.Path
ChDir App.Path
'
List1.Clear
List2.Clear
List3.Clear
'
p01 = FreeFile
Open "csv.txt" For Input As p01
Do While EOF(p01) = False
Line Input #p01, ligne
lgrLigne = Len(ligne)
position(1) = InStr(1, ligne, ";", 1)
position(2) = InStr(position(1) + 1, ligne, ";", 1)
position(3) = InStr(position(2) + 1, ligne, ";", 1)
List1.AddItem Mid(ligne, position(2) + 1, (position(3) - position(2)) - 1)
List2.AddItem Mid(ligne, position(3) + 1, lgrLigne - position(3))
Loop
Close p01
'
List3.Clear
For i = 0 To List1.ListCount - 1
valeur(1) = CDbl(List1.List(i))
valeur(2) = CDbl(List2.List(i))
moyenne = (valeur(1) + valeur(2)) / 2
List3.AddItem moyenne
Next i
'
p02 = FreeFile
Open "moyenne.txt" For Output As p02
For i = 1 To List3.ListCount - 1
Print #p02, List3.List(i)
Next i
Close p02
End Sub
'---------fin------------

Merci, au revoir et à bientôt :o)
--
ECRIRE AU TROLL http://irolog.free.fr/letroll/index.html
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4
Avatar
scraper
Bonjour David Rousset [MS], dans le message
news:
tu disais :


Bonjour à tous,

Je vous propose d'ignorer purement et simplement les provocations
de ce personnage.

Nous avons eu un troll tenace sur le forum .net il y a quelques
temps. C'est la seule méthode qui fonctionne: l'ignorer.

Laissez le vous provoquer et n'y répondez pas. Il finira par se
fatiguer. S'il vous insulte, je m'occuperais d'effacer alors ses
posts.


puisque tu en parles, perso je dois subir sans cesse ses attaques,
provocations et insultes ...

ces 2 dernières semaines, je pense qu'il y a un paquet de posts que tu peux
supprimer :-)


PS : je sais que répondre, c'est l'encourager, mais je ne pouvais me
résoudre à laisser cet individu occuper le terrain, dénaturer l'esprit des
forums qu'il fréquente, et tout pourrir comme à son habitude ...

maintenant qu'il y a une réaction officielle de chez MS, c'est différent

merci




--

Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez.tiscali.fr

scraper

Avatar
LE TROLL
Pourquoi t'es pas nouveau toi ???



"Aski" a écrit dans le message de news:
O$
Hugh David Rousset [MS],

En folâtrant sur ton clavier, les mots suivant t'ont échappé :

Bonjour à tous,

Je vous propose d'ignorer purement et simplement les provocations
de ce personnage.

Nous avons eu un troll tenace sur le forum .net il y a quelques
temps. C'est la seule méthode qui fonctionne: l'ignorer.

Laissez le vous provoquer et n'y répondez pas. Il finira par se
fatiguer. S'il vous insulte, je m'occuperais d'effacer alors ses
posts.

Merci à tous.

Ses insultes, encore on peut passer, mais ses airs de bon samaritain peuvent

nuire aux nouveaux qui ne le connaissent pas.

Aski





Avatar
LE TROLL
Alors il y en a un qui parasite toutes les questions, c'est Scraper, si tu
pouvais effacer ses intervention, il me harcèle, encore aujourd'hui il vient
répondre dans mon poste, tu te rends compte, ah j'ai été balancé, enfoirée de
balance (comme disait Coluche), ah les petits salopards (comme dit le grand
général Bigeard)...



"David Rousset [MS]" a écrit dans le message de
news:
Bonjour à tous,

Je vous propose d'ignorer purement et simplement les provocations de ce
personnage.

Nous avons eu un troll tenace sur le forum .net il y a quelques temps.
C'est la seule méthode qui fonctionne: l'ignorer.

Laissez le vous provoquer et n'y répondez pas. Il finira par se fatiguer.
S'il vous insulte, je m'occuperais d'effacer alors ses posts.

Merci à tous.

--
David Rousset
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le newsgroup où il a été
posté. Je le consulte régulièrement.

"LE TROLL" <le a écrit dans le message de news:


Bonjour mes amis et mes ennemis :o)

Voici un bon exemple d'aide, comme quoi, quand je demande qu'on me fasse
un programme, il n'y a rien d'anormal à ça, et à part quelques personnes, ce
sont ceux qui ne font pas le programme qui sont anormaux, ici j'ai dû
attendre 4 jours pour avoir une routine, sur VB l'attente moyenne la nuit est
de 12h00, la journée d'1h pur avoir son programme, voyez-vous la différence
de compétence.

Le mec est clair: je ne connais pas, j'ai besoin mais pas le temps,
voulez-vous bien me faire ça, merci.
Ici, si on demande ça, on est fustigé, sauf exception, vous n'aidez pas!

Voici:

Forum VB (vbA, Basic)...
Mjolnir le 23/08/2005 à 21h38 pose sa question: = traitement de fichier

Bonjour, Je dois effectuer un petit traitement sur un fichier texte (csv).
Je ne connais pas vb et je ne souhaite pas passer trop de temps pour
résoudre mon problème qui est ponctuel. J'explique le besoin.
j'ai un fichier dont chaque ligne contiens une référence, un
description, et deux mesures (nombres à virgule). Ces valeurs sont
séparés par des points-virgules. Les lignes sont triés selon les références.
Je dois juste caluler les moyennes des deux mesures pour chaque
référence et mettre cela dans un autre fichier. Pouvez-vous m'aider ?
Merci.
---------fin de la question------

Le 23/08/2005 à 22h26 de Jean-Marc
Le premier code arrive:

Private Sub Command1_Click()
Dim f As Integer
Dim g As Integer
Dim s As String
Dim t() As String
Dim v1 As Double, v2 As Double
Dim moy As Double
Dim nb As Long

f = FreeFile
' adapter ceci pour désigner le bon fichier d'entrée
Open "c:mes_mesures.csv" For Input As #f

g = FreeFile
' adapter ceci pour désigner le bon fichier de sortie
Open "c:moyennes.txt" For Output As #g

' parcourir tout le fichier
While Not (EOF(f))
' lire une ligne complète
Line Input #f, s
' pour compter le nombre de lignes
nb = nb + 1
' la découper en champs, en indiquant le
' point-virgule comme séparateur
t() = Split(s, ";")
' t(2) contient le 3eme élément de chaque ligne
' donc la première valeur d'après l'énoncé
v1 = Val(t(2))
' t(3) contient le 4eme élément de chaque ligne
' donc la seconde valeur d'après l'énoncé
v2 = Val(t(3))
' calcul de la moyenne
moy = (v1 + v2) / 2
' écriture dans le fichier de sortie
Print #g, moy
Wend
Close #g
Close #f
MsgBox "c'est fini, " & nb & " lignes lues."
End Sub
-----------fn du code--------

Le 24/08/2005 à 9h45 de LE TROLL (moi)
Le second code arrive avec fichiers joints et une form avec listes pour la
démonstration:

Salut,

Voici la moyenne des 2 mesures par ligne, reversées du fichier csv.txt au
fichier moyenne.txt, ci-joint fichiers annexé.
Voici aussi le code:

' expl1 : tansfert de fichier : form 1
'
Option Explicit
'
Sub Form_Activate()
Dim position(3) As Integer
Dim lgrLigne As Integer
Dim alphaNombre As String
Dim valeur(2) As Double
Dim moyenne As Double
Dim p01 As Long
Dim p02 As Long
Dim ligne As String
Dim i As Long
'
ChDrive App.Path
ChDir App.Path
'
List1.Clear
List2.Clear
List3.Clear
'
p01 = FreeFile
Open "csv.txt" For Input As p01
Do While EOF(p01) = False
Line Input #p01, ligne
lgrLigne = Len(ligne)
position(1) = InStr(1, ligne, ";", 1)
position(2) = InStr(position(1) + 1, ligne, ";", 1)
position(3) = InStr(position(2) + 1, ligne, ";", 1)
List1.AddItem Mid(ligne, position(2) + 1, (position(3) - position(2)) - 1)
List2.AddItem Mid(ligne, position(3) + 1, lgrLigne - position(3))
Loop
Close p01
'
List3.Clear
For i = 0 To List1.ListCount - 1
valeur(1) = CDbl(List1.List(i))
valeur(2) = CDbl(List2.List(i))
moyenne = (valeur(1) + valeur(2)) / 2
List3.AddItem moyenne
Next i
'
p02 = FreeFile
Open "moyenne.txt" For Output As p02
For i = 1 To List3.ListCount - 1
Print #p02, List3.List(i)
Next i
Close p02
End Sub
'---------fin------------

Merci, au revoir et à bientôt :o)
--
ECRIRE AU TROLL http://irolog.free.fr/letroll/index.html
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !









Avatar
scraper
Bonjour David Rousset [MS], dans le message
news:
tu disais :


Laissez le vous provoquer et n'y répondez pas. Il finira par se
fatiguer. S'il vous insulte, je m'occuperais d'effacer alors ses
posts.


tiens, si tu pouvais effacer celui ci ?

news:

dans la mesure où c'est perpétuel chez cet individu, peut être envisager de
le bannir des forum MS ? :-)


merci




--

Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez.tiscali.fr

scraper

Avatar
Do Re Mi chel La Si Do
Bonsoir !


Il y a aussi la solution du Plonk !


@-salutations

Michel Claveau
Avatar
Claude Schneegans
ici j'ai dû attendre 4
jours pour avoir une routine, sur VB l'attente moyenne la nuit est de 12h00,



Alors pourquoi ne restes-tu pas sur VB au lieu de venir nous faire ch-
aque fois la même chose ici ?


Avatar
LE TROLL
Mais je vais partir, c'était juste parce que certains s'étaient permis de
dire qu'il ne voulaient pas faire un programme (pas tous), qu'ils n'étaient pas
à ma disposition, etc...

Or, preuve en est! Quand on aide dans un forum on se met à la disposition
immédiate et permanente de la personne à aider, jusqu'à lui faire son programme,
et à le suivre pour qu'il fonctionne!
C'est un devoir! Sinon on n'a rien à faire dans un forum, on va passer ses
loisirs ailleurs!
---------

"Claude Schneegans" a écrit dans le message de
news: %
ici j'ai dû attendre 4 jours pour avoir une routine, sur VB l'attente moyenne
la nuit est de 12h00,



Alors pourquoi ne restes-tu pas sur VB au lieu de venir nous faire ch-
aque fois la même chose ici ?




Avatar
scraper
Bonjour LE TROLL, dans le message
news:eK0$
tu disais :


Mais je vais partir


adieu

Or, preuve en est!


pardo ?
MDR !!!

Quand on aide dans un forum on se met à la
disposition immédiate et permanente de la personne à aider, jusqu'à
lui faire son programme, et à le suivre pour qu'il fonctionne!
C'est un devoir! Sinon on n'a rien à faire dans un forum, on va
passer ses loisirs ailleurs!


c'est ça, ben retournes y, parce que le gars, apparemment, ce que tu as
commis, ça lui convient pas (si je sais encore lire, mais peut être me
trompé je ??

c'est bien beau de venir claironner que t'es le meilleur, encore faut il le
prouver ;-)

NB : tu t'es pas vanté que ton code (bâclé, comme d'hab) ne convenait pas
...

allez, retourne te faire ridiculiser sur usenet (pas la peine de retourner
sur VB, là bas tout le monde te connait maintenant ;-)

PS : réponds en dessous





--

Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez.tiscali.fr

scraper

Avatar
LE TROLL
Mon code? Mais il fonctionne très bien puisque je l'ai testé, c'est indiqué!
Le sien est plus académique, il a appris la programmation en milieu scolaire,
mais le résultat est le même sans différence fondamentale.
Je pensais que tu savais que généralement il y a un tas de façons d'arriver au
même résultat, en restant rationnel s'entend, après c'est une question de
vocabulaire, chacun est habitué à ses fonctions.

Leçon 1, par exemple:
Tu as une données indicées à 3, de façon scolaire on fait en VB:
dim i as byte
for i = 1 to 3
donnee(i)
next i

Mais comme ça fait 4 lignes, de faire:
donnee(1)
donnee(2)
donnee(3)
Est tout aussi juste, ça prend même moins de place car il n'y a pas de seconde
variable à déclarer...

Une troisième façon, bon, allez je te montre:
dim i as byte
i=1
donnee(i): i=i+1
donnee(i): i=i+1
donnee(i)

Encore? De type C, du tassé:
donnee(1):donnee(2):donnee(3)

Comment veux-tu juger sans rien y connaître? Même ton copier/coller sur VB,
parlant de la souris est ridicule, interdire le bouton gauche de la souris pour
ne pas coller, totalement ridicule... Quelqu'un qui sait programmer à des
réflexes, et ceci ça en fait partie, ça vient à l'esprit immédiatement, c'est
pourquoi je suis certain que tu ne sais pas programmer, car tu n'as aucun
réflexe logique de programmation, ça se voit immédiatement, eh oui :o)

Tu me dis d'écrire en queue, ben je ne comprends pas ce que tu attends sur
VB pour aller dire à la dizaine de personnes, au moins, qu écrivent en entête,
qu'il ne faut pas écrire comme ça, étrange non, as-tu peur de te faire remettre
à ton niveau?

Ton niveau? Rien qu'une baudruche remplie d'air, un petit employé sans grade
dans une petite usine en faillite, avec un vieil ordinateur qui te permet de
bidouiller et de t'auto-proclamer "renseigneur" de paramétrage... Ton travail,
rien à foutre en gros, tu hante les forums toute la journée sur ton temps de
travail.
Mais laisse la programmation, ne fais pas semblant tu ne trompes personne de
compétent, c'est pathétique

ALORS !!! tes programmes, tu me donnee un lien et tu me dis en quoi ils sont
écrit, que je teste ???
-------------------


"scraper" a écrit dans le message de news:
%
Bonjour LE TROLL, dans le message
news:eK0$
tu disais :


Mais je vais partir


adieu

Or, preuve en est!


pardo ?
MDR !!!

Quand on aide dans un forum on se met à la
disposition immédiate et permanente de la personne à aider, jusqu'à
lui faire son programme, et à le suivre pour qu'il fonctionne!
C'est un devoir! Sinon on n'a rien à faire dans un forum, on va
passer ses loisirs ailleurs!


c'est ça, ben retournes y, parce que le gars, apparemment, ce que tu as
commis, ça lui convient pas (si je sais encore lire, mais peut être me trompé
je ??

c'est bien beau de venir claironner que t'es le meilleur, encore faut il le
prouver ;-)

NB : tu t'es pas vanté que ton code (bâclé, comme d'hab) ne convenait pas ...

allez, retourne te faire ridiculiser sur usenet (pas la peine de retourner sur
VB, là bas tout le monde te connait maintenant ;-)

PS : réponds en dessous





--

Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez.tiscali.fr

scraper



Avatar
scraper
Bonjour LE TROLL, dans le message
news:
tu disais :


Mon code? Mais il fonctionne très bien puisque je l'ai testé,


tu sais lire ?
j'ai dit qu'il ne correspond pas à ce que demandait l'utilisateur

qu'attends tu à nous polluer, ici ?

retourne vite sur VB et va faire ce qu'on te demande (en es tu seulement
capable ? as tu au moins compris la question ??

j'en doute fortement


[...]

snip cette diarrhée verbale nauséablonde

PS : réponds en dessous



--

Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez.tiscali.fr

scraper

1 2 3 4