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
LE TROLL
Ben si c'est tout ce que tu as a répondre, c'est que j'ai raison! Merci :o)



"Aski" a écrit dans le message de news:

Hugh LE TROLL,

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

Attends, tu plaisantes, évidemment que j'ai vu son site, bel
aspect métallique, bonne présentation (fait avec un générateur, c'est
pas lui), puis multiples rubriques qui proposent des trucs que l'on
trouve en 10000 exemplaires sur d'autres sites, des trucs de base
très court, sensés aider le Millenium (que presque personne n'a
conservé), 5 ans plus tard, bof... Certaines rubriques son
inachevées, etc... Résumé, c'est pas vilain mais ça n'a guère
d'utilité...

Et alors, où tu vois de la programmation là-dedans, on peut pas
appeler le html de la programmation, plutôt des sortes de macros...
Sinon, où tu vois qu'il a fait des logiciels en VB, dis-moi où? Et si
tu n'en vois pas, dis-moi en quel langage il en a fait, je parle de
langages sérieux (non exhaustif): Java, Visual C++, VB, Pascal... Où
que tu vois ses logiciels? Ben non il n'y en a pas, il ne sait pas
programmer, Dieu merci... Alors dis-moi encore, ne sachant pas
développer, notamment sous VB, pourquoi il vient sur le forum VB, car
il ne pose pas de question, et quand il répond parfois, il a été
chercher la réponse en copier/coller sur Internet, il n'a rien à
faire dans VB, il y fait quoi?

Vas-y je t'écoute, explique-moi en quoi il sait programmer, et quels
sont ses logiciels ?


Rofl lol rofl

Aski

"Aski" a écrit dans le message de news:
%
Hugh LE TROLL,

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

Voilà maintenant qu'il commente le code, alors qu'il n'y connaît
rien, bof... --------

Si tu avais eu la curiosité et surtout l'intelligence de jeter un

coup d'oeil sur le contenu du site de scraper, tu ne dirais pas de
telles bêtises.

Aski









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


Attends, tu plaisantes, évidemment que j'ai vu son site, bel aspect
métallique, bonne présentation


ah ? tu progresses, il y a peu, tu parlais de couleurs fades ...
je vois qu'à mon contact tu commences à t'améliorer lol
prends en de la graine pour ton site rofl lol rofl

(fait avec un générateur, c'est pas lui),


"fuck", sinistre crétin, je l'ai complètement écrit à la main en html pur et
dur
(y compris les fichiers .js et .css - si tu sais de quoi je parle ? ;-)

ça te la coupe, hein ? ;-)

puis multiples rubriques qui proposent des trucs que l'on
trouve en 10000 exemplaires sur d'autres sites, des trucs de base
très court, sensés aider le Millenium (que presque personne n'a
conservé), 5 ans plus tard, bof... Certaines rubriques son
inachevées, etc... Résumé, c'est pas vilain mais ça n'a guère
d'utilité...


arff!
manifestement, tu dois perfectionner l'apprentissage de la lecture ;-)
ou alors, apprends à lire en diagonale lol
=>> tu as raté les 9/10 du contenu du site :o)


Et alors, où tu vois de la programmation là-dedans, on peut pas
appeler le html de la programmation, plutôt des sortes de macros...
Sinon, où tu vois qu'il a fait des logiciels en VB, dis-moi où?


dans toutes les pages où je présente un logiciel, tête d'oeuf ;-)
si tu avais lu, tu verrais que chaque fois, j'indique que c'est moi qui l'ai
créé
mais je sais même pas pourquoi je te cause de ça, manifestement, ça te
dépasse, avec tes codes à 2 balles et tes couleurs criardes ;-)

Vas-y je t'écoute, explique-moi en quoi il sait programmer, et quels
sont ses logiciels ?


achète des lunettes :-)
ou alors paramètre correctement ton navigateur, parce que si c'est comme la
façon dont tu te sers de OE, ben forcément tu dois pas arriver à grand
chose ;-)


NB : réponds en dessous !

ça aussi, tu sais pas le lire ?
ou tu veux *encore* que je te recolle le lien ? ;-)



--

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

scraper

Avatar
scraper
Bonjour Aski, dans le message
news:
tu disais :



Rofl lol rofl

Aski



laisse tomber ....

moi je m'en fous, ça me fait de la pub rofl



--

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 :


Ouais, et mieux vaut apprendre VB que d'avoir une routine, bof, ce
n'est pas la même durée que de pêcher...


y'a guère qu'un TROLLUS VULGARIS pour se mettre en tête de créer une routine
dans un langage qu'il ne maitrise pas, fût ce un minimum ....

tu veux que je colle ici des liens vers les posts de tes (nombreux) copains
sur usenet, qui t'ont expliqué la même chose ?? ;-)

MDR

retourne jouer sur VBa ....



--

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

scraper

Avatar
Aski
Hugh ~Jean-Marc~ [MVP],

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

Salutations *LE TROLL* !
Dans <news:
tu nous disais :
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.





****************************************************************************

********
Quand un homme a faim, mieux vaut lui apprendre à pêcher plutôt que de
lui donner un poisson.

