解决方案 »
- 一个关于DataSource的问题
- 菜鸟求教一些数据库相关的基本问题 解决即给分 谢谢大家!
- 类型转化问题,回答的都给分。
- 如何在标准DLL中封装一个ActiveX对象或者VCL对象
- 咨询一下:你们用什么报表?
- 高分求教:一个潜藏错误的代码,有时报“越界访问地址”错,调了很久了! :(
- 三层结构中,报表制作是如何获得数据?
- 请问如何连接一个端口不是1433的sqlserver2000?(客户端没有Sql server的客户端工具,程序用BDE连接数据库)
- 请问,如用table,与datasource来进行数据的查询,想查询出所有数据,如何办?
- 关于rectangle....
- 【提问】d7+SOAP+webservice,其它语言怎样调用呢?
- 请解释下列语句中括号内四个参数的意义
再处理x取得第一个>之后的内容,即为Printed:其它两个以此类推
代码应该不复杂啊
使用pos函数和copy函数可以实现
代码应该不复杂啊
使用pos函数和copy函数可以实现S2 := copy(s,pos(';">',s)+3,pos('</',s)-pos(';">',s)-1);
Showmessage(copy(s2,pos(';">',s2)+3,pos('</',s2)-pos(';">',s2)-3));我这样写,可以取到Printed:
但后面的呢?怎么写循环。
http://bbs.csdn.net/topics/390853804 这里有例子的是没引号的,如果有引号可以结合上面的函数更简单点。
代码应该不复杂啊
使用pos函数和copy函数可以实现S2 := copy(s,pos(';">',s)+3,pos('</',s)-pos(';">',s)-1);
Showmessage(copy(s2,pos(';">',s2)+3,pos('</',s2)-pos(';">',s2)-3));我这样写,可以取到Printed:
但后面的呢?怎么写循环。procedure TForm1.btn1Click(Sender: TObject);
var
nsl:TStringList;
x,y:string;
i,j:integer;
begin
x:='top:28.324;left:20.409;"><nobr>'+chr(13)
+'<span style="font-size:9.111;">Printed:</span>'+chr(13)
+'<span style="font-size:9.111;">09-Jul-2014</span>'+chr(13)
+'<span style="font-size:9.111;">19:59:17</span>'+chr(13)
+'</nobr></div>';
ShowMessage(x);
x:=StringReplace(x,' ','-', [rfReplaceAll]);
nsl:=TStringList.Create();
nsl.DelimitedText:=x;
nsl.Delimiter:='/';
for i:=0 to nsl.Count-1 do
begin
y:=nsl[i];
if Pos('</span>',y)>0 then
begin
y:=copy(y,1,length(y)-1);
j:=Pos('>',y);
while j>0 do
begin
y:=Copy(y,j+1,Length(y));
j:=Pos('>',y);
end;
y:=Copy(y,1,Pos('<',y)-1);
ShowMessage(y);
end;
end;
nsl.Free;
end;
代码应该不复杂啊
使用pos函数和copy函数可以实现S2 := copy(s,pos(';">',s)+3,pos('</',s)-pos(';">',s)-1);
Showmessage(copy(s2,pos(';">',s2)+3,pos('</',s2)-pos(';">',s2)-3));我这样写,可以取到Printed:
但后面的呢?怎么写循环。谢谢,那如果在SQL可以这样处理吗?
代码应该不复杂啊
使用pos函数和copy函数可以实现S2 := copy(s,pos(';">',s)+3,pos('</',s)-pos(';">',s)-1);
Showmessage(copy(s2,pos(';">',s2)+3,pos('</',s2)-pos(';">',s2)-3));我这样写,可以取到Printed:
但后面的呢?怎么写循环。谢谢,那如果在SQL可以这样处理吗?sql里有substring、left、right函数来处理字符串