[PASCAL] Komenda otwierająca plik *.txt

[infoR_96]

Witam!

Czy w TURBO Pascalu istnieje komenda, która otworzy mi plik tekstowy z rozszerzeniem .txt ? Jeśli tak, to proszę o podanie

Z GÓRY DZIĘKI ZA POMOC

[matiit]

:arrow: http://turbopascal.skryptoteka.pl/13.html

edit: (;

[kawior1]

http://turbopascal.skryptoteka.pl/13.html

[infoR_96]

chodzi mi o to, żeby windows otworzył w nowym oknie ...

[_alex]

Exec(GetEnv('comspec'),'/c c:\x.txt'); [/code]

O to ci chodzi?

[infoR_96]

Niestety, wyskakuje błąd

[_alex]

To napisz jaki, nie ma tu jasnowidzów. Ale zakładam ze zapomniałeś w uses dopisać Dos.

[infoR_96]

Sorki, że nie napisałem - przesyłam 2 SCREENY: pierwszy to błąd, a drugi to fragment kodu...

1. 

2. 

[nr47]

Masz niesparowane nawiasy w przedostatniej linii (od razu widać!)

[infoR_96]

Dobra skomilowałem i nie otwiera mi się! dodatkowo nie chce mi się w tym pliku nic napisać, bo chodzi mi o to, że ja chciałbym wpisać w ten plik txt., używając kodu:

assign (dowydruku, 'dowydruku.txt');

rewrite (dowydruku);

writeln (...);

writeln (...);

writeln (...);

writeln (...);

close (dowydruku);

Inaczej mówiąc chodzi mi o to, żeby do pliku tekstowego zostało wpisane, to co wpiszę do kodu, np. jeśli mam zmienną:

var

liczba1;

to chciałbym, żeby, jak wpiszę kod:

rewrite (dowydruku);

writeln ('czy chcesz dodać ', liczba1, '?');

Może muszę w zmiennej pliku zamiast wpisać

var

dowydruku : file of string

wpisać

var

dowydruku : text

I żebym później komendą włączył ten plik tekstowy...

?? Pomóżcie Z góry dziękuję za odpowiedź

[_alex]

Czy istnieje ten plik który się nie otwiera?

użyj:

var liczba1:string;

writeln ('czy chcesz dodać '+liczba1+'?');

Co oznacza "komendą włączył ten plik tekstowy" - nie mam pojęcia, proszę o wyjaśnienie.

[infoR_96]

dobra po prostu chcę wiedzieć co mam wpisać, żeby otworzyć plik .txt, bo Twoje:

Exec(GetEnv('comspec'),'/c c:\x.txt');

Zwyczajnie nie działa!

Chciałbym, żeby podczas pracy programu uruchomił się plik .txt - żądany przeze mnie - aby się normalnie uruchomił w nowym oknie...

[_alex]

Możesz uściślić "Zwyczajnie nie działa!" ?

To polecenie otwiera w notepadzie plik x.txt zapisany w folderze głównym dysku c:

Nie podałeś jak zmodyfikowałeś to polecenie, podejrzewam że zrobiłeś to niepoprawnie.

[infoR_96]

tak to wpisałem i się nie włącza, a na dysku C jest, w folderze 'Disc1' też

[_alex]

Exec(GetEnv('comspec'),'/c c:\disk1\dowydruku.txt'); [/code]

No chyba że folder disk1 nie znajduje się wprost na dysku c:

Trzeba podać pełną ścieżkę

[infoR_96]

Problem jest w tym, że ta ścieżka jest tak długa, że nie mogę jej zmieścić a jak przenoszę to wyskakuję błąd:

String constant exeeds line

[_alex]

To od tego trzeba było zaczynać. Pokażcie jak się przenosi.

Exec(  GetEnv('comspec'),  '/c '+  'c:'+  '\disk1'+  '\dowydruku.txt'); [/code]