Off Topic 
Auslesen einer *.asp seite
Offline
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
unit Output;
interface
uses Input;
function EmitHeader(): string;
function EmitBody(): string;
function EmitFooter(): string;
procedure AddToBody(a: TUFAKid);
procedure ClearBody();
implementation
uses Classes, SysUtils;
var General: TStringlist;
{ conversation routines }
function StringToCell(s: string): string;
begin
result:='<Cell><Data ss:Type="String">'+s+'</Data></Cell>';
end;
{ runtime managment routines }
procedure AddToBody(a: TUFAKid);
begin
General.Append(' <Row>');
General.Append(' '+StringToCell(a.Kennung));
General.Append(' '+StringToCell(a.Anschrift));
General.Append(' '+StringToCell(a.Telefon));
General.Append(' '+StringToCell(a.Fax));
General.Append(' '+StringToCell(a.Kontakt));
General.Append(' '+StringToCell(a.Mail));
General.Append(' '+StringToCell(a.Website));
General.Append(' '+StringToCell(a.WebShop));
General.Append(' '+StringToCell(a.Name));
General.Append(' </Row>');
end;
procedure ClearBody();
begin
General.Clear;
end;
{ Emitter routines }
function EmitHeader(): string;
begin
result:='<?xml version="1.0"?>'#13#10+
' <?mso-application progid="Excel.Sheet"?>'#13#10+
' <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"'#13#10+
' xmlns:o="urn:schemas-microsoft-com:office:office"'#13#10+
' xmlns:x="urn:schemas-microsoft-com:office:excel"'#13#10+
' xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"'#13#10+
' xmlns:html="http://www.w3.org/TR/REC-html40">'#13#10+
' <DocumentProperties xmlns="urn:schemas-microsoft-com:office:office">'#13#10+
' <Author>Felix</Author>'#13#10+
' <LastAuthor>Firma</LastAuthor>'#13#10+
' <Created>2007-02-01T19:58:15Z</Created>'#13#10+
' <LastSaved>2007-02-01T19:59:52Z</LastSaved>'#13#10+
' <Company>-=-=-=-</Company>'#13#10+
' <Version>11.6408</Version>'#13#10+
' </DocumentProperties>'#13#10+
' <ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel">'#13#10+
' <WindowHeight>6285</WindowHeight>'#13#10+
' <WindowWidth>11580</WindowWidth>'#13#10+
' <WindowTopX>240</WindowTopX>'#13#10+
' <WindowTopY>135</WindowTopY>'#13#10+
' <ProtectStructure>False</ProtectStructure>'#13#10+
' <ProtectWindows>False</ProtectWindows>'#13#10+
' </ExcelWorkbook>'#13#10+
' <Styles>'#13#10+
' <Style ss:ID="Default" ss:Name="Normal">'#13#10+
' <Alignment ss:Vertical="Bottom"/>'#13#10+
' <Borders/>'#13#10+
' <Font/>'#13#10+
' <Interior/>'#13#10+
' <NumberFormat/>'#13#10+
' <Protection/>'#13#10+
' </Style>'#13#10+
' <Style ss:ID="s21">'#13#10+
' <Font x:Family="Swiss" ss:Bold="1"/>'#13#10+
' </Style>'#13#10+
' </Styles>'#13#10+
' <Worksheet ss:Name="Tabelle1">'#13#10+
' <Table>'#13#10+
' <Column ss:Width="89.25"/>'#13#10;
end;
function EmitBody(): string;
begin
result:=General.Text+#13#10;
end;
function EmitFooter(): string;
begin
result:=' </Table>'#13#10+
' <WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel">'#13#10+
' <PageSetup>'#13#10+
' <Header x:Margin="0.4921259845"/>'#13#10+
' <Footer x:Margin="0.4921259845"/>'#13#10+
' <PageMargins x:Bottom="0.984251969" x:Left="0.78740157499999996"'#13#10+
' x:Right="0.78740157499999996" x:Top="0.984251969"/>'#13#10+
' </PageSetup>'#13#10+
' <Selected/>'#13#10+
' <Panes>'#13#10+
' <Pane>'#13#10+
' <Number>3</Number>'#13#10+
' <ActiveCol>2</ActiveCol>'#13#10+
' </Pane>'#13#10+
' </Panes>'#13#10+
' <ProtectObjects>False</ProtectObjects>'#13#10+
' <ProtectScenarios>False</ProtectScenarios>'#13#10+
' </WorksheetOptions>'#13#10+
' </Worksheet>'#13#10+
' </Workbook>'#13#10;
end;
initialization
General:=TStringList.Create;
finalization
General.Free;
end.
Wenn du nochmal das gesamte programm haben möchtest, dann schick ichs dir als zip per mail.