****************************************************************************

********


@+


Comment veux-tu qu'il comprenne. C'est trop fin pour lui.

Cordialement

Aski


Avatar
LE TROLL
Moi j'appelle ça une routine, et toi un logiciel, non ???

Si vous ne connaissez pas Whazit, manifestement, vous n'avez pas besoin de
FixWhazit !!
----------------------------

Heu, un logiciel:

Ce qu'est un logiciel:
C'est un programme autonome en tant que fonctionnement, mais lié à un OS le plus
souvent, matérialisé par un *.exe compilé (et non pas interprété), et livré avec
les fichiers nécessaires à son fonctionnement sur un PC ou en réseau, sous la
forme d'un empaquetage installant et désinstallant...
Un logiciel doit répondre à un besoin et doit être assez élaboré pour ce faire,
il doit être "vendable" si cette option est retenue...
Généralement le langage sera de ceux parmi les plus utilisés comme VB ou C ou
Java par exemple, il ne doit pour fonctionner, que faire appel à lui même,
jamais à d'autres applications, autres que celle fournies avec l'OS
systématiquement, et garantissant un compatibilité permanente liée à l'OS.
On trouvera donc dans le logiciel, des traitements de fichiers propres et
internes), la gestion des impressions, la gestion graphique dessinée si besoin,
et l'ensemble des calculs nécessaires au code, ainsi que le gestion des sons si
besoin, et le paramétrage possible par l'utilisateur...

Ce que n'est pas un logiciel:
Hélas on voit trop souvent, par incompétence ou fainéantise, voire les deux, des
programmes dont les fichiers sont générés par une base de données (Access par
exemple); l'exploitations des données confiées à Excel ou à Word, et
l'impression identiquement confiée à une application tierce. Pour le graphisme,
on voit souvent l'appel à de grosses bases d'images, au lieu d'avoir un dessin
par le code, etc... Ceci n'est pas un logiciel, car au moindre changement de
version, donc de compatibilité des applications liées, il ne fonctionnera plus.
Ce genre de chose à pour nom du paramétrage de routines...
Il y a pire, c'est de tenter notamment dans Excel de développer à l'aide de
macro-commandes avec un peu de vbA, des fonctions dévolues à un langage de
programmation tels que sus-cités, ce genre de bidouille n'a aucun sérieux, et ne
fait pas partie de la programmation, il s'agit de paramétrage de
macros-commandes...

Il faut aussi dire un mot sur le devenir du logiciel après sa conception:
La majorité des gens qui travaillent en entreprise dans le milieu informatique,
développent des routines pour boucher les trous, afin que ça fonctionne jusqu'au
prochain plantage. Peu ont la possibilité de développer un véritable logiciel,
sauf dans les sociétés qui créées des programmes destinées à la vente. Or on
peut bien souvent douter de la valeur de ces développeurs, parfois très pointus
sur des sujets spécifiques, mais un grand nombre ne sais pas aller plus loin que
la macro et le vbA pour les meilleurs, ces derniers sont supervisés par de vrais
informaticiens, voir un ingénieur diplômé.
En effet, à ces développeurs d'entreprises, les plus nombreux, on demande juste
de faire un raccord par une routine, souvent on mélange même les OS et les
langages en un fouillis inextricable, qui plante évidemment très souvent... Mais
quand ça plante ce n'est pas très grave, il y a toujours un collègue un peu plus
doué qui peu masquer la lacune, quand ce n'est pas l'ingénieur lui-même qui
intervient... En résumé, il y a de bon développeurs en entreprise, et beaucoup
de mauvais, qui ne portent même pas le nom de développeur, d'autant que le
risque est grand d'oublier son savoir à faire la même chose pendant des
années...

Or et a contrario, le développeur indépendant de logiciels n'a pas du tout les
mêmes compétences. Il lui faudra déjà de l'expérience pour sentir ce qui peut se
vendre, de l'imagination pour traiter au mieux le sujet; puis créer la maquette,
l'analyse (bien que par expérience, cette analyse ne serve pas à grand chose à
celui qui à l'habitude de développer, car en plus, généralement on s'aperçoit en
cours de route, qu'il faut d'importantes corrections au plan initial, nous
sommes là dans de la grosse théorie). Un fois tout mis en place, le
développement va commencer, mais le développeur indépendant n'a pas un collègue
plus doué qui va le dépanner ou un chef qui va boucher ses trous de
connaissance, non, il doit se débrouiller tout seul, ou presque (livres,
Internet)... Après la seconde partie est mise en place, la vente. Il faut gérer
légalement une structure de distributions, trouver des support publicitaires,
référencer, chercher des éditeurs, travail autant laborieux que fastidieux...
L'obligation d'être un bon démarcheur a presque autant d'utilité que celle
d'être un bon programmeur... Et pour finir, ce développeur indépendant va aussi
devoir gérer sa structure de distribution, arriver à créer des interfaces sur
Internet si possible, s'y connaître un peu en droit, en matière fiscale, en
comptabilité... Et surtout prendre tous les risques à son compte...

