当前位置：首页 - 正文

delphi 读取字符串问题

发布网友发布时间：2022-04-22 11:10

我来回答

共4个回答

热心网友时间：2023-07-12 18:56

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Memo1: TMemo;

Memo2: TMemo;

Button1: TButton;

procere Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procere TForm1.Button1Click(Sender: TObject);

var

MyStr, tStr:String;

begin

MyStr := Memo1.Text; //我把你要求的字符串存在Memo1.Text中

Memo2.Text := '';

Delete(MyStr, 1, Pos('class="dt">', MyStr));

Delete(MyStr, 1, Pos('</td>', MyStr));

while Pos('class="dt">', MyStr) <> 0 do

begin

Delete(MyStr, 1, Pos('class="dt">', MyStr));

Delete(MyStr, 1, Pos('>', MyStr));

tStr := Copy(MyStr, 1, Pos('</td>', MyStr)-1);

Memo2.Lines.Add(tStr);

end;

end.

追问这个代码我试了下，所有年月日都是一次显示，对吧，我想把每个年月日分别存到一个字符串数组里面去。好做后期的显示。是不是要逐行读取啊。

热心网友时间：2023-07-12 18:56

这分我也来抢... 大体代码和9999一样,但我提供一个函数...
用法:
1: 先把所有文字读入Memo1
2: for循环中 GetCStr(memo1.lines.strings[i],'<td background="/gfx/tsub.gif" class="dt">','</td>
')

function GetCStr(const Strsource, StrBegin, StrEnd: string): string;
var
in_star, in_end: integer;
strtmp: string;
begin

if StrBegin = '' then in_star := 1 else
begin
// if AnsiPos(UpperCase(strbegin), Strsource)
in_star := AnsiPos(strbegin, Strsource) + length(strbegin);

end;
strtmp := copy(Strsource, in_star, length(Strsource));
if StrEnd = '' then begin Result := strtmp; Exit; end else in_end := AnsiPos(strend, strtmp);
result := copy(Strsource, in_star, in_star + in_end - in_star - 1);
end;

热心网友时间：2023-07-12 18:57

用正则表达式获取

<td background="/gfx/tsub.gif" class="dt">(\d+月\d+日)</td>
Match[1]即为你要的日期

热心网友时间：2023-07-12 18:57

一行一行读，每一行读取后tirm掉开头的空格，然后如果是以<td background="/gfx/tsub.gif" class="dt">开头的，则再trim掉开头的<td background="/gfx/tsub.gif" class="dt">和结尾的</td>，如果不为空就记录下来

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

delphi 读取字符串问题

最新推荐

猜你喜欢

热门推荐