[VB] Help demander d'urgence pour stage
elrin
Messages postés
37
Date d'inscription
Statut
Membre
Dernière intervention
-
elrin Messages postés 37 Date d'inscription Statut Membre Dernière intervention -
elrin Messages postés 37 Date d'inscription Statut Membre Dernière intervention -
Salut vous tous qui pourrait m'aider?
Je suis en stage de dévellopemnt sous visual basic et je doit réaliser un chtit prog qui me modifie ça: (c sur une meme ligne theoriquement)
00000001411TOULON010205 00000001 Poste 3 Toulon 44.00 0.00
en ça:
00000001411TOULON010205 00000001 Poste 3 Toulon 44.00D
si besoin je peut envoyer ce que j'ai fait.
Je vous en supplie.
Je suis loin d'etre douer en visual basic.
Je travaille sous vb6
Merci d'avance à vous tous et bonne journée.
Je suis en stage de dévellopemnt sous visual basic et je doit réaliser un chtit prog qui me modifie ça: (c sur une meme ligne theoriquement)
00000001411TOULON010205 00000001 Poste 3 Toulon 44.00 0.00
en ça:
00000001411TOULON010205 00000001 Poste 3 Toulon 44.00D
si besoin je peut envoyer ce que j'ai fait.
Je vous en supplie.
Je suis loin d'etre douer en visual basic.
Je travaille sous vb6
Merci d'avance à vous tous et bonne journée.
A voir également:
- [VB] Help demander d'urgence pour stage
- Vb - Télécharger - Langages
- Plan rapport de stage - Guide
- Sonic stage - Télécharger - Création musicale
- Vb cable - Télécharger - Audio & Musique
- Acheter un rapport de stage - Forum Programmation
11 réponses
Salut,
d'abord keep cool, respire un grand coup,
et dit moi plus de détails, je suis aussi en stage mais je fait du VBA.
Je pense que je peux quand même te donnerun coup de main.
Ta ligne, c'est un string c'est bien ça ?
si oui, regarde dans l'aide si tu trouve la methode Mid()
@+
d'abord keep cool, respire un grand coup,
et dit moi plus de détails, je suis aussi en stage mais je fait du VBA.
Je pense que je peux quand même te donnerun coup de main.
Ta ligne, c'est un string c'est bien ça ?
si oui, regarde dans l'aide si tu trouve la methode Mid()
@+
en fait g le debit et le credit qui sont sur deux colonne et ils fo qe je regroup ds uneseule colonne.
C quoi eja un string?
C quoi eja un string?
voila c qe g fait ms cela ne concerne pas la partie modification du fichier
Option Explicit
Dim SelectedFile As String
Dim ligne As String
Dim vari As Integer
Dim contenu As String
Dim chemin As String
Private Sub avantconvertion_Click()
On Error GoTo gesterr1
'ouverture du fichier
Open SelectedFile For Input As #1
'affichage de son contenu
While Not EOF(1)
Line Input #1, ligne
visualisation.Text = visualisation.Text & ligne & vbCrLf
Wend
'fermeture du fichier
Close #1
Exit Sub
'gestion de l'oubli de selection de fichier
gesterr1:
MsgBox ("vous n'avez pas selectionner de fichier")
End Sub
Private Sub Drive1_Change()
On Error GoTo gesterr2
'Séléction du lecteur
Dir1.Path = Drive1.Drive
Exit Sub
'gestion d'un periphérique indisponible
gesterr2:
MsgBox ("Le periphérique selectionné est indisponible, veuillez recommencer votre choix")
End Sub
Private Sub Dir1_Change()
'Séléction du dossier
File1.Path = Dir1.Path
End Sub
Private Sub erase_Click()
'demande de confirmation pour effacer le contenu du textbox visualisation
If MsgBox("voulez-vous effacer le texte affiché? ", vbYesNo) = vbYes Then
'mise a 0 du textbox visualisation
visualisation.Text = ""
Else
'textbox visualisation laissé telquel
End If
End Sub
Private Sub File1_Click()
'Séléction du fichier
SelectedFile = File1.Path & "\" & File1.FileName
End Sub
Private Sub convertion_Click()
MsgBox ("La convertion est achevée")
End Sub
Private Sub info_Click()
MsgBox ("Logiciel de modification de fichier texte pour avoir les débits/crédits dans une même colonne")
End Sub
Private Sub print_Click()
End Sub
Private Sub imprimer_Click()
Dim stA As String
Dim FF As Long
FF = FreeFile
'ouvrir le fichier a imprimer
Open SelectedFile For Input As #FF
Printer.Print " "
Do Until EOF(FF)
Line Input #FF, stA
Printer.Print stA
Loop
'Refermer le fichier et passer la main à l'imprimante
Close #FF
Printer.EndDoc
End Sub
Private Sub quitter_Click()
'Demande de confirmation pour quitter l'application
If MsgBox("Vous allez quitter l'application êtes-vous d'accord?", vbYesNo, "confirmation de sortie") = vbYes Then
'quitter l'application
End
Else
'rester dans l'application
End If
End Sub
Private Sub save_Click()
vari = FreeFile
contenu = Form1.visualisation.Text
' adresse du fichier a enregistrer
chemin = SelectedFile
'ouverture du fichier
Open chemin For Output As #vari
' enregistrement du texte
Print #vari, contenu
'Fermeture du fichier
Close vari
End Sub
Private Sub visualisation_Change()
End Sub
Option Explicit
Dim SelectedFile As String
Dim ligne As String
Dim vari As Integer
Dim contenu As String
Dim chemin As String
Private Sub avantconvertion_Click()
On Error GoTo gesterr1
'ouverture du fichier
Open SelectedFile For Input As #1
'affichage de son contenu
While Not EOF(1)
Line Input #1, ligne
visualisation.Text = visualisation.Text & ligne & vbCrLf
Wend
'fermeture du fichier
Close #1
Exit Sub
'gestion de l'oubli de selection de fichier
gesterr1:
MsgBox ("vous n'avez pas selectionner de fichier")
End Sub
Private Sub Drive1_Change()
On Error GoTo gesterr2
'Séléction du lecteur
Dir1.Path = Drive1.Drive
Exit Sub
'gestion d'un periphérique indisponible
gesterr2:
MsgBox ("Le periphérique selectionné est indisponible, veuillez recommencer votre choix")
End Sub
Private Sub Dir1_Change()
'Séléction du dossier
File1.Path = Dir1.Path
End Sub
Private Sub erase_Click()
'demande de confirmation pour effacer le contenu du textbox visualisation
If MsgBox("voulez-vous effacer le texte affiché? ", vbYesNo) = vbYes Then
'mise a 0 du textbox visualisation
visualisation.Text = ""
Else
'textbox visualisation laissé telquel
End If
End Sub
Private Sub File1_Click()
'Séléction du fichier
SelectedFile = File1.Path & "\" & File1.FileName
End Sub
Private Sub convertion_Click()
MsgBox ("La convertion est achevée")
End Sub
Private Sub info_Click()
MsgBox ("Logiciel de modification de fichier texte pour avoir les débits/crédits dans une même colonne")
End Sub
Private Sub print_Click()
End Sub
Private Sub imprimer_Click()
Dim stA As String
Dim FF As Long
FF = FreeFile
'ouvrir le fichier a imprimer
Open SelectedFile For Input As #FF
Printer.Print " "
Do Until EOF(FF)
Line Input #FF, stA
Printer.Print stA
Loop
'Refermer le fichier et passer la main à l'imprimante
Close #FF
Printer.EndDoc
End Sub
Private Sub quitter_Click()
'Demande de confirmation pour quitter l'application
If MsgBox("Vous allez quitter l'application êtes-vous d'accord?", vbYesNo, "confirmation de sortie") = vbYes Then
'quitter l'application
End
Else
'rester dans l'application
End If
End Sub
Private Sub save_Click()
vari = FreeFile
contenu = Form1.visualisation.Text
' adresse du fichier a enregistrer
chemin = SelectedFile
'ouverture du fichier
Open chemin For Output As #vari
' enregistrement du texte
Print #vari, contenu
'Fermeture du fichier
Close vari
End Sub
Private Sub visualisation_Change()
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Il faut que j'arrive a dire que si 1er nombe different de 0 alors s 1er nombre avaec un "d" accolle et si c le 2eme alors c deuxieme nombre avec "c" accole ca doit ce faire otomatiquement
g essayer ms g du me planter qqe part alors g tout effacer.
:'(
en + je c pas utiliser la fonction mid()
suis perdu
et les developeur de lentreprise ne st pas la lol les feneants
;*)
:'(
en + je c pas utiliser la fonction mid()
suis perdu
et les developeur de lentreprise ne st pas la lol les feneants
;*)
le pb c que je ne peu pas connaitre le nombre de caracter quil fo pour utiliser la fonction mid().
Je ne sait plus quoi faire.
Je ne sait plus quoi faire.
j'avais viré le code car je m'etais trompé.
l faut que je recommence tout.
et desolé pour l'ecriture du precedent message.
l faut que je recommence tout.
et desolé pour l'ecriture du precedent message.
