=?ISO-8859-2?Q?[VFP9]_Jak_wczyta=E6_plik_tekstowy?=
Agnieszka Pepowski - 08-02-2007 00:02
=?ISO-8859-2?Q?[VFP9]_Jak_wczyta=E6_plik_tekstowy?=
W końcu przesiadam sie ze starego poczciwego Clippera na VFP9 i mam potrzebę
wczytać plik TXT do pamięci a następnie go dopisac do innego pliku TXT.
W Clipperze była funkcja MemoRead a w VFP nic nie moge znaleźć.
--
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/
Kamil Paszkiewicz - 08-02-2007 00:02
Dnia Wed, 7 Feb 2007 19:29:20 +0000 (UTC), Agnieszka Pepowski napisał(a):
> W końcu przesiadam sie ze starego poczciwego Clippera na VFP9 i mam potrzebę
> wczytać plik TXT do pamięci a następnie go dopisac do innego pliku TXT.
> W Clipperze była funkcja MemoRead a w VFP nic nie moge znaleźć.
zmienna = FileToStr("plik1.txt")
StrToFile(zmienna, "plik2.txt")
--
Pozdrawiam
Kamil Paszkiewicz
"Jedzmy gówna! Przecież miliony much nie mogą nie mieć racji..." - W.Łysiak
Art.R - 08-02-2007 00:02
=?iso-8859-2?Q?Re:_=5BVFP9=5D_Jak_wczyta=E6_plik_tekstowy?=
>W końcu przesiadam sie ze starego poczciwego Clippera na VFP9 i mam
>potrzebę
> wczytać plik TXT do pamięci a następnie go dopisac do innego pliku TXT.
> W Clipperze była funkcja MemoRead a w VFP nic nie moge znaleźć.
>
IF FILE('errors.txt') && Czy plik istnieje?
gnErrFile = FOPEN('errors.txt',12) && Jeśli tak, otwórz do zapisu i
odczytu
ELSE
gnErrFile = FCREATE('errors.txt') && Jeśli nie, utwórz go
ENDIF
IF gnErrFile < 0 && Sprawdź, czy wystąpił błąd otwarcia pliku
WAIT 'Otwarcie lub utworzenie pliku jest niemożliwe' WINDOW NOWAIT
ELSE && Jeśli nie było błędu, zapisz do pliku
=FWRITE(gnErrFile, 'Tu mają być zapisane informacje o błędach')
ENDIF
=FCLOSE(gnErrFile) && Zamknij plik
MODIFY FILE errors.txt NOWAIT && Otwórz plik w oknie edycji
----------------------------------------------------------------------
Fergie i jej biodra.... - zobacz >> http://link.interia.pl/f19ed
--
Archiwum grupy: http://niusy.onet.pl/pl.comp.bazy-danych
Agnieszka Pepowski - 08-02-2007 00:02
=?ISO-8859-2?Q?Re:_[VFP9]_Jak_wczyta=E6_plik_tekstowy?=
Kamil Paszkiewicz <kamil.paszkiewicz@NOwell-comSPAM.pl> napisał(a):
> Dnia Wed, 7 Feb 2007 19:29:20 +0000 (UTC), Agnieszka Pepowski napisał(a):
>
> > W końcu przesiadam sie ze starego poczciwego Clippera na VFP9 i mam potrzebę
> > wczytać plik TXT do pamięci a następnie go dopisac do innego pliku TXT.
> > W Clipperze była funkcja MemoRead a w VFP nic nie moge znaleźć.
>
> zmienna = FileToStr("plik1.txt")
> StrToFile(zmienna, "plik2.txt")
>
Bardzo dziękuję. Działa świetnie.
Mam jeszcze inne pytani problem.Klauzula ADDITIVE w Clipperze działała
świetnie a w VFP działa tylko gdy wydam komendę SET PRINTER ON ale wtedy druk
zamiast tylko do pliku idzie też na drukarkę a tego chcę uniknąć.
Bez polecenia SET PRINTER ON klauzula ADDITIVE nie działa i plik jest
zastępowany zamiast dodawany.
........
Drukarka("plik.txt")
@ Prow()+1,1 Say "bla bla bla"
Drukarka("plik.txt", "ADD")
@ Prow()+1,1 Say "inne bla bla bla"
FUNCTION Drukarka(plik, jak)
IF !EMPTY(jak) .And. jak="ADD"
SET PRINTER TO (plik) ADDITIVE
ELSE
SET PRINTER TO (plik)
ENDIF
SET DEVICE TO PRINTER
RETURN
--
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/
zanotowane.pldoc.pisz.plpdf.pisz.pleffulla.pev.pl
|
Wydajność baz danych w zależności od poziomu izolacji ANSI/ISO
Czy zna (obsługuje) ktoś program Iso Draw ?
MYSQL - kodowanie w ISO-PL
strona plus baza w iso do utf-8
Kodowanie: z iso na utf
Konwesja znaków w dump'ie bazy danych - ISO -> utf-8 -> ISO -> utf-8
=?iso-8859-2?q?Co_oznacza_b=B3=B1d_Warning:_mysql=5Fconnect() _[function.mysql-connect]:_Can't_connect_to_local_MySQL_server_through_sock et_'/var/run/mysqld/mysqld.sock'_(2)_in?=
=?iso-8859-2?q?Informatyka,_Java,_EJB,_Ajax,_Spring=2E_Czy=BF by_to_koniec_=B6wiata,_czy_te=BF_nasze_uczelnie_b= EAd=B1_uczy=B3y_w_ko=F1cu!_czego_praktycznego_=2E= 2E=2E=2E?=
[MS SQL 2005] =?windows-1250?Q?Ilo=9C=E6_wiersz=F3w_w_zbiorze_wynikowym?=
=?ISO-8859-2?Q?=AFegnam_si=EA=2E=2E=2E?=
zanotowane.pldoc.pisz.plpdf.pisz.plmelooonka.opx.pl
Cytat
Decede mihi sole - nie zasłaniaj mi słonca.
Gdy kogoś kochasz, jesteś jak stworzyciel świata - na cokolwiek spojrzysz, nabiera to kształtu, wypełnia się barwą, światłem. Powietrze przytula się do ciebie, choćby był mróz, a ty masz w sobie tyle radości, że musisz ją rozdawać wokoło, bo się w tobie nie mieści
Hoc fac - tak czyń.
A tergo - od tyłu; z tyłu.
I czarne włosy posiwieją. Safona |
|
