WinForms

Διαγωνισμός : Οσο λιγότερο κώδικα τόσο περισσότερα μιλφειγς !!!!!!!

isidoros — Thu, 21 Oct 2004 18:27:18 GMT

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

Re: Write in ASCII file for DOS apps via .NET, HELP!

gkontog — Wed, 20 Oct 2004 18:35:32 GMT

Φχαρστώ!

Re: Write in ASCII file for DOS apps via .NET, HELP!

jded — Tue, 19 Oct 2004 22:07:50 GMT

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

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

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

Write in ASCII file for DOS apps via .NET, HELP!

gkontog — Tue, 19 Oct 2004 21:54:36 GMT

Ναι,

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

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

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