Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[Pascal] Prosty program - zapis do pliku txt

pl_su45 12 Maj 2010 19:43 4222 4
  • #1 12 Maj 2010 19:43
    pl_su45
    Poziom 2  

    Witam wszystkich na forum, jestem baardzo początkującym programistą :). Rozpoczynam naukę od Turbo Pascala, gdyż przez wielu jest on uważany za najprostszy język.

    Napisałem prosty program:

    Code:
    Uses CRT;
    
    Var
    zrodlo:string;
    nazwa:string;
    link:string;
    koordy:string;

    BEGIN
    Write('Podaj zrodlo obrazka wraz z rozszerzeniem...');
    ReadLn(zrodlo);
    Write('Podaj nazwe mapy...');
    ReadLn(nazwa);
    Write('Podaj adres strony, do jakiej odnosi sie tabela, z rozsz. np. html...');
    ReadLn(link);
    WriteLn('Podaj koordy : odl. lewego gornego i prawego dolnego rogu mapy');
    WriteLn('od lewego gornego rogu obrazka w formacie: 0,0,30,30 (np)...');
    ReadLn(koordy);
    WriteLn('Wpis do kodu:');
    WriteLn('<img src="',zrodlo,'" USEMAP="#',nazwa,'" BORDER=0>');
    WriteLn('<map name="',nazwa,'">');
    WriteLn('<area shape="rect" coords="',koordy,'" href="',link,'>');
    WriteLn('</map>');
    WriteLn('Wcisnij teraz enter...');
    ReadLn;
    END.

    Jak widać, program będzie nam tworzyć wpisy do HTML, jeżeli na jednym obrazku będziemy chcieli utworzyć np. kilka linków (nie wiem dokładnie, jak to się fachowo nazywa - u mnie jest to mapa obrazka; jeżeli jestem w błędzie - proszę mnie uświadomić). Chciałbym, aby ten wpis był automatycznie eksportowany do pliku "wpis.txt". Jaki kod mam zastosować?

    Zaznaczam, że jestem w temacie programowania kompletnie zielony oraz, że szukałem odpowiedzi na forum - nie znalazłem.

    Pozdrawiam wszystkich - Kuba.

    0 4
  • #2 12 Maj 2010 21:22
    adamz74
    Poziom 30  

    Zawsze jeszcze są Google :) i trochę więcej samodzielności.

    Code:

    uses dos, crt;

    var plik: text;

    begin

    assign(plik, 'plik.txt');
    rewrite(plik);

    write(plik, 'to zostanie zapisane do pliku');

    end.


    Pozdr!

    0
  • Pomocny post
    #3 12 Maj 2010 21:42
    wrych
    Poziom 20  

    adamz74 napisał:
    Zawsze jeszcze są Google :) i trochę więcej samodzielności.

    Code:

    uses dos, crt;

    var plik: text;

    begin

    assign(plik, 'plik.txt');
    rewrite(plik);

    write(plik, 'to zostanie zapisane do pliku');

    end.




    Pozdr!

    Ta odpowiedź jest bardzo niestaranna. Brakuje zamknięcia pliku
    Code:
    close(plik);

    Ponadto za każdym razem plik będzie "nadpisywany" od początku. Należy zatem użyć za pierwszym razem
    Code:
    rewrite(plik);

    a podczas dopisywania kolejnych linii (o ile wcześniej plik zamknięto)
    Code:
    append(plik);

    ...

    1
  • Pomocny post
    #4 14 Maj 2010 20:01
    adamz74
    Poziom 30  

    Cytat:
    Ta odpowiedź jest bardzo niestaranna. Brakuje zamknięcia pliku


    Może, ale raczej niepełna... miała być wskazówką czego szukać a nie bezbłędnym rozwiązaniem problemu. Kolega Kuba dopiero uczy się programować i jeśli sam nie nauczy się szybko szukać potrzebnych informacji w dokumentacjach, helpach, Internecie,... to będzie miał problem z samodzielnym napisaniem jakiegokolwiek programu.

    0
  • #5 15 Maj 2010 20:42
    pl_su45
    Poziom 2  

    Witam,
    Dziękuję Wam za odpowiedzi. Adamz74 miał rację - wystarczyło poszukać na Google. Ja jednak nie znałem komendy odpowiadającej za otwieranie pliku (assign), która okazała się być bardzo potrzebna do wyszukania odpowiedzi.
    Oczywiście, punkty "pomógł" zostały przyznane.

    Pozdrawiam Kuba

    0