如何使用 Lazarus 将 html 表文件打开到字符串网格中？

问题描述

我是新来的，所以请随时就我的提问方式提供反馈。

对于学校的一个项目，我需要使用 Lazarus 在 stringgrid 中打开带有表格的 html 文件。我的老师说我需要使用pos来定位html标签，使用<th>和<tr>我应该可以定义行和列，但我觉得很难。

我还没有解决这个问题，我还停留在早期阶段。我正在尝试查看我的 pos 是否正常工作，但实际上并没有。我的想法是：点击 Button1 将打开 OpenDialog1。然后我选择一个 html 文件，我的程序将搜索 Pos('<th',filename) 中的文本（请参阅包含的代码）。该文本的位置将放在 Label1 中。

我收到此错误：

unit1.pas(46,30) Error: Incompatible type for arg no. 2: Got "TStringList",expected "Variant"

所以我的子问题是：如何在文件中使用 pos？

这是我使用的代码。随意提问并提供反馈。提前致谢！

procedure HtmlToGrid(Grid: TStringGrid; const FileName: string; Sender: TObject);
var
  TextFile,Line: TStringList;
  Row: Integer;
  Col: Integer;
  prob: Integer;
begin
  Grid.RowCount := 0;  //clear any previous data
  TextFile := TStringList.Create;
  Textfile.LoadFromFile(filename);
  prob := Pos('<th',TextFile);
  if (Sender is TLabel) then
    TLabel(Sender).Caption := IntToStr(prob);

end;

procedure TForm1.Button1Click(Sender: TObject);
var filename : string;
begin
  if OpenDialog1.Execute then begin
    filename:= OpenDialog1.FileName;
    HtmlToGrid(database,filename,Label1);
  end;

end;

解决方法

我认为，给您带来困难的一点是没有意识到一旦 您已将文件加载到 TStringList 中，TStringList 的内容可通过其 Text 属性作为字符串访问，因此您可以执行类似

var
  P : integer;
[...]
P := Pos('<th',Textfile.Text). 

但可能你想逐行处理文件，你可以使用 TStringList 的 Strings 属性来完成

S := MyStringList.Strings[Index]. 

注意 Strings 属性是从零开始的，所以第一个列表是 MyStringLIst.Strings[0]。

您可以像这样逐行处理您的 TextFile 内容

var
  i : Integer;
[...]
  for i := 0 to TextFile.Count - 1 do begin
    if Pos('<th',TextFile.Strings[i]) > 0 then 
      { do something }
  end;   

顺便说一句，最好为您的变量指定一个反映其类型的名称，而“TextFile”对于实际上是 TStringList 的内容有点误导，因此名称“StringList”可能比“TextFile”更可取。

花半个小时阅读在线帮助中的 TStringList 是非常值得的。