一个文件内容处理的问题

有个文件 ，有内容如下<java>
<p>你好</p>
好<br>
......
</java>我想这样处理，请问程序改怎么写，给点提示，如果给程序就更好
如果看到 "<" 则复制下 "<" 和 ">" 中间的字符 ，然后全文查找</字符>
保存<字符> xxxxxxx</字符>中间的内容比如看到 第一个 <  则复制下 java ，然后全文查找 </java> 
然后保存下<java></java>中间的东西，进一步分析

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    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;
      

  2.   

    小河兄弟你那只是一行的，但实际情况有可能跨行，其实一行的这么写就行了
    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;
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);
    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;
      

  4.   

    hellolongbin(一个人[.net学习中……])：小河兄弟你那只是一行的，但实际情况有可能跨行，其实一行的这么写就行了 
    //////////////但是并不是所有<>里面都是java的，呵呵。
    向老大学习...
      

  5.   

    估计搂住在作处理html文件的程序，<>内容很多的，呵呵。
    <html>....</html>
    <br>.....</br>
    <p>...</p>
    不知道老大最近在搞什么东西，那么操作photoshop的程序搞定了没有啊？
      

  6.   

    最近由于公司的需要开始学习嵌入式开发，现在正在熟悉linux环境，唉……老是觉得没什么头绪啊，呵呵，我也想见见你，呵呵，都27了，还是一个人，不是自己要求太高了，就是嘻嘻……。
      

  7.   

    procedure 我的手机号码;
    begin
        if 你的手机号 is T移动 then
        call:13589034662
        else
        call:13355418015;
    end;