Zapis do pliku bez CR+LF

Article View: pl.comp.lang.vbasic

Article #104313

Back to pl.comp.lang.vbasic Previous Next

#104313

From: 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/

Technical Details

Message-ID: <h9m8dm$8lh$1@inews.gazeta.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail
From: " Goprowiec" <goprowiec1@NOSPAM.gazeta.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Zapis do pliku bez CR+LF
Date: Sat, 26 Sep 2009 23:34:14 +0000 (UTC)
Organization: "Portal Gazeta.pl -> http://www.gazeta.pl"
Lines: 26
Message-ID: <h9m8dm$8lh$1@inews.gazeta.pl>
NNTP-Posting-Host: localhost
X-Trace: inews.gazeta.pl 1254008054 8881 172.20.26.241 (26 Sep 2009 23:34:14 GMT)
X-Complaints-To: usenet@agora.pl
NNTP-Posting-Date: Sat, 26 Sep 2009 23:34:14 +0000 (UTC)
X-User: goprowiec1
X-Forwarded-For: 79.186.99.6
X-Remote-IP: localhost
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit