如果用access实现,建议你到vba版或者access版提问,如果用delphi,你可以用几个函数来实现,copy,pos,delete等来截字符串
解决方案 »
- delphi的pagecontrol 切换换面迟滞的问题
- 请问哪里有canvas对象的资料,不知哪位大侠有?
- MDI窗体启动问题
- 我在Form 的 OnPaint事件响应当中 为菜单栏和工具栏 绘制背景,但是发现刷新速度太慢,一旦被遮挡,要等好久才能被重新绘制,怎样使窗口
- 为什么在Win2000Server上Build出来的程序界面,在其他系统下就不是那么回事了?
- 有什么好的下载控件的网站吗?(提供者有分)
- adoquery.batchupdate 是什么意思,派什么用的?
- 散分,不记得多久没来过了,发布一个自己写的软件,H264/AAC录制视音频,保存FLV,支持RTMP直播,delphi写的主程序,这么多年了还是喜欢delphi
- 请x_qiang(绝对低手) 和agui(阿贵) 来接分(我还有个问题啊)~~~
- 用TWebBrowser控件怎么得到网页提交给服务器的Post信息?
- 求教呀
- 请问如何获取网络游戏内置语音系统是通过哪种方式传输?
sText, sValue: string;
begin
sText := #79681 | 姓名:gg | 性别:男 | 所在地:新疆-乌鲁木齐 | 工作经验(年):7.0 登记日期:2012-04-19 17:56:52.491专业:安装工程,煤矿工程,电力工程,土建工程,水利工程 证书名称: | 证书编号: | ;
sValue := Copy(sText, 1, Pos('|', sText) - 1);//#76981
Delete(sText, 1, Pos('|', sText) + 1);
sValue := Copy(sText, 1, Pos('|', sText) - 1);//姓名:gg
sValue := Copy(sValue, Pos(':', sValue) + 1, Length(sValue));//gg
Delete(sText, 1, Pos('|', sText) + 1);
.......
end;或者var
sText, sTmp, sValue: string;
begin
sText := #79681 | 姓名:gg | 性别:男 | 所在地:新疆-乌鲁木齐 | 工作经验(年):7.0 登记日期:2012-04-19 17:56:52.491专业:安装工程,煤矿工程,电力工程,土建工程,水利工程 证书名称: | 证书编号: | ;
ComboBox1.Items.Text := StringReplace(sText, '|', #13, [rfReplaceAll]);
//上面语句将字符串按“|”截取到CommboBox1.Items中,通过索引即可顺序访问
sTmp := ComboBox1.Items[0];//#76981
sTmp := ComboBox1.Items[1];//姓名:gg
sValue := Copy(sTmp, Pos(':', sTmp) + 1, Length(sTmp));//gg
sTmp := ComboBox1.Items[2];//性别:男
sValue := Copy(sTmp, Pos(':', sTmp) + 1, Length(sTmp));//男
.............
end;
用它可以以"|"爲分隔符識別。