ostatni znak z pliku

Thread View: pl.comp.lang.vbasic

2 messages

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

2 total messages Started by DD Wed, 09 Jan 2013 09:30

#104937

Author: 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

Re: ostatni znak z pliku

#104939

Author: 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

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