| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 6839 人关注过本帖, 1 人收藏
标题:VB通过INI配置文件中的路径读取TXT内容到Text1.Text
只看楼主 加入收藏
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册:2016-3-10
收藏
得分:0 
Private Sub Form_Load()
 dim cur_dir1,cur_dir2
 dim temp,i
 cur_dir1 = App.Path'程序路径
 CommonDialog1.filename=cur_dir1 & "\spama.ini"
 Open CommonDialog1.FileName For Binary As #1
 temp = Split(Input(LOF(1), 1), vbNewLine)'读入ini文件到内存数组
 close #1
 for i=0 to ubound(temp)
   if  temp(i)="[ptom]" then
    cur_dir2=right(temp(i+1),len(temp(i+1)-4)'取得[ptom]字段的路径
    exit for   
   end if
 next i
 CommonDialog1=cur_dir2 & "\ss.txt"
 Open Cmd1.FileName For Binary As #1
 temp = Split(Input(LOF(1), 1), vbNewLine)'读入ini文件到内存数组1.text
 close #1
 for i=0 to ubound(temp)
  text1.text=text1.text & temp(i) & vbcrlf
 next i
end sub


[此贴子已经被作者于2017-7-8 22:02编辑过]

2017-07-08 20:25
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
哎,还是给你做一个吧
图片附件: 游客没有浏览图片的权限,请 登录注册
这个是有txt文件的界面;
图片附件: 游客没有浏览图片的权限,请 登录注册
这个是没有txt文件的提示对话框。
下面是给你的exe程序文件,应该满足你的要求了。
以ini文件打开txt文件.rar (4.56 KB)


请不要选我!!!
2017-07-08 23:23
wlrjgzs
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:26
帖 子:212
专家分:1566
注 册:2017-4-10
收藏
得分:0 
回复 12楼 ZHRXJR
老哥,楼主一直说是ini文件,为什么你总是钻牛角尖用文本文件呢?建议你先了解一下ini文件格式再来帮楼主解决问题。
2017-07-09 11:45
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
回复 13楼 wlrjgzs
嗨嗨,你没有看程序,你怎么知道我不是使用ini文件的,在压缩包就有 spama.ini 文件,是以 spama.ini 文件打开 所在目录中的 "\ss.txt" 文件的,你下载看看,不要乱说。
spama.ini 文件的内容如下:
[ptom]
ath=d:\sd
[exe]
exe=e:\sd
[ptomW]
ath=E:\sdD
[ptom]
ath=e:\hl
另外界面中的下拉框就是读取了 spama.ini 文件中的 txt 文件的路径的。

[此贴子已经被作者于2017-7-9 12:10编辑过]


请不要选我!!!
2017-07-09 11:58
wlrjgzs
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:26
帖 子:212
专家分:1566
注 册:2017-4-10
收藏
得分:0 
回复 14楼 ZHRXJR
哈哈,到底谁乱说,你看清楚了。ini文件是有专门处理ini文件的API函数的。你这个虽然文件是ini文件,但却用处理文本文件的方法来处理,实在是张冠李戴,是个混血儿啊
2017-07-10 12:28
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
以下是引用wlrjgzs在2017-7-10 12:28:58的发言:

哈哈,到底谁乱说,你看清楚了。ini文件是有专门处理ini文件的API函数的。你这个虽然文件是ini文件,但却用处理文本文件的方法来处理,实在是张冠李戴,是个混血儿啊


第一,这里是讨论VB编程的论坛,不是骂人的地方,请自重一点。
第二,我没有听说过,VB编程对ini文件处理必须是使用API函数处理的,可能是我孤陋寡闻吧,好像微软也没有这个规定吧。
第三,编程的目的是为了使用方便,有简洁的办法,为什么必须使用复杂的方法。
第四,如果我说的不对,可以讨论,但请不要侮辱其他论坛的网友,这也是尊重你自己。

请不要选我!!!
2017-07-10 15:17
wlrjgzs
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:26
帖 子:212
专家分:1566
注 册:2017-4-10
收藏
得分:0 
回复 16楼 ZHRXJR
我哪一句骂人了,老哥不妨指出来。如果确实哪里骂你了,我可以向你道歉。另外,用处理文本的方法来处理ini文件,事实上是变得复杂了,而不是变得简单了。另外,微软就是提倡ini文件不能按文本方式进行处理,否则微软也没必要专门提供处理ini文件的API出来。
你现在只是用处理文本的方式来读取ini文件内容。如果还要对ini文件进行添加、修改以及删除部分内容的情况下,你用处理文本的方式来处理这些操作,岂不把人累死?

[此贴子已经被作者于2017-7-10 16:16编辑过]

2017-07-10 16:12
快速回复:VB通过INI配置文件中的路径读取TXT内容到Text1.Text
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019421 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved