7,764
社区成员
发帖
与我相关
我的任务
分享急救!简单问题!OPEN语句怎摸打开,高分相赠!
文件名为1.TXT,2.TXT,3.TXT,怎摸不能这样转换打开:
dim a as integer
a=1
open "c:\"+CStr(a)+".txt" for input as #1
急!!!!!!!!!!!!!!!!!!!!!!11
dim a as integer
a=1
open "c:\"+CStr(a)+".txt" for input as #1
急!!!!!!!!!!!!!!!!!!!!!!11
...全文
请发表友善的回复…
发表回复
BoyMgl 2003-01-21
- 打赏
- 举报
对不起，写错一个字母！
应该是Str$(a)必须有$
因为在讲述自转换为文本时在前段要加一个空格来表示这个数为正数，加一个负号表示这个数为负数，根据你举的例子应这样写：
Open "c:\"+trim$(str$(a))+“*.txt" for input as #1
行了！这下没问题了！
如果有问题与我联系！或在贴子中写出！
Emial:woaipimanman.student@sina.com
应该是Str$(a)必须有$
因为在讲述自转换为文本时在前段要加一个空格来表示这个数为正数，加一个负号表示这个数为负数，根据你举的例子应这样写：
Open "c:\"+trim$(str$(a))+“*.txt" for input as #1
行了！这下没问题了！
如果有问题与我联系！或在贴子中写出！
Emial:woaipimanman.student@sina.com
OFFICE之门 2003-01-21
- 打赏
- 举报
或者是as #1
要换成随机值？
要换成随机值？
BoyMgl 2003-01-21
- 打赏
- 举报
使用CStr$(a)就好了！
OFFICE之门 2003-01-21
- 打赏
- 举报
要用TRIM去一下空格吧
open "c:\"+trim(CStr(a))+".txt" for input as #1
open "c:\"+trim(CStr(a))+".txt" for input as #1
holydiablo 2003-01-21
- 打赏
- 举报
报什么错啊
OFFICE之门 2003-01-21
- 打赏
- 举报
用FSO算了
diudiu2002 2003-01-21
- 打赏
- 举报
理论上应该可以的啊！
你用
dim a as string
a="1"
open "c:\"+a+".txt" for input as #1
试试看！
你用
dim a as string
a="1"
open "c:\"+a+".txt" for input as #1
试试看！
hz1101 2003-01-21
- 打赏
- 举报
首先要通过filelen获取文件的大小a，再定义一个字符串变量b，通过b=string(a,0),然后将文件读入此变量即可。
