A voir également:
- De l'aide en C et en VB
- Vb - Télécharger - Langages
- Vb audio cable - Télécharger - Audio & Musique
- Vb editor - Télécharger - Langages
- Vb runtime - Télécharger - Divers Utilitaires
- Vb express - Télécharger - Langages
6 réponses
Salut, j'aimerais bien t'aider mais je ne sais ce que tu demande, dis ce que tu aimerais savoir et on verra ce que l'on peut faire pour toi (j'apprend à programmer en C actuellement).
tout ce que je sais c'est que je ne sais rien
tout ce que je sais c'est que je ne sais rien
je dois creer un fichier contenant un certain nombre de numeros dont l'extansion est .txt. Parmis ces numeros il y a des doublons qu'il faut extraire et ajouter "dou" .txt. exemple : f2245, g2463, f2245.
Voici ce que g fais
Sub CreerFichier ( )
Dim strligne
Dim strAdherent
Dim strPages
Dim strBoite
Dim strAnnee
Dim strLot
Open App.Path & "/" & "AG2000.txt" For Input As #1
While Not EOF (1)
Line Input #1, strLigne
strAdherent = Mid(strLigne,7,6)
strTampon = Left(strLigne,6)
strPages = Right(strLigne,6)
strAnnee = "2000"
strLot = CIng(Mid(StrTampon,2,5))\500)+1
strBoite = CInt(Mid(strTampon,2,5))\2000)+1
Open App.Path & "/" & strAdherent & ".txt" For Output As #2
print #2, "NUMERO :" & strTampon & "ADHERENT :" & strAdherent & "PAGES :" & strPages & "ANNEE :" & strAnnee & "BOITES :" & strBoites &"Lot :" & strLot
close #1
close#2
Wend
mrci de m'aider
Voici ce que g fais
Sub CreerFichier ( )
Dim strligne
Dim strAdherent
Dim strPages
Dim strBoite
Dim strAnnee
Dim strLot
Open App.Path & "/" & "AG2000.txt" For Input As #1
While Not EOF (1)
Line Input #1, strLigne
strAdherent = Mid(strLigne,7,6)
strTampon = Left(strLigne,6)
strPages = Right(strLigne,6)
strAnnee = "2000"
strLot = CIng(Mid(StrTampon,2,5))\500)+1
strBoite = CInt(Mid(strTampon,2,5))\2000)+1
Open App.Path & "/" & strAdherent & ".txt" For Output As #2
print #2, "NUMERO :" & strTampon & "ADHERENT :" & strAdherent & "PAGES :" & strPages & "ANNEE :" & strAnnee & "BOITES :" & strBoites &"Lot :" & strLot
close #1
close#2
Wend
mrci de m'aider
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Salut, c'est en quel langage tu as écris ce code s'il te plait, car je n'y comprend rien.
tout ce que je sais c'est que je ne sais rien
tout ce que je sais c'est que je ne sais rien
;-))
Pourquoi tu veux passer ton truc en C ?? ;-))
Il peut-être optimisé, mais ton code est pas trop mal ;-))
Wild and Free
Pourquoi tu veux passer ton truc en C ?? ;-))
Il peut-être optimisé, mais ton code est pas trop mal ;-))
Wild and Free
;-))
No problemo, miss ;-))) Par contre, vie E-Mail, je pense que j'économiserai mon forfait ;-)))
Pi j'avais deviné, pour VB ;-))
En quand tu m'enverras ton e-mail, tu en profitera pour m'expliquer mieux tout ça, comme les N° doubles et surtout la terminologie "dou" ?? J'ai du mal, là ;-)) La vieillerie ;-)))
Wild and Free
No problemo, miss ;-))) Par contre, vie E-Mail, je pense que j'économiserai mon forfait ;-)))
Pi j'avais deviné, pour VB ;-))
En quand tu m'enverras ton e-mail, tu en profitera pour m'expliquer mieux tout ça, comme les N° doubles et surtout la terminologie "dou" ?? J'ai du mal, là ;-)) La vieillerie ;-)))
Wild and Free
