Discussion :

[mihaispr]

Salut! J'ai une petite probleme a resoudre dans un code.

J'ai le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Imports System.IO.TextWriter
Module Module1
 
    Sub Main()
        Dim newError As TextWriter 'ici c'est la ligne 5 ou se trouve l'erreur
 
        Console.SetError(newError)
    End Sub
 
End Module

Il me donne cette erreur:

Error 1 Type 'TextWriter' is not defined. C:\Documents and Settings\MIHAI\Local Settings\Application Data\Temporary Projects\ConsoleApplication1\Module1.vb 5 25 ConsoleApplication1

Comment je dois modifier le code au-dessus?

[Danyel]

Voici l'exemple officiel msdn du textwriter

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
Imports System
Imports System.IO
Public Class TextRW
    Shared Sub Main()
        Dim aStringWriter, aStreamWriter As TextWriter
        aStringWriter = New StringWriter()
        aStreamWriter = New StreamWriter("InvalidPathChars.txt")
        WriteText(aStringWriter)
        WriteText(aStreamWriter)
        aStreamWriter.Close()
        Dim aStringReader, aStreamReader As TextReader
        aStringReader = New StringReader(aStringWriter.ToString())
        aStreamReader = New StreamReader("InvalidPathChars.txt")
        ReadText(aStringReader)
        ReadText(aStreamReader)
        aStreamReader.Close()
    End Sub
    Shared Sub WriteText(aTextWriter As TextWriter)
        aTextWriter.Write("Invalid file path characters are: ")
        aTextWriter.Write(Path.InvalidPathChars)
        aTextWriter.Write("."C)
    End Sub
    Shared Sub ReadText(aTextReader As TextReader)
        Console.WriteLine("From {0} - {1}", _
            aTextReader.GetType().Name, aTextReader.ReadToEnd())
    End Sub
End Class

[mihaispr]

Salut Danyel!

Merci pour ton reponse!

Il m'a donne 2 erreurs et j'ai modifie comme ca ce que tu m'ar remis:

Dans un nouveau fichier .vb copie ca:

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
 
Imports System
Imports System.IO
Public Class TextRW
    Shared Sub Main()
        Dim aStringWriter, aStreamWriter As TextWriter
        aStringWriter = New StringWriter()
        aStreamWriter = New StreamWriter("InvalidPathChars.txt")
        WriteText(aStringWriter)
        WriteText(aStreamWriter)
        aStreamWriter.Close()
        Dim aStringReader, aStreamReader As TextReader
        aStringReader = New StringReader(aStringWriter.ToString())
        aStreamReader = New StreamReader("InvalidPathChars.txt")
        ReadText(aStringReader)
        ReadText(aStreamReader)
        aStreamReader.Close()
    End Sub
    Shared Sub WriteText(ByVal aTextWriter As TextWriter)
        aTextWriter.Write("Invalid file path characters are: ")
        aTextWriter.Write(Path.InvalidPathChars)
        aTextWriter.Write("."c)
    End Sub
    Shared Sub ReadText(ByVal aTextReader As TextReader)
        Console.WriteLine("From {0} - {1}", _
            aTextReader.GetType().Name, aTextReader.ReadToEnd())
    End Sub
End Class

Pourtant j'obtiens le message d'erreurs suivant:

Error 1 'InvalidFileNameChars' is not a member of 'System.IO.Path'. C:\Documents and Settings\MIHAI\Local Settings\Application Data\Temporary Projects\ConsoleApplication1\Module1.vb 20 27 ConsoleApplication1

Dans InvalidPathChars.txt un fichier notepad j'ai le contenu suivant:


test1 test2 test3
test4 test5 test6

Quand je lance le programme le contenu n'est pas affiche sur l'ecran.

Pourquoi?

[Danyel]

Si tu fais ceci, as tu une erreur et est ce que ca fonctionne ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Imports System
Imports System.IO
 
Public Class TextRW
 
    Shared Sub Main()
 
        Dim aStringWriter As TextWriter
        aStringWriter = New StringWriter()
        WriteText(aStringWriter)
 
    End Sub
 
End Class