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 01:30

#102457

Author: DD
Date: Wed, 09 Jan 2013 01:30

25 lines
559 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

#102458

Author: "Emeryt"
Date: Thu, 10 Jan 2013 10:17

22 lines
610 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