Ναι,

Δυστυχώς είμαι αναγκασμένος να το κάνω και αυτό. Πρέπει από τα data του SQL να φτιάξω σε VB.NET ένα ASCII αρχείο που θα το διαβάσει μία DOS εφαρμογή (και να μη ξαναδώ ερωτήσεις τύπου Why VB6? Εδώ έχουμε DOS! Dososaurus Archaicus Gamopetosayridae στα λατινικά).

Προσπάθησα να καλέσω την CharToOem αλλά δεν είχα επιτυχία. Επαιξα με το System.Text.Encoding και πάλι τίποτα.

Μήπως έχει κάποιος, κάποια ιδέα; Κερνάω μιλφέϊγ!

Να δω το μιλφειγ  πρώτα και μετά σου στέλνω!!!!!!

Αντε επειδή είμαι καλό παιδί κατα βάθος....

Private Sub WriteAscii(ByVal strFilename As String, ByVal strline As String, ByVal Append As Boolean)
        Dim SrcEnc As Encoding = Encoding.Unicode
        Dim DstEnc As Encoding = Encoding.GetEncoding(737)
        Dim sw As StreamWriter
        Dim asciiString As String

        Dim unicodeBytes As Byte() = SrcEnc.GetBytes(strline)
        Dim asciiBytes As Byte() = Encoding.Convert(SrcEnc, DstEnc, unicodeBytes)
        Dim asciiChars(DstEnc.GetCharCount(asciiBytes, 0, asciiBytes.Length) - 1) As Char
        DstEnc.GetChars(asciiBytes, 0, asciiBytes.Length, asciiChars, 0)
        asciiString = New String(asciiChars)
        sw = New StreamWriter(strFilename, Append, DstEnc)

        sw.Write(asciiString)
        sw.Flush()
        sw.Close()
End Sub

Μη ξεχάσεις τα imports
Imports System.IO
Imports System.Text

---

There are 10 types of people in this world... Ones that understand binary and the ones that don't.

Φχαρστώ!

Imports System.Text

Dim enc_result As System.Text.Encoding = Encoding.ASCII.GetEncoding(737)
Dim enc_SOURCE As System.Text.Encoding = Encoding.ASCII.GetEncoding(1253)

Private Function Encode(ByVal STR As String) As String
Return enc_result.GetString(enc_SOURCE.GetBytes(STR))
End Function

---

Seretis Isidoros
----------------------
Join the army
Travel the world,
Meet interesting people
And kill them.