有个文件 ,有内容如下<java>
<p>你好</p>
好<br>
......
</java>我想这样处理,请问程序改怎么写,给点提示,如果给程序就更好
如果看到 "<" 则复制下 "<" 和 ">" 中间的字符 ,然后全文查找</字符>
保存<字符> xxxxxxx</字符>中间的内容比如看到 第一个 < 则复制下 java ,然后全文查找 </java>
然后保存下<java></java>中间的东西,进一步分析
<p>你好</p>
好<br>
......
</java>我想这样处理,请问程序改怎么写,给点提示,如果给程序就更好
如果看到 "<" 则复制下 "<" 和 ">" 中间的字符 ,然后全文查找</字符>
保存<字符> xxxxxxx</字符>中间的内容比如看到 第一个 < 则复制下 java ,然后全文查找 </java>
然后保存下<java></java>中间的东西,进一步分析
var source,temp,resultstring:string;
I,J:integer;
begin
source:='jkeladk<java>hehe</java>jekiadile';
//////一个字符串用来模拟文件内容
for I:=1 to length(source) do
begin
if (source[I]='<') and (source[I+1]<>'/') then
begin
for J:=I to length(source) do
begin
if source[J]='>' then
begin
temp:=copy(source,I+1,J-I-1);
break;
end;
end;
showmessage('找到<'+temp+'>,'+temp+'已保存!');
end;
end;
/////上面找到了java并且保存了;
temp:='</'+temp+'>';
showmessage(temp+'第一次出现的位置:'+IntToStr(AnsiPos(temp, source)));
resultstring:=copy(source,J+1,AnsiPos(temp, source)-J-1);
showmessage(resultstring+'是其中的内容!');
end;
procedure TForm1.Button1Click(Sender: TObject);
var temp:string;
begin
temp:='jkeladk<java>hehe</java>jekiadile';
showmessage(copy(temp,pos('<java>',temp),pos('</java>',temp)-pos('<java>',temp)+7));
end;
var tmp:string;
isjava:boolean;
i:integer;
begin
isjava:=false;
memo2.Lines.Clear;
//memo1里是你的正文内容
for i:=0 to memo1.Lines.Count-1 do
begin
tmp:=memo1.Lines.Strings[i];
if Pos('<java>',tmp)>0 then isjava:=true;
if isjava then memo2.Lines.Add(tmp);
if Pos('</java>',tmp)>0 then isjava:=false;
end;
end;
//////////////但是并不是所有<>里面都是java的,呵呵。
向老大学习...
<html>....</html>
<br>.....</br>
<p>...</p>
不知道老大最近在搞什么东西,那么操作photoshop的程序搞定了没有啊?
begin
if 你的手机号 is T移动 then
call:13589034662
else
call:13355418015;
end;