提取文本里的数字文本.docVIP

提取文本里的数字文本 一次性统统提取——提取文本里的数字文本 作者：小雨 所谓数字文本，就是1、2、3、4这样的单个或连续数字（包括0.8、1.2这样的数字），但不包括IP地址那种有多个小数点的文字（如有需要，请自行修改）。这些数字通常隐藏在众多非数字的文本文件或者字符串中。这里可以一次性把他们全部提取出来放入列表里，列表里的Strings部分保存原始文本，Values里保存转化成数字的变量。使用起来与TStringList风格相似，留给有这种需要的人。 有一个特例：对于单一的“.”符号，也会被收录（我在类里没有处理，因为这种写法，有可能就是懒人0.0的简写，练手的代码，不考虑这么多），如果不喜欢这样的处理，可以自行修改。 unit NumFromStr; interface uses Classes, SysUtils; type PSeriesItem = ^TSeriesItem; TSeriesItem = record FNumString: string; FNumValue : Extended; end; PSeriesItemList = ^TSeriesItemList; TSeriesItemList = array[0..Maxint div 64] of TSeriesItem; TPickNumStringHelper = class(TObject) private FList: PSeriesItemList; FCount: Integer; FCapacity: Integer; procedure Error(Index: Integer); procedure Grow; function GetIntegerValue(Index: Integer): Integer; function StartNumber(const S: string):Integer; function StopNumber(const S: string):Integer; protected function Get(Index: Integer): string;virtual; function GetCapacity: Integer;virtual; function GetCount: Integer;virtual; function GetValue(Index: Integer): Extended; virtual; procedure ParseTextStr(const AnyString: string); virtual; procedure Put(Index: Integer; const NumString: string); virtual; function SepValue(const S: string;const lPos:integer; var VarStr: string):Integer;virtual; procedure SetValue(Index: Integer; NumValue: Extended); virtual; procedure SetCapacity(NewCapacity: Integer);virtual; procedure InsertItem(Index: Integer;const NumString: string; NumValue: Extended); virtual; public destructor Destroy; override; procedure Clear; function Add(const AnyString: string): Integer; function AddNumValue(const NumString: string; NumValue: Extended): Integer; procedure LoadFromFile(const FileName: string);