[Magi-X]

Salut, j'espere qu'il y a un ptit douer en vb ici, car j'ai un petit probleme assez bizare ..
Bon pour l'ecole jdois faire un bete petit programme qui ecris vers un fichier, lie dun fichier et effacer, enfin le basic quoi!

Donc j'ai ete voir sur msdn comment faire cela !

J'ai trouver ce que je cherchais sauf que le code pour lire d'un fichier ne fonctionne pas ...

donc pour ecrire g fais ce code ci, et cela fonctionne tres bien

Function Create_file()
    Dim fso, txtfile
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txtfile = fso.CreateTextFile("c:\testfile.txt", True)
    txtfile.Write ("This is a test. ") ' Write a line.
    ' Write a line with a newline character.
    txtfile.WriteLine ("Testing 1, 2, 3.")
    ' Write three newline characters to the file.
    txtfile.WriteBlankLines (3)
    txtfile.Close
End Function

mais il donne aussi un autre code, qui ecris vers un fichier et lie en meme temps et celui la il me donne une erreur :

Compile error:
User-defined type not defined

et la faute se trouve la ou g mit en rouge !

Dim fso As New FileSystemObject, txtfile, _
      fil1 As File, ts As TextStream
    fso.CreateTextFile "c:\testfile.txt", True
    MsgBox "Writing file"
    ' Write a line.
    Set fil1 = fso.GetFile("c:\testfile.txt")
    Set ts = fil1.OpenAsTextStream(ForWriting)
    ts.Write "Hello World"
    ts.Close
    ' Read the contents of the file.
    Set ts = fil1.OpenAsTextStream(ForReading)
    s = ts.ReadLine
    MsgBox s
    ts.Close

Je suis presque certain que le code est juste, vu que ca viens de msdn ... donc je dirais plus tot qu'il y a un probleme au niveau du compiler !!

Enfin ci quelquun sais m'aider ..

Merci

[BeClaude]

Salut à tous,

Tu le fait sous VB6 ou VB.net ?

En tout cas cela vient du type apparement Dim as new ça doit pas exister ?!!!

Dim as integer
Dim as String
Dim as Double
Dim as ect..............

Voir tableau suivant
http://bebasic.free.fr/NDFR/VB.net.jpg

Cela vient que tu declare pas correctement la variable ?!!!!


Pris sur VB.net
Le type défini par l'utilisateur (UDT, User-Defined Type) pris en charge par les précédentes versions de Visual Basic est généralisé comme une structure dans Visual Basic .NET. Une structure est une concaténation d'un ou plusieurs membres de divers types de données. La structure est traitée comme une seule unité, même si ses membres sont également accessibles individuellement.

Une déclaration de structure débute par l'instruction Structure et se termine par l'instruction End Structure. L'instruction Structure fournit le nom de la structure, qui représente également l'identificateur du type de données défini par la structure. D'autres parties du code peuvent utiliser cet identificateur pour déclarer le type de données des variables, arguments et valeurs de retour des fonctions.

Le paradigme suivant montre la déclaration d'une structure :

[Public | Protected | Friend | Protected Friend | Private] Structure structname
{Dim | Public | Friend | Private} member1 As datatype1
...
{Dim | Public | Friend | Private} memberN As datatypeN
End Structure
Les déclarations figurant entre les instructions Structure et End Structure définissent les membres de la structure. Chaque membre doit être déclaré avec une instruction Dim ou une instruction spécifiant l'accès, telle que Public, Private ou Friend. Si une instruction Dim est utilisée, elle possède par défaut l'accès Public.

Remarque Comme dans le cas de tous les types de données composites, vous ne pouvez pas calculer en toute sécurité la consommation totale de la mémoire d'une structure en additionnant les allocations de stockage nominal de ses membres. De plus, il est risqué de supposer que l'ordre de stockage dans la mémoire est identique à l'ordre de déclaration.
Toutes les structures héritent de la classe System.ValueType .NET.

Voila en esperant que àa puisse t'aider ?!?

[cameleon69]

Salut je viens de m'inscrire pour te répondre a ta question.
pour que tu puisse utiliser FileSystemObject, il faut que tu ajoute une référence à une dll de microsoft. Pour cela va dans le menu Projet\Référence ..., dans la fenêtre qui s'ouvre tu trouveras, dans la liste la dll portant le nom 'Microsoft Scripting Runtime', coche la case et quitte en cliquant sur Ok. Cette procédure est pour VB6. Pour VB.NET c'est un peu différent
Relance ton projet pour voir, maintenant cela doit fonctionner.
Si tu veux encore plus d'aide en VB tu peux te rendre sur http://www.vbfrance.com, tu y trouveras plein de petit bout de code qui pourrons t'être très utile.

[Magi-X]

ehben cameleon69, merci beaucoup je ne savais pas qu'il fallais aller la pour faire cela ..

En tout cas un gros merchi , car au moin jpeu terminer le prgramme

merci a BeClaude aussi !

[cameleon69]

c'est avec plaisir que j'ai répondu à ton appel à l'aide et si tu as encore des petits problèmes en VB tu peux compter sur moi.

[Samva]

ARgggggggg du VayBay.....

Ce post très constructif était sponsorisé par l'entreprise Borland : Delphi for .Net is out