ostatni znak z pliku

Article View: pl.comp.lang.vbasic

Article #104937

Back to pl.comp.lang.vbasic Previous Next

#104937

From: DD
Date: Wed, 09 Jan 2013 09:30

22 lines
1717 bytes

Witam,
Chcę przeczytać ostatni znak z pliku i sprawdzić czy jest to enter, jeśli tak to ma wypisać komunikat. Skrypcik wyglada tak:

filespec = "C:\test\test.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fs = fso.GetFile(filespec).Size
Set f = fso.OpenTextFile(filespec,1)
f.Skip(fs-1)


'b =  f.Read(1)

If Not f.Read(1) = chr(13) Then
   Wscript.Echo "Tu nie ma ENTERa"
End If


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

----
DD

Technical Details

Message-ID: <f47cb52a-d4ef-418b-9090-ae08756b55fa@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin2!goblin.stu.neva.ru!feeder1.cambriumusenet.nl!feed.tweaknews.nl!209.85.212.215.MISMATCH!m1no4493020wiv.0!news-out.google.com!o9ni1416wio.1!nntp.google.com!m1no4493014wiv.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Received: by 10.180.74.79 with SMTP id r15mr316695wiv.4.1357723851143;        Wed, 09 Jan 2013 01:30:51 -0800 (PST)
Received: by 10.49.95.68 with SMTP id di4mr12078119qeb.0.1357723850624; Wed, 09 Jan 2013 01:30:50 -0800 (PST)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin2!goblin.stu.neva.ru!feeder1.cambriumusenet.nl!feed.tweaknews.nl!209.85.212.215.MISMATCH!m1no4493020wiv.0!news-out.google.com!o9ni1416wio.1!nntp.google.com!m1no4493014wiv.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.lang.vbasic
Date: Wed, 9 Jan 2013 01:30:50 -0800 (PST)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=194.145.229.132; posting-account=iMx9ygoAAAAJrR8FR-FRRscxoibotfdz
NNTP-Posting-Host: 194.145.229.132
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <f47cb52a-d4ef-418b-9090-ae08756b55fa@googlegroups.com>
Subject: ostatni znak z pliku
From: DD <dominika.koszuta@gmail.com>
Injection-Date: Wed, 09 Jan 2013 09:30:51 +0000
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit