双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

文本文件中约有1万行的ip地址，一个地址占一行。要求：统计出总行数，并找出出现次数最多的3个ip

2004-04-13 02:55:28 320 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

cma123 墨衍会员 · AI 创作全网分发关注 + 加入社区

如何进行自适应网页设计? 这里是修真院前端小课堂，每篇分享文从【背景介绍】【知识剖析】【常见问题】【解决方案】【编码实战】【扩展思考】【更多讨论】【参考文献】八个方面深度解析前端知识/技能，本篇分享的是：【如何进行自适应网页设计? 】大家好，我是IT修真院北京总院第24期的学员，一枚正直纯洁善良的web程序员今天给大家分享一下，修真院官网css任务3，深度思考中的知识点——如何进行自适应网页设计? ... 阅读详情

文本文件的内容为:
约1万行的ip地址，一个地址占一行。

要求：统计出总行数，并找出出现次数最多的3个ip

...全文

使用网分对晶体ESR/L1/C1/C0进行测量计算 Use R&amp;S Vector Network Analyzer test XTAL ESR/L1/C1/C0 測量方法：使用儀器的Port1端口，測量XTAL的S11，通過諧振的參數計算出ESR/L1/C1/C0的值。實際晶體的等效模型：通常方便晶體分析，使用下圖(b)的等效模型，但實際測量發現晶體存在多個串聯諧振點，實際等效模型更接近(c)。儀器測量到的S11，其中M... 阅读详情

cma123

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

zswangII 2004-04-14

打赏
举报

to YFLK:
IP"127:183:21:77" -->转成整形量1271832177
请问"127:183:2:177"和"127:183:21:77"有什么区别？～～

to Eastunfail:
你的代码编译不过呀～～

to all：
10000条数据，我的算法在我的机器执行时间为300毫秒左右～～
转换成数值，存放到数据库里处理确实快！～～
请问：转换成数值、存放到数据库里需要多少时间？？～～
楼主没出来，这个问题我就不继续了～～

liangjun66 2004-04-14

打赏
举报

总行数：
//其中函数参数s为文本文件的绝对地址：
在程序中调用举例：
var
s :string;
if form1.OpenDialog1.Execute then
begin
s :=form1.OpenDialog1.FileName;
edit1.text :=inttostr(hangshu(s));
end;
*********************************************
function TForm1.hangshu(s: string): integer;
var
fff :textfile;
line :string;
n :integer;
begin
n :=0;
assignfile(fff,s);
reset(fff);
while not eof(fff) do
begin
readln(fff,line);
if trim(line)<> '' then
begin
n :=n+1;
end;
end;
closefile(fff);
result :=n;
end;

严黎斌 2004-04-14

打赏
举报

支持导入到数据库，不就1万数据？一个access表就解决了。

blueshrimp 2004-04-14

打赏
举报

晕。导入到数据库，1秒钟就统计出来了

ztenv 2004-04-14

打赏
举报

我想用线程会更好一点的

Eastunfail 2004-04-14

打赏
举报

刚才没事做，帮你写了一个，带有注释

function StrToIP(IP:String):DWORD;
asm
mov edi,10
mov esi,IP
xor ecx,ecx
xor ebx,ebx
@nextNumber://next number in IP ddress
cmp ecx,4//IPv4 :)
je @end //finished

push ecx
xor ecx,ecx
xor eax,eax
@next: //next digit
mov cl,byte ptr [esi]
cmp cl,0
je @exit
cmp cl,'.'
je @exitLoop //finished processing one number
sub cl,'0'
mul edi
add eax,ecx
inc esi
jmp @next
@exitLoop:
pop ecx
shl ebx,8
add ebx,eax
inc ecx
inc esi
jmp @nextPart
@end:
//reverse order
mov ecx,ebx
shr ecx,16//high bytes
and ebx,$ffff//low bytes
//exchange
xchg cl,ch
xchg bl,bh
shl ebx,16
or ebx,ecx//combinate
mov eax,ebx
end;

twlx_0 2004-04-14

打赏
举报

顶

hujinger 2004-04-14

打赏
举报

处理网络流量的问题吧？呵呵

menggirl 2004-04-14

打赏
举报

有那么多的人支着,改行了吧,揭帖吧

YFLK 2004-04-14

打赏
举报

Eastunfail(浴血雏龙)==(恶鱼杀手) 方法效率更高，也适用于大数据量
IP"127:183:21:77" -->转成整形量1271832177
Sort
.....

荣爵 2004-04-14

打赏
举报

Good~~

Eastunfail 2004-04-14

打赏
举报

刚开始是把代码写成几个函数的，后来在记事本中合并成一个函数以减小CALL带来的EIP入栈开销，改跳转标签的时候有几个忘了改：）下面的是正确的代码：

function StrToIP(IP:String):DWORD;
asm
mov edi,10
mov esi,IP
xor ecx,ecx
xor ebx,ebx
@nextNumber://next number in IP ddress
cmp ecx,4//IPv4 :)
je @end //finished
push ecx
xor ecx,ecx
xor eax,eax
@next: //next digit
mov cl,byte ptr [esi]
cmp cl,0
je @exitLoop
cmp cl,'.'
je @exitLoop //finished processing one number
sub cl,'0'
mul edi
add eax,ecx
inc esi
jmp @next
@exitLoop:
pop ecx
shl ebx,8
add ebx,eax
inc ecx
inc esi
jmp @nextNumber
@end:
//reverse order
mov ecx,ebx
shr ecx,16//high bytes
and ebx,$ffff//low bytes
//exchange
xchg cl,ch
xchg bl,bh
shl ebx,16
or ebx,ecx//combinate
mov eax,ebx
end;

ghtghtmalone 2004-04-13

打赏
举报

观摩一下

Eastunfail 2004-04-13

打赏
举报

考虑效率问题，推荐读入后转成DWORD类型，排序后在搜索出现次数最多的三个IP

dickeybird888 2004-04-13

打赏
举报

我想用数据库或许更方便一些！

ICMGDCHN 2004-04-13

打赏
举报

本来想进来混点分的,有了强人,就不献丑啦

menggirl 2004-04-13

打赏
举报

to
ffwin() ( )
没法说你,
1W多条,满不满那

madd123 2004-04-13

打赏
举报

强

ffwin 2004-04-13

打赏
举报

建议将其导入数据库，用一条带聚组的sql语句就出来了，

人在江湖漂那能不挨刀 2004-04-13

打赏
举报

var
J: Integer;
I: Integer;
begin
with TStringList.Create do try
LoadFromFile('input.txt'); //载入文件
Sort; //排序
J := 1;
for I := Count - 1 downto 0 do begin
if (I >= 1) and (Strings[I] = Strings[I - 1]) then begin
Inc(J);
Delete(I);
end else begin
Strings[I] := Format('(%5d)%s', [J, Strings[I]]);
J := 1;
end;
end;
Sort; //排序//取最后三行
SaveToFile('C:\temp\output.txt');
finally
Free;
end;
end;

加载更多回复（6）

✦双11狂欢大促✦

文本文件中约有1万行的ip地址，一个地址占一行。要求：统计出总行数，并找出出现次数最多的3个ip

相关推荐

双11狂欢大促