Prosty generator sitemap.

[XAroX]

Witam.

Napisałem prosty (bardzo prosty?) generator sitemap dla adresów z jedna zmienna. Program generuje sitemape dla stron w których jest stala czesc adresu a zmieniaja sie tylko cyferki np.:

www.abc.pl/temat1.php

www.abc.pl/temat2.php

itd.

Program generuje wszystko lokalnie wiec nie zuzywa transferu.

Zdaje sobie sprawe ze w 99,9% stron nie znajdzie on zastosowania ale mozliwe ze komus sie przyda do wygenerowania sitemapy części serwisu.

Prosty Generator Stron:

https://most.waw.pl/PGS.exe

Pozdrawiam.

[Maximus Marius]

Nie żebym Ci nie ufał ale pierwszy post i od razu EXE ?

[XAroX]

Moge spakowac zipem A tak na powaznie to pewnie sam bym mial obawy no ale inaczej sie niestety nie da. Moze ktos odwazny sciagnie - przeskanuje i powiadomi innych ze nie ma wirusa. Program nie korzysta z sieci wiec o trojana mozecie byc spokojni.

[Maximus Marius]

Dziś nie korzysta z netu a jutro jak sie obudzę to MBR będzie tylko wspomnieniem

Jeżeli Twoje exe będą cyfrowo podpisane to zwiększa to szanse że je uruchomię

[XAroX]

to zwiększa to szanse że je uruchomię

Tyle ze ja nikogo nie namawiam zeby to sciagal i uruchamial. Potrzebowalem tego narzedzia dla siebie wiec napisalem i tyle. Pomyslalem ze komus moze sie rowniez przycac wiec wstawilem na forum. Jezeli ktos uzna ze jemu rowniez moze sie przydac to sciagnie, a jak nie to tez z tego powodu plakal nie bede. Jak cos to w kazdym razie jest jak bedzie potrzebne.

Pozdrawiam.

[Maximus Marius]

Jak dla mnie to wystarczy kod PAS, kompilator mam w oczach

[XAroX]

unit Unit2;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ComCtrls;

type
 TForm2 = class(TForm)
   Memo1: TMemo;
   Button1: TButton;
   Button2: TButton;
   Edit1: TEdit;
   Edit2: TEdit;
   Edit3: TEdit;
   Edit4: TEdit;
   Label1: TLabel;
   Label2: TLabel;
   Label3: TLabel;
   Label4: TLabel;
   Label5: TLabel;
   Label6: TLabel;
   Label7: TLabel;
   ProgressBar1: TProgressBar;
   SaveDialog1: TSaveDialog;
   Label8: TLabel;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure Edit1Click(Sender: TObject);
   procedure Edit2Click(Sender: TObject);
   procedure Edit3Click(Sender: TObject);
   procedure Edit4Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form2: TForm2;
  i:integer;
  s:string;
implementation

{$R *.dfm}



procedure TForm2.Button1Click(Sender: TObject);
begin
ProgressBar1.Max:=Strtoint(Edit3.Text);
memo1.lines.text:='<?xml version="1.0" encoding="UTF-8"?>' + Chr(13) + '<urlset xmlns="https://www.sitemaps.org/schemas/sitemap/0.9">' + Chr(13);
for i:=Strtoint(Edit2.Text) to Strtoint(Edit3.Text) do
begin
ProgressBar1.Position:=i;
s:=IntToStr(i);
memo1.lines.text:=memo1.lines.text+Chr(32)+Chr(32)+Chr(32)+'<url>'+Chr(13)+Chr(32)+Chr(32)+ 
Chr(32)+Chr(32)+Chr(32)+Chr(32)+'<loc>'+Edit1.text+s+Edit4.text+'</loc>'+Chr(13)+Chr(32)+Chr(32)+Chr(32)+'</url>'+Chr(13);
end;
memo1.lines.text:=memo1.lines.text+'</urlset>';
Label8.visible:=true;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
label8.Visible:=false;
if Savedialog1.Execute then
memo1.Lines.SaveToFile(Savedialog1.filename);
end;

procedure TForm2.Edit1Click(Sender: TObject);
begin
label8.Visible:=false;
end;

procedure TForm2.Edit2Click(Sender: TObject);
begin
label8.Visible:=false;
end;

procedure TForm2.Edit3Click(Sender: TObject);
begin
label8.Visible:=false;
end;

procedure TForm2.Edit4Click(Sender: TObject);
begin
label8.Visible:=false;
end;

end

No to sobie skompiluj Tylko nie pisz ze mozna to napisac optymalniej bo ja nie programista tylko poczatkujacy hobbysta amator