文字檔案以指定的字串分割

unit unit1;

inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls;
type userarray=array of string;
type
tform1 = class(tform)
edit1: tedit;
button1: tbutton;
button2: tbutton;
listbox1: tlistbox;
procedure button1click(sender: tobject);
procedure button2click(sender: tobject);
private
function split(s: string; dot: char): userarray;
public
end;
var   form1: tform1;
implementation
uses strutils;
//按所給字元將字串分隔成陣列
function tform1.split(s:string;dot:char):userarray;
var   str:userarray;
i,j:integer;
begin
i:=1;
j:=0;
setlength(str, 255);
while pos(dot, s) > 0 do     //pos返回子串在父串中第一次出現的位置.
begin
str[j]:=copy(s,i,pos(dot,s)-i);
i:=pos(dot,s)+1;
s[i-1] := chr(ord(dot)+1);
j:=j+1;
end;
str[j]:=copy(s,i,strlen(pchar(s))-i+1);
result:=str;
end;
procedure tform1.button1click(sender: tobject);
var   ur:userarray;
i:integer;
begin
memo1.clear ;
ur:=split(edit1.text,',');
for i :=0 to 255 do
begin
if length(ur[i])=0 then exit;
listbox1.items.add(ur[i]);
end;
end;
procedure tform1.button2click(sender: tobject);
begin
close;
end;
end.

提取海量文字檔案中含有指定字串的行

在工作中遇到乙個提取乙個目錄中所有文字檔案中含有特定字串的行，並將其寫入乙個檔案，於是有了以下 coding utf8 import os import sys import glob import time reload sys sys.setdefaultencoding utf 8 abspa...

linux下分割文字檔案

linux split 命令 功能說明 切割檔案。語 法 split help version 行數 b 位元組 c 位元組 l 行數 要切割的檔案 輸出檔名 補充說明 split可將檔案切成較小的檔案，預設每1000行會切成乙個小檔案。參 數 行數 或 l 行數 指定每多少行就要切成乙個小檔案。b...

shell下文字檔案內指定位置字串運算

需求 20120905 114000 skey version stype state dlgnum boneinfo cdma 168 1 0 16299iin cdma ppcocsv1.08.03 pstn 102 1 0 1 0 iin sndpv1.01.27 cdma 102 1 0 1...