info
Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
ostatni znak z pliku
15 views
Skip to first unread message
DD
Jan 9, 2013, 4:30:50 AM1/9/13
to
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
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
Emeryt
Jan 10, 2013, 4:17:27 AM1/10/13
to
U�ytkownik "DD" <dominika...@gmail.com> napisa� w wiadomo�ci
news:f47cb52a-d4ef-418b...@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�
End If
zmienn� b.
Wscript. musi byc wcze�niej zdefiniowane jako obiekt np:
Wscript.CreateObject(strProgID, [strPrefix]) = objObject
pozdr
0 new messages