自己写的 分割 字符串 的小软件

qq351317878

分割已一行为单位  ，可同时分割多行
以逗号为分割标志   

（源码可以自己修改）


源码献上   界面，源码和我人一样丑   所以轻喷

http://pan.baidu.com/s/1dDvjR49

1. 
   
2. unit Unit1;
   
3. 
   
4. interface
   
5. 
   
6. uses
   
7.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
8.   Dialogs, StdCtrls;
   
9. 
   
10. type
    
11.   TForm1 = class(TForm)
    
12.     Memo1: TMemo;
    
13.     Memo2: TMemo;
    
14.     Memo3: TMemo;
    
15.     Memo4: TMemo;
    
16.     Memo5: TMemo;
    
17.     Memo6: TMemo;
    
18.     Button1: TButton;
    
19.     Label1: TLabel;
    
20.     procedure Button1Click(Sender: TObject);
    
21.     function mysplit(Source, Deli: string ): TStringList; stdcall;
    
22. 
    
23. 
    
24.   private
    
25.     { Private declarations }
    
26.   public
    
27.     { Public declarations }
    
28.   end;
    
29. 
    
30. var
    
31.   Form1: TForm1;
    
32. 
    
33. implementation
    
34. 
    
35. {$R *.dfm}
    
36. 
    
37. procedure TForm1.Button1Click(Sender: TObject);
    
38. var
    
39.   j,i,memocount:Integer;
    
40.   s:string  ;
    
41.   constr:TStringList;
    
42. 
    
43. begin
    
44.    Memo2.Clear;
    
45.    Memo3.Clear;
    
46.    Memo4.Clear;
    
47.    Memo5.Clear;
    
48.    Memo6.Clear;
    
49.    memocount:= Memo1.Lines.Count ;
    
50.    for i:= 0 to memocount do
    
51.    begin
    
52.       s:=Memo1.Lines.Strings[i];
    
53.       s:=StringReplace (s, ',', '，', [rfReplaceAll]);    //转换全角
    
54.       if  Length(Trim(s)) <> 0 then
    
55.       begin
    
56. 
    
57. 
    
58.           constr :=TStringList.Create;
    
59.           constr:= mysplit(s,'，');       //分割文本
    
60.           if constr.Count = 5 then
    
61.           begin
    
62.             Memo2.Lines.Add(constr[0]);
    
63.             Memo3.Lines.Add(constr[1]);
    
64.             Memo4.Lines.Add(constr[2]);
    
65.             Memo5.Lines.Add(constr[3]) ;
    
66.             Memo6.Lines.Add(constr[4]) ;
    
67.           end;
    
68. 
    
69. 
    
70.       
    
71. 
    
72. 
    
73. 
    
74. 
    
75.       end;
    
76. 
    
77. 
    
78. 
    
79.    end;
    
80.    Label1.Caption := + IntToStr(Memo1.Lines .Count - Memo2.Lines.Count )+'处分割失败';
    
81. 
    
82. 
    
83. 
    
84. 
    
85. 
    
86. 
    
87. 
    
88. 
    
89. end;
    
90. function tform1.mysplit (Source, Deli: string ): TStringList; stdcall;   //分割函数
    
91. var
    
92. EndOfCurrentString: byte;
    
93. StringList:TStringList;
    
94. begin
    
95.   StringList:=TStringList.Create;
    
96.   while Pos(Deli, Source)>0 do
    
97.   begin
    
98.     EndOfCurrentString := Pos(Deli, Source);
    
99.     StringList.add(Copy(Source, 1, EndOfCurrentString - 1));
    
100.     Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString);
     
101.   end;
     
102.   Result := StringList;
     
103.   StringList.Add(source);
     
104. end;
     
105. 
     
106. end.
     
107. 
     
108. 
     
109. 
     
110. 
     
111. 
     
112. 
     
113. 
     
114. end;
     
115. function tform1.mysplit (Source, Deli: string ): TStringList; stdcall;
     
116. var
     
117. EndOfCurrentString: byte;
     
118. StringList:TStringList;
     
119. begin
     
120.   StringList:=TStringList.Create;
     
121.   while Pos(Deli, Source)>0 do
     
122.   begin
     
123.     EndOfCurrentString := Pos(Deli, Source);
     
124.     StringList.add(Copy(Source, 1, EndOfCurrentString - 1));
     
125.     Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString);
     
126.   end;
     
127.   Result := StringList;
     
128.   StringList.Add(source);
     
129. end;
     
130. 
     
131. end.

复制代码

qq351317878

沙发坐了{:1_1:} 听说抢沙发的含义很邪恶

求大神鞭挞  

Mikel

怎么不把代码贴出来？

qq351317878

Mikel 发表于 2014-10-15 18:14
怎么不把代码贴出来？

好

qq351317878

Mikel 发表于 2014-10-15 18:14
怎么不把代码贴出来？

贴上了   大神  多鞭挞

qq351317878

Mikel 发表于 2014-10-15 18:14
怎么不把代码贴出来？

因为这东西是一个朋友需要，然后也不怎么难  就写了   。。没有什么高难度的东西

Mikel

我不是大神啊， 我真的看不懂，你这是python？ 很抱歉啊。

qq351317878

Mikel 发表于 2014-10-15 18:41
我不是大神啊， 我真的看不懂，你这是python？ 很抱歉啊。

delphi7    人丑，代码也丑T^T

蚂蚁_Data

楼主标题党，这明明就是C语言的

qq351317878

蚂蚁_Data 发表于 2014-10-18 10:25
楼主标题党，这明明就是C语言的

Delphi 7 好不好   c语言各种括号    Delphi   是begin  和end  的     格式都是按照小甲鱼教的格式来的   不至于这么难看懂吧   自我感觉可读性还是不错的   下载cnpack    读代码跟好