请各位大哥大姐帮小弟分一下这个文本文件的内容好吗?

Question

请各位大哥大姐帮小弟分一下这个文本文件的内容好吗?
我是想要把H开头的行拷贝出来到一个Memu或是listbox里,都行,只要分离出来.
例如文件内容如下:
ADHS=SHDKSHDSK
AJHHDKSJDH
A--SDHSKJDSH4566 DSDSDKSH567890-567890-45678903456789034567890
FSDJHFSFDHSDKFHDKJH DSKHSJDSD SD S
SHDSKH
DHSUH7655 SDSKJDHS 45678967890-567890SDADAASDSH6789 DHSDHADDSDHSADH
DHSHDKSJ
H65534 DFSD2345678904567890-34567890-小弟没有分,敬请各位大力相助了.要不就只有重新建个号给你分.

Answer 1

var
  lInput,lOutput : TStringList;
  i : Integer;
begin
  lInput := TStringList.Create;
  lOutput := TStringList.Create;
  try
    lInput.LoadFromFile('C:\in.txt');
    for i:=0 to lInput.Count-1 do
    begin
      if Pos('H',lInput.Strings[i])>0 then
        lOutput.Add(lInput.Strings[i]);
    end;
    lOutput.SaveToFile('C:\out.txt');
  finally
    lInput.Free;
    lOutput.Free;
  end;
end;

Answer 2

上面的不对
var
  lInput,lOutput : TStringList;
  i : Integer;
begin
  lInput := TStringList.Create;
  lOutput := TStringList.Create;
  try
    lInput.LoadFromFile('C:\in.txt');
    for i:=0 to lInput.Count-1 do
    begin
      if (Trim(lInput.Strings[i])<>'') and (Copy(lInput.Strings[i],1,1)='H') then
        lOutput.Add(lInput.Strings[i]);
    end;
    lOutput.SaveToFile('C:\out.txt');
  finally
    lInput.Free;
    lOutput.Free;
  end;
end;

Answer 3

我还可以部问问大头鸟吗?
还是上一个问题,得到了H打头的字符串后,现在想将它们排序该怎么办?
比如:
H2109 4567 4567 4567 45678 4567 456
H2483 RFTGYH DFGH EDFGH ED FGH DFGH ED
H2123 4567 4567 3456 3456 345 456 45
H2003 FGHJ FGHJ RTYU ERTY ERTY ERTY RT
H2409 DFGH DFGH DFGH DFGH DFGH DFGH 
想要得到从小到大的一个排序:
H2003 FGHJ FGHJ RTYU ERTY ERTY ERTY RT
H2109 4567 4567 4567 45678 4567 456
H2123 4567 4567 3456 3456 345 456 45
H2409 DFGH DFGH DFGH DFGH DFGH DFGH
H2483 RFTGYH DFGH EDFGH ED FGH DFGH ED

Answer 4

var
  lInput,lOutput : TStringList;
  i : Integer;
begin
  lInput := TStringList.Create;
  lOutput := TStringList.Create;
  try
    lInput.LoadFromFile('C:\in.txt');
    for i:=0 to lInput.Count-1 do
    begin
      if (Trim(lInput.Strings[i])<>'') and (Copy(lInput.Strings[i],1,1)='H') then
        lOutput.Add(lInput.Strings[i]);
    end;
    lOutput.Sort;   //增加这行
    lOutput.SaveToFile('C:\out.txt');
  finally
    lInput.Free;
    lOutput.Free;
  end;
end;

Answer 5

请问suton ,在那增加行作用吗?

Answer 6

TStringList类,本身就有排序的方法,调用一下就好了.

Answer 7

请问我现在是想在1个combobox被选中某项时,下面的几个edit对应到相应的值.
如文本为:
H4567 城区 s5678 123456789 34567
H3567 城区 s5678 123456789 34567
H6567 城区 s5678 123456789 34567
H8567 城区 s5678 123456789 34567
........
在combobox中选中了(H8567),那么在edit1中就是(城区),edit2中(s5678),edit3中(123456789),edit4中(34567).
请问我该怎么做!
希望大家慷慨解囊!!!!!!!!!!!!!!!!!!!!!
小弟不胜感激!!!!!!!!!!!!!!!!!

Answer 8

combobox  edit1 edit2..都连到数据集？

Answer 9

用sort之后，有一样的内容它不会自动的替换，如果要想让数据出现同样的内容，应该怎么让它自动的替换掉呢？
不知道有哪位大哥能不能帮着解决一下子．