※ 引述《needhope (Let's move out)》之铭言： : ※ 引述《terance (修)》之铭言： : : 1. 表单开启，读取txt档 : 书上刚好有写 : Open pathname For mode [Access access] [lock] As [#]filenumber : pathname参数 : 档案名称或是完整路径资讯 : mode参数 : Append：资料附加在档尾 只可附加资料 : Binary：二进位档案存取 读写皆可 : Input：读取档案的内容，通常用於文字档存取 唯读 : Output：写入档案的内容，通常用於文字档写入 唯写 : Random：随机档存取，预设值 读写皆可，档案大小≠资料长度 : Access参数 : Read：唯读 : Write：唯写?! 唯写 : ReadWriter：可读写 多打了一个r喔:Q : Lock参数 : Shared：共用 其它程序可以正常读写 : LockRead：读取锁定 其它程序无法读取 : LockWrite：写入锁定 其它程序无法写入 : LockReadWrite：锁定二者 其它程序无法读取亦无法写入 : FileNumber参数 : 必要参数，可使用FreeFile()取得 一般来说，设1即可， 除非你有同时开数个档案(不确定数量)才需要使用FreeFile()取得可使用的档案代码。 : Len参数 : 选用.. : ------------- : ex: : num = FreeFile() '取得档案通道编号 : Open "C:\test.txt" For Input Access Read As #num '开档 : Dim vtDatas, tmp : Do Until EOF(num) 'EOF()检查档案结尾?! 如果档案读写指标到了档尾的时候就离开回圈 : Line Input #num, tmp '逐行读入 -> vtDatas 修改一下，资料要放在暂存区中，再合并，不然永远都是显示最後一行的资料 vtDatas = vtDatas & tmp : Loop : Close #num '关闭档案通道 #num 可以省略，代表关闭所有开启中的档案 : Text1.Text = vtDatas : : 2. 让combobox的内容＝txt内容 : : 至於怎麽判断多少内容为一个item就再说吧 不知道发问者是要问什麽？ 是指(类似)有逗点分隔的资料档吗？ vtDatas = Split(vtDatas, ",") '逗点分隔，把资料分割成阵列 combo1.AddItem vtDatas(index) '新增阵列某一元素至清单中 : 这我就不太懂了.. : 我猜可以在 Do While...Loop 里修改 : 将读入的文字指定为combobox的item : : 但是这两个，新手教学的书都没有提到 : : 不知道有没有什麽好功能可以用呢 : 希望对你有帮助 -- ▃▅▇▆▄ ▆▂▃ ` 逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" . █████████▃i ▁▄▇ 更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄* ◢ ▂█▄▇▅▂▌. 我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 210.58.156.43