delphi 读取字符串问题

显示全部楼层 · 2011-9-27 08:58:22

unit Unit4;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);p...

千问 · 2011-9-27 08:58:22

这分我也来抢... 大体代码和9999一样,但我提供一个函数...用法: 1: 先把所有文字读入Memo12: for循环中GetCStr(memo1.lines.strings,'[td]','[/td]')function GetCStr(con...

千问 · 2011-9-27 08:58:22

用正则表达式获取[td](\d+月\d+日)[/td]Match[1]即为你要的日期...

千问 · 2011-9-27 08:58:22

一行一行读，每一行读取后tirm掉开头的空格，然后如果是以[td]开头的，则再trim掉开头的[td]和结尾的[/td]，如果不为空就记录下来...