如何做脚本解析[高手入内](70分)

  • 主题发起人 主题发起人 冬月
  • 开始时间 开始时间

冬月

Unregistered / Unconfirmed
GUEST, unregistred user!
我需要做一个脚本解析程序,比如有一个INI文件,里面可以自己编写规定的脚本,然后EXE程序按INI文件内的脚本执行,比如
INI:
显示[A]
显示
显示[C]
显示[D]
那么EXE读入INI后就调用MESSAGEBOX显示A,B,D这样,当然显示的内容按脚本文件内编写的顺序
 
uses
inifiles;

[User]
Nikename0=高级管理员
Nikename1=pop
Nikename2=11
Nikename3=11
Nikename4=22
Nikename5=55
Nikename6=333
Nikename7=555
Nikename8=ggg
Nikename9=王77
-----
你的INI文件格式不大对吧。
procedure TFrmLogin.LoadNikename;
var
FFile:TIniFile;
i:integer;
FStr:String;
begin
cb_Nikename.Items.Clear;
cb_Nikename.Items.Add('');
FFile:=TIniFile.Create(GetAppPath+IFileName);
for i:=0 to 9 do
begin
FStr:=FFile.ReadString('User','Nikename'+IntToStr(i),'');
if FStr<>'' then
cb_Nikename.Items.Add(FStr);
end;
FFile.Free;
end;

procedure TFrmLogin.SaveNikename;
var
FFile:TIniFile;
i:integer;
index:integer;
begin
FFile:=TIniFile.Create(GetAppPath+IFileName);
if cb_Nikename.Items.IndexOf(cb_Nikename.Text)<0 then
cb_Nikename.Items.Add(cb_Nikename.Text);
for i:=0 to 9 do
begin
index:=cb_Nikename.Items.Count-1-i;
FFile.WriteString('User','Nikename'+inttostr(i),cb_Nikename.Items[index]);
end;
FFile.Free;
end;。。
 
欢迎各位湖南的程序员加盟QQ群:26944872 (湖南程序员联盟)

主要讨论Delphi,Java,.NET,ASP,PHP等
以及考证相关的资料,最新的信息
欢迎湖南同仁加入
 
你至少还要一个NikenameNumber字段嘛,要不然你就只能写死了对不
 
可惜我只有vc的例子
 
NikenameNumber表示一共有几个字段
 
后退
顶部