200分高难度问题,解决立即给分(文件统计)

Question

文本文件barcode.txt 中有很多条码比如
103909  
103908
103907
103804
103805
103806
103908
1039071对文件进行处理成如下
条码    ,       数量103909  , 1
103908  , 2
103907  , 2
103804  , 1
103805  , 1
103806  , 1就是对每个条码出现的次数进行统计2.条码234位表示型号,如果2,3,4位字符完全相同则认为完全相同并进行计数处理方式型号  ,数量 ,条码
039    ,5    ,103909 103908  103907  103908  103907
038    ,3    ,103804 103805  103806

Answer 1

这有什么什么难的？把文本文件里面的数据读入内存里，挨着走一遍，做一下字符分析不就可以了吗？
控件用太多，不会连数组都不知道怎么用吧！好歹也应该知道delphi里面有个TStringList吧！

Answer 2

放入数据库的话，可以用简单的SQL来进行，第2题可能需要几个步骤。不用数据库的话，用结构数组或者链表来做，例如第1题可以定义这样的结构体：TCodeCount= record
  Code: string;
  Count: integer;
  pNext; PCodeCount;
end;
PCodeCount = ^TCodeCount;一条一条从文件当中读入，然后查找链表，有该号，就增加Count，没有就增加一个节点。第2体类似。

Answer 3

no1.procedure TForm1.Button1Click(Sender: TObject);
var
  sl: tstrings;
  procedure Del2Lines(strList: TStrings);
  var
    strListTemp: TStrings;
    i: Integer;
    str: string;
  begin
    strListTemp := TStringList.Create;
    try
      for i := 0 to strList.Count - 1 do
      begin
        str := strList.Strings[i];
        if strListTemp.IndexOf(trim(str)) < 0 then
        begin
          strListTemp.Add(str);
        end;
      end;
      strList.Assign(strListTemp);
    finally
      strListTemp.Free;
    end;  end;
  procedure Stat(Newsl: Tstrings);
  var
    i,j,icount: integer;
  begin
    Newsl.Clear;
    //stat
    for i:=0 to sl.Count - 1 do
    begin
      icount:=0;
      for j := 0 to sl.Count - 1 do
      begin
        if sl.Strings[i] = sl.Strings[j] then
          icount := icount + 1;
      end;
      Newsl.Add(sl.Strings[i] + ',' + inttostr(icount));
    end;
    //delete same lines
    Del2Lines(Newsl);
  end;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('C:\Documents and Settings\Administrator\桌面\1.txt');
  Stat(Memo2.Lines); //show result
  sl.Free;
end;

Answer 4

谢谢 lzy6204(为了忘却的记忆)     no.2更麻烦点,有没有高手再帮帮忙