Ecrire et lecture apartir d fichier en vb.net
Fermé
saadrajawi05
Messages postés
4
Date d'inscription
lundi 31 mars 2008
Statut
Membre
Dernière intervention
15 juin 2009
-
1 mai 2008 à 12:25
abiza Messages postés 2 Date d'inscription jeudi 25 décembre 2008 Statut Membre Dernière intervention 20 juin 2009 - 15 juin 2009 à 20:20
abiza Messages postés 2 Date d'inscription jeudi 25 décembre 2008 Statut Membre Dernière intervention 20 juin 2009 - 15 juin 2009 à 20:20
A voir également:
- Ecrire et lecture apartir d fichier en vb.net
- Fichier rar - Guide
- Fichier host - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Ecrire en gras sur whatsapp - Guide
1 réponse
3andek controle 3and moba7
hhhhhhhhhhhhhhhhhhhhhhh
Module Module1
Structure ENREG
Dim CodePRO As Integer
<VBFixedString(20)> Dim despro As String
Dim pupro As Double
Dim qtestockpro As Integer
Dim trouve As Boolean
End Structure
Dim enregpro As ENREG
Dim i, j, k As Integer
Dim Code, qte As Integer
Dim pu As Double
Dim des As String
Dim trouve As Boolean
Dim choix As Integer
Sub Main()
Do
Console.WriteLine(" ")
Console.WriteLine(" ♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫")
Console.WriteLine(" ♫ -1-Enregistrer un nouveau produit ♫")
Console.WriteLine(" ♫ -2-Rechercher un produit ♫")
Console.WriteLine(" ♫ -3-Afficher la liste de tous les produits ♫")
Console.WriteLine(" ♫ -4-suprrimer ts les produits ayant une quantité en stock =0 ♫")
Console.WriteLine(" ♫ -5-augmenter tous les prix des produit ♫")
Console.WriteLine(" ♫ -6-arréter ♫")
Console.WriteLine(" ♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫")
Console.WriteLine(" ")
Console.WriteLine("Faites votre choix(1,2,3,4,5 ou 6)")
choix = Console.ReadLine
Select Case choix
Case Is = 1
FileOpen(1, "c:\produit.txt", OpenMode.Random)
Do
Console.WriteLine("introduire le code du produit a enregistrer")
Code = Console.ReadLine
i = LOF(1) / Len(enregpro)
j = 0
trouve = False
While j < i And trouve = False
j = j + 1
FileGet(1, enregpro, j)
If Code = enregpro.CodePRO Then
trouve = True
End If
End While
If trouve = True Then
Console.WriteLine("code existe deja introduire un nouveau")
End If
Loop Until trouve = False
Console.WriteLine("introduire la designation")
des = Console.ReadLine
Console.WriteLine("introduire le prix unitaire")
pu = Console.ReadLine
Console.WriteLine("introduire la quantite en stock")
qte = Console.ReadLine
enregpro.CodePRO = Code
enregpro.despro = des
enregpro.pupro = pu
enregpro.qtestockpro = qte
FilePut(1, enregpro, i + 1)
FileClose(1)
Case Is = 2
Console.WriteLine("introduire le code du produit a rechercher")
Code = Console.ReadLine
FileOpen(1, "c:\produit.txt", OpenMode.Random)
i = LOF(1) / Len(enregpro)
j = 0
trouve = False
While j < i And trouve = False
j = j + 1
FileGet(1, enregpro, j)
If Code = enregpro.CodePRO Then
trouve = True
Console.WriteLine(enregpro.CodePRO)
Console.WriteLine(enregpro.despro)
Console.WriteLine(enregpro.pupro)
Console.WriteLine(enregpro.qtestockpro)
End If
End While
If trouve = False Then
Console.WriteLine("code inexistant")
End If
FileClose(1)
Case Is = 3
Dim j As Integer
FileOpen(1, "c:\produit.txt", OpenMode.Random)
i = LOF(1) / Len(enregpro)
Console.WriteLine("Code | designation | prix unitaire | qte")
For j = 1 To i
FileGet(1, enregpro, j)
Console.WriteLine(enregpro.CodePRO & " | " & enregpro.despro & " | " & enregpro.pupro & " | " & enregpro.qtestockpro)
Next
FileClose(1)
Case Is = 4
FileOpen(1, "c:\produit.txt", OpenMode.Random)
FileOpen(2, "c:\FTemp.txt", OpenMode.Random)
i = LOF(1) / Len(enregpro)
j = 0
k = 0
While j <= i
j = j + 1
FileGet(1, enregpro, j)
If enregpro.qtestockpro <> 0 Then
k = k + 1
FilePut(2, enregpro, k)
End If
End While
FileClose(1)
FileClose(2)
Kill("C:\Produit.txt")
Rename("c:\FTemp.txt", "C:\Produit.txt")
Case Is = 5
Dim i, j As Integer
FileOpen(1, "C:\Produit.txt", OpenMode.Random)
FileOpen(2, "c:\FTemp.txt", OpenMode.Random)
i = LOF(1) / Len(enregpro)
j = 0
While j <= i
j = j + 1
FileGet(1, enregpro, j)
enregpro.pupro = enregpro.pupro + (enregpro.pupro * 0.1)
FileClose(1)
End While
Case Is = 6
Exit Sub
End Select
Loop
End Sub
End Module
hhhhhhhhhhhhhhhhhhhhhhh
Module Module1
Structure ENREG
Dim CodePRO As Integer
<VBFixedString(20)> Dim despro As String
Dim pupro As Double
Dim qtestockpro As Integer
Dim trouve As Boolean
End Structure
Dim enregpro As ENREG
Dim i, j, k As Integer
Dim Code, qte As Integer
Dim pu As Double
Dim des As String
Dim trouve As Boolean
Dim choix As Integer
Sub Main()
Do
Console.WriteLine(" ")
Console.WriteLine(" ♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫")
Console.WriteLine(" ♫ -1-Enregistrer un nouveau produit ♫")
Console.WriteLine(" ♫ -2-Rechercher un produit ♫")
Console.WriteLine(" ♫ -3-Afficher la liste de tous les produits ♫")
Console.WriteLine(" ♫ -4-suprrimer ts les produits ayant une quantité en stock =0 ♫")
Console.WriteLine(" ♫ -5-augmenter tous les prix des produit ♫")
Console.WriteLine(" ♫ -6-arréter ♫")
Console.WriteLine(" ♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫")
Console.WriteLine(" ")
Console.WriteLine("Faites votre choix(1,2,3,4,5 ou 6)")
choix = Console.ReadLine
Select Case choix
Case Is = 1
FileOpen(1, "c:\produit.txt", OpenMode.Random)
Do
Console.WriteLine("introduire le code du produit a enregistrer")
Code = Console.ReadLine
i = LOF(1) / Len(enregpro)
j = 0
trouve = False
While j < i And trouve = False
j = j + 1
FileGet(1, enregpro, j)
If Code = enregpro.CodePRO Then
trouve = True
End If
End While
If trouve = True Then
Console.WriteLine("code existe deja introduire un nouveau")
End If
Loop Until trouve = False
Console.WriteLine("introduire la designation")
des = Console.ReadLine
Console.WriteLine("introduire le prix unitaire")
pu = Console.ReadLine
Console.WriteLine("introduire la quantite en stock")
qte = Console.ReadLine
enregpro.CodePRO = Code
enregpro.despro = des
enregpro.pupro = pu
enregpro.qtestockpro = qte
FilePut(1, enregpro, i + 1)
FileClose(1)
Case Is = 2
Console.WriteLine("introduire le code du produit a rechercher")
Code = Console.ReadLine
FileOpen(1, "c:\produit.txt", OpenMode.Random)
i = LOF(1) / Len(enregpro)
j = 0
trouve = False
While j < i And trouve = False
j = j + 1
FileGet(1, enregpro, j)
If Code = enregpro.CodePRO Then
trouve = True
Console.WriteLine(enregpro.CodePRO)
Console.WriteLine(enregpro.despro)
Console.WriteLine(enregpro.pupro)
Console.WriteLine(enregpro.qtestockpro)
End If
End While
If trouve = False Then
Console.WriteLine("code inexistant")
End If
FileClose(1)
Case Is = 3
Dim j As Integer
FileOpen(1, "c:\produit.txt", OpenMode.Random)
i = LOF(1) / Len(enregpro)
Console.WriteLine("Code | designation | prix unitaire | qte")
For j = 1 To i
FileGet(1, enregpro, j)
Console.WriteLine(enregpro.CodePRO & " | " & enregpro.despro & " | " & enregpro.pupro & " | " & enregpro.qtestockpro)
Next
FileClose(1)
Case Is = 4
FileOpen(1, "c:\produit.txt", OpenMode.Random)
FileOpen(2, "c:\FTemp.txt", OpenMode.Random)
i = LOF(1) / Len(enregpro)
j = 0
k = 0
While j <= i
j = j + 1
FileGet(1, enregpro, j)
If enregpro.qtestockpro <> 0 Then
k = k + 1
FilePut(2, enregpro, k)
End If
End While
FileClose(1)
FileClose(2)
Kill("C:\Produit.txt")
Rename("c:\FTemp.txt", "C:\Produit.txt")
Case Is = 5
Dim i, j As Integer
FileOpen(1, "C:\Produit.txt", OpenMode.Random)
FileOpen(2, "c:\FTemp.txt", OpenMode.Random)
i = LOF(1) / Len(enregpro)
j = 0
While j <= i
j = j + 1
FileGet(1, enregpro, j)
enregpro.pupro = enregpro.pupro + (enregpro.pupro * 0.1)
FileClose(1)
End While
Case Is = 6
Exit Sub
End Select
Loop
End Sub
End Module
6 mars 2009 à 20:36
15 juin 2009 à 20:20
dim T(20) as integer ' c est ta dire en a déclarer un tableaux de 20 case entier
donc pour le redimontionner le tableaux en appelle cette commande
redim (T(8)) ' c-t-d que cette tableaux de 20 entier en redéfinition par 8 entier donc
redim = formater un tableaux avec autre valeur .
bon chance en VB
15 mars 2009 à 18:01