Discussion :

[khayate]

comment on peut afficher des données dans un fichier ascII mais chaque donnée dans une ligne???pour etre plus clair je recupere une colonne d'une table oracle ensuite je veux afficher les données de cette colonne dans un ficher ascii,mais ce ke je veux c'est d'afficher chacune des données de la colonne dans une ligne du ficher ascII

[Pol63]

tu créés un fichier texte
tu l'ouvres
tu écris dedans
tu passe une ligne quand t'as envie
tu boucles si t'as plein de choses à mettre dedans
tu fermes le fichier

voir F1 ou google pour les détails ...

[Aspic]

tu créés un fichier texte
tu l'ouvres
tu écris dedans
tu passe une ligne quand t'as envie
tu boucles si t'as plein de choses à mettre dedans
tu fermes le fichier

voir F1 ou google pour les détails ...

Traduction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 Private Sub traitement(ByVal Path As String, ByVal data As Byte())
        Dim FluxW As New IO.FileStream(Path, IO.FileMode.Create) 'crée un fichier
        FluxW.Write(data, 0, data.Length) 'ecrit les données
        FluxW.Close() 'ferme le fichier
 
        Dim FluxR As New IO.FileStream(Path, IO.FileMode.Open) 'ouvre un fichier qui existe deja
        Dim Resultat(1024) As Byte
        FluxR.Read(Resultat, 0, Resultat.Length) 'lis 1024 octets
        FluxR.Close() 'ferme le fichier
 
        'valable que pour les fichiers texte !
        Dim Flux As New IO.StreamReader(Path, False)
        While Flux.Peek <> -1 'tans qu'on peut lire
            Dim resultat1 As String = Flux.ReadLine 'lis une seule ligne ou alors
            Dim Resultat2 As String = Flux.ReadToEnd 'lis tout d'un coup
        End While
        Flux.Close() 'on ferme le fichier
    End Sub

[khayate]

merci la c beaucoup plus clair

[Aspic]

merci la c beaucoup plus clair

Je sais le code est toujours plus explicite que le francais

[khayate]

c plus clair c sur mais le probleme c kan je mets ce code:
"Le processus ne peut pas accéder au fichier 'c:\fgh', car il est en cours d'utilisation par un autre processus." en sachant ke le 'c:\fgh' est le chemin ke je lui indique pour mettre mes données dans un nouveau fichier ascII
je mets mon code comeme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim a As Integer
        'Dim element As New DataTable
        Dim entetePrets As String = readParamSql("enteteprets")
        Dim entete() As String
        entete = Split(entetePrets, ";")
        '**recuperation des données du dataset
        Dim fs As New System.IO.FileStream(Me.TextBoxFichier3D.Text, IO.FileMode.Create, IO.FileAccess.Write)
        Dim sw As New System.IO.StreamWriter(fs)
        'Dim FluxR As New IO.FileStream(Me.TextBoxFichier3D.Text, IO.FileMode.Open) 'ouvre un fichier qui existe deja
        'Dim Resultat(1024) As Byte
        'FluxR.Read(Resultat, 0, Resultat.Length) 'lis 1024 octets
        'FluxR.Close() 'ferme le fichier
 
        ''valable que pour les fichiers texte !
        'Dim Flux As New IO.StreamReader(Me.TextBoxFichier3D.Text, False)
        'While Flux.Peek <> -1 'tans qu'on peut lire
        '    Dim resultat1 As String = Flux.ReadLine 'lis une seule ligne ou alors
        '    Dim Resultat2 As String = Flux.ReadToEnd 'lis tout d'un coup
        'End While
        'Flux.Close()
        For a = 0 To dsRequete.Tables(0).Rows.Count - 1
            'MsgBox(dsRequete.Tables("COTE.PRETS").Rows(a).Item("PR_CLIENT"))
 
            For i As Integer = 0 To entete.LongLength - 1 'element.Rows.Count - 1
                sw.Write(dsRequete.Tables("TOTO").Rows(a).Item(entete(i))) '.Item("PR_CLIENT"))
            Next
        Next
        MsgBox("ok")

ce qui est en commentaire c'est ce ke j'ai pris du forum.

[Aspic]

Ou est l'extension dans le nom de ton fichier ??