Αρχείο από Dos

SotirisPap — Sat, 26 Jan 2008 00:49:44 GMT

Διατίθεμαι να πληρώσω 50 ευρώ για τον κώδικα της υλοποίησης του παρακάτω.
Εχω ένα txt αρχείο(dst) που προέρχεται από Dos πρόγραμμα κάποιας παλιάς εφαρμογής (data files) και το περιεχόμενό του είναι σαν την επόμενη γραμμή :
‹€‰“ƒ†‘ €ƒ„€‘                 {Χ£p=¤,“@\Β•Ί,“ @

Mε τον παρακάτω κώδικα **
1. το κάνω Encoding.GetEncoding(737)
2. και το γράφω σε ένα άλλο αρχείο το "c:\Dps\MyTest.txt"

το "c:\Dps\MyTest.txt" που δημιουργείται είναι σαν την επόμενη γραμμή (UTF-8):
ΜΑΚΡΥΠΙΔΗΣ ΑΝΔΡΕΑΣ                          ╫μp=ν,Υ@\Π┬Χ║,Υ @

Ξέρωμε από πρίν ότι
╫μp=ν,Υ@    =1234567890,12
\Π┬Χ║,Υ @   =9876543210,34
Πως πρέπει να το χειριστώ γιά να πάρω τά παραπάνω νούμερα.

Ευχαριστώ

**    Private Sub ΔιάβασμαΑρχείουΠελατών1(ByVal dst As String)
        Try
            Dim sql_command As New System.Data.SqlClient.SqlCommand("", connectionOE)
            Dim Fi1 As IO.FileInfo
            Fi1 = My.Computer.FileSystem.GetFileInfo(CType(dst, String))
            Dim gr As Integer = ((Fi1.Length.ToString()) / 1856) + 1
            Dim df As New StreamReader(dst, System.Text.Encoding.GetEncoding(737))
            Dim grs As String = df.ReadToEnd
            df.Close()
            Dim sw As StreamWriter = New StreamWriter("c:\Dps\MyTest.txt")
            Dim i As Integer
            For i = 1 To gr
                Dim s As String = grs.Substring((832 * i) + (1024 * i), 832 + 1024)
                If Regex.Replace(s.Substring(1, 14), "[\x00-\x1f]", "").ToString = "" Then Exit For
                sw.WriteLine(s)
           Next i
            sw.Close()
        Catch exc As Exception
            MsgBox(exc.Message, MsgBoxStyle.Exclamation, "Λάθος! Ορισμός Αρχείων Πελατών1!")
        End Try
    End Sub

Προσφορά/Ζήτηση Υπηρεσιών

Αρχείο από Dos