Zapis do pliku bez CR+LF

Thread View: pl.comp.lang.vbasic

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by Goprowiec Sat, 26 Sep 2009 23:34

#104313

Author: Goprowiec
Date: Sat, 26 Sep 2009 23:34

26 lines
1464 bytes

Poszukuję sposobu na skopiowanie części pliku wykorzystującego Unixowy format 
końca linii czyli LF zamiast CR+LF. Plik wejściowy odczytuję w trybie Input 
znak po znaku poprzez funkcję Input:

Do Until LOF(2) = Seek(2)

    varZnak = Input(1, #2)
    linia = linia & varZnak
    
    Do Until Asc(varZnak) = 10
        varZnak = Input(1, #2)
        linia = linia & varZnak
        
    Loop
    
    Put #3, , linia
    linia = ""
    'n = n + 1
Loop

Natomiast przy próbie zapisu do pliku wyściowego przy pomocy instrukcji Put 
zawsze wstawiany jest znak końca linii w formacie Windows (CR+LF). Będę 
wdzięczny za wszelką pomoc

-- 
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads