🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.vbasic
Article #104939

Re: ostatni znak z pliku

#104939
From: Emeryt
Date: Thu, 10 Jan 2013 09:17
19 lines
1633 bytes
Użytkownik "DD" <dominika.koszuta@gmail.com> napisał w wiadomości 
news:f47cb52a-d4ef-418b-9090-ae08756b55fa@googlegroups.com...

i wali mi się na IFie: "Proba zapisu poza koncem pliku", lub na tym 
wykomentowanym podstawieniu do zmiennej.
Jak to poprawić?
########################################

b=f.Read(1)
If b<>chr(13) then
    Wscript.Echo "Tu nie ma ENTERa"
End If

Instrukcja f.Read(1) może byc wywołana tylko raz, dlatego trezba zastąpic ją 
zmienną b.
Wscript. musi byc wcześniej zdefiniowane jako obiekt np:
Wscript.CreateObject(strProgID, [strPrefix]) = objObject
pozdr 
Technical Details
Message-ID: <kclvtu$ugs$1@srv.cyf-kr.edu.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.cyf-kr.edu.pl!not-for-mail
References: <f47cb52a-d4ef-418b-9090-ae08756b55fa@googlegroups.com>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.cyf-kr.edu.pl!not-for-mail
From: "Emeryt" <wiewro@poczta.onet.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: ostatni znak z pliku
Date: Thu, 10 Jan 2013 10:17:27 +0100
Organization: Academic Computer Center CYFRONET AGH
Lines: 21
Message-ID: <kclvtu$ugs$1@srv.cyf-kr.edu.pl>
References: <f47cb52a-d4ef-418b-9090-ae08756b55fa@googlegroups.com>
NNTP-Posting-Host: 94-po3-5.acn.waw.pl
X-Trace: srv.cyf-kr.edu.pl 1357808382 31260 213.134.187.94 (10 Jan 2013 08:59:42 GMT)
X-Complaints-To: news@cyf-kr.edu.pl
NNTP-Posting-Date: Thu, 10 Jan 2013 08:59:42 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.5931
X-RFC2646: Format=Flowed; Original
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157
X-Antivirus: avast! (VPS 130109-1, 2013-01-09), Outbound message
X-Antivirus-Status: Clean
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit