[sarafis]

Καλημέρα σε όλους
Προσπαθώ να εισάγω το περιεχόμενο από αρχεία txt χρησιμοποιώντας
Dim keimeno as String
Dim sFileText As String
Dim iFileNo As Integer
iFileNo = FreeFile
Open "c:\test.txt" For Input As #iFileNo
keimeno = ""
Do While Not EOF(iFileNo)
Input #iFileNo, sFileText
keimeno = keimeno & " " & sFileText
Loop
Debug.Print sFileText
Close #iFileNo
Δουλεύει και με πολλές γραμμές αλλά έχω πρόβλημα με την κωδικοποίηση των χαρακτήρων. Τα αρχεία είναι αποθηκευμένα σε μορφή "unicode big endian" και όπου υπάρχουν ελληνικοί χαρακτήρες εμφανίζονται ιερογλυφικά.
Παρόλο που έψαξα για αρκετές ώρες δεν κατάφερα να βρώ κάτι. Ελπίζω πως κάποιος θα είναι σε θέση να βοηθήσει.