Comme nous venons de le voir, même s'il y a de très bon développeur
d'entreprises, et de mauvais développeurs indépendants, la compétence de
l'indépendant est bien plus étendue que celle du salarié d'entreprise, alors
vouloir les comparer relève du ridicule, certains s'en offusquent, et ben tant
pis!

Le développement actuellement.
Microsoft, meilleur mondial se dirige pour l'instant (mais il peut changer de
cap, ce ne serait pas la première fois), il se dirige donc vers le tout sur le
serveur, et le minimum sur le PC du développeur (principe de la couche, de la
passerelle). Cependant ceci à ses limites, à titre personnel je ne suis pas
certain que ce soit l'avenir, car justement on dépend trop des serveurs, les
serveurs ont une charge trop grande à supporter avec tous les standards à
posséder. Cette technique interprète généralement le code, ce qui le rend plus
lent, in fine, ça implique un connexion rapide et permanente à Internet, que
tout le monde n'a pas, non seulement en France, mais encore moins en Europe, on
ose à peine parler de l'Afrique ou de l'Asie.
A mon sens ceci est lourd est utopique, et il n'est pas impossible que dans les
prochaines années, on en reviennent au tout embarqué sur le PC, pour pouvoir
développer et faire fonctionner son produit sans passer par Internet, je parle
des produits externes au Net...

Si vous avez quelque chose à rajouter?

-------------------------











"scraper" a écrit dans le message de news:

Bonjour LE TROLL, dans le message
news:%
tu disais :


Attends, tu plaisantes, évidemment que j'ai vu son site, bel aspect
métallique, bonne présentation


ah ? tu progresses, il y a peu, tu parlais de couleurs fades ...
je vois qu'à mon contact tu commences à t'améliorer lol
prends en de la graine pour ton site rofl lol rofl

(fait avec un générateur, c'est pas lui),


"fuck", sinistre crétin, je l'ai complètement écrit à la main en html pur et
dur
(y compris les fichiers .js et .css - si tu sais de quoi je parle ? ;-)

ça te la coupe, hein ? ;-)

puis multiples rubriques qui proposent des trucs que l'on
trouve en 10000 exemplaires sur d'autres sites, des trucs de base
très court, sensés aider le Millenium (que presque personne n'a
conservé), 5 ans plus tard, bof... Certaines rubriques son
inachevées, etc... Résumé, c'est pas vilain mais ça n'a guère
d'utilité...


arff!
manifestement, tu dois perfectionner l'apprentissage de la lecture ;-)
ou alors, apprends à lire en diagonale lol
=>> tu as raté les 9/10 du contenu du site :o)


Et alors, où tu vois de la programmation là-dedans, on peut pas
appeler le html de la programmation, plutôt des sortes de macros...
Sinon, où tu vois qu'il a fait des logiciels en VB, dis-moi où?


dans toutes les pages où je présente un logiciel, tête d'oeuf ;-)
si tu avais lu, tu verrais que chaque fois, j'indique que c'est moi qui l'ai
créé
mais je sais même pas pourquoi je te cause de ça, manifestement, ça te
dépasse, avec tes codes à 2 balles et tes couleurs criardes ;-)

Vas-y je t'écoute, explique-moi en quoi il sait programmer, et quels
sont ses logiciels ?


achète des lunettes :-)
ou alors paramètre correctement ton navigateur, parce que si c'est comme la
façon dont tu te sers de OE, ben forcément tu dois pas arriver à grand chose
;-)


NB : réponds en dessous !

ça aussi, tu sais pas le lire ?
ou tu veux *encore* que je te recolle le lien ? ;-)



--

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 :


Moi j'appelle ça une routine, et toi un logiciel, non ???


Si vous ne connaissez pas Whazit

non, un fix, triple buse !!

tu le fais exprès, pas vrai ?

regarde donc les autres ...ceux qui concernent le logiciel de messagerie au
fonctionnement toujours aussi mystérieux pour toi



au fait ...

voici le genre de mail puant que m'adresse ce malfaisant en privé

en plus de me harceler sur les forum, il le fait maintenant dans ma sphère
privée ...

chacun jugera

--- copie---

Tu ne sais pas comment on pourrait supprimer d'Internet "Scraper"??? et son
site web pendant qu'on y est ???

Problèmes rencontrés :
Scraper!!!

Sinon, c'est où, c'st quoi les logiciels que tu as développés, en quel
langage ???

LE TROLL, un ami qui vous veut du mal :o)

---/copie----

voila, c'est clair désormais pour ceux qui pouvaient en douter

moi je m'empresse de ce pas de communiquer ceci aux autorités compétentes
:-)

NB : pas la peine de persévérer, j'ai mis en place un filtre anti_kon

aucune chance que tu passes à travers, y'a plusieurs niveaux ;-)



--

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 :


Si vous avez quelque chose à rajouter?


retourne sur usenet
réponds en dessous

lâche nous, ça nous fera des vacances !

T'ain, on a jamais été aussi bien que les 2 mois où tu te faisais rafistoler
les nerfs de la tête ;-)

tu veux pas y retourner ?



--

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

scraper

Avatar
David Rousset [MS]
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
Aski
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

1 2 3 4