🚀 go-pugleaf

Użytkownik <kamil.grzeszczuk@gmail.com> napisał w wiadomości 
news:b6668cf2-e143-40ef-9a69-99bcb38e8f15@f63g2000hsf.googlegroups.com...
Witam

Chce zaimportowac z pliku pewien string  do pola w bazie.Problem mam
gdy w stringu występuje znak Ascii 26 (EOF). Do bazy zapisuje się
tylko częśc stringa do tego znaku.Jest jakiś sposób żeby zapisywał
cały string razem z występującymi znakami ascii 26? Kod z grubsza
wygląda tak:

Open nazwa_pliku For Input As #1
  Line Input #1, pom_all
i fragment do zapisu pobieram przez Mid(pom_all, 10, 20)

[...]

Rzeczywiście, Chr$(26) jest interpretowane jako znak końca linii.
No cóż trzeba jakoś obejść ten przypadek:

Dim sFilePath As String
Dim sFileText As String
Dim aLines() As String
Dim ff As Integer
Dim i As Long

    sFilePath = "c:\Test.txt"
    ff = FreeFile
    ' otwórz plik
    Open sFilePath For Binary Access Read As #ff
        ' przygotuj bufor
        sFileText = Space(LOF(ff))
        ' wczytaj plik
        Get #ff, , sFileText
    Close #ff

    ' rozdziel ciąg znaków w/m vbNewLine
    aLines = Split(sFileText, vbNewLine, , vbBinaryCompare)

    For i = LBound(aLines) To UBound(aLines)
        Debug.Print i; Mid$(aLines(i), 10, 20)
    Next

-- 
Pozdrowienia
BraZby