| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1648 人关注过本帖
标题:[求助]关于用VB建立随机文件名的问题
只看楼主 加入收藏
墓地幽灵
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2007-9-22
收藏
 问题点数:0 回复次数:11 
[求助]关于用VB建立随机文件名的问题
请问大虾们一个问题哦~
那个用VB怎样建立随机文件名呢?例如我记录的某些信息把,用VB建立一个随机文件名的TXT文件,并把记录的内容写入到该文件去,请问如何实现呢?
可以给代码学习一下么?或者给条思路也行那~~我是初学者,很多都不太懂.
搜索更多相关主题的帖子: 文件名 随机 TXT 
2007-10-17 19:03
那边有朵蘑菇云
Rank: 1
来 自:很……那啥的一个地方
等 级:新手上路
威 望:1
帖 子:390
专家分:0
注 册:2007-9-3
收藏
得分:0 
等带 学习中

身不残 志更不坚
2007-10-17 19:04
刨子头
Rank: 1
等 级:新手上路
威 望:1
帖 子:319
专家分:0
注 册:2007-9-24
收藏
得分:0 
直接用OPEN就可以啦
2007-10-17 19:08
三断笛
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:31
帖 子:1621
专家分:1617
注 册:2007-5-24
收藏
得分:0 
以下是生成随机文件名的函数,这里的文件名暂且只包含数字,文件名不区分大小写,最大文件名长度为8,如果要缩短的话只需把函数中的8换成你想要的最大长度就可以了.
Function CreateFileName() As String
Dim Length As Integer '文件名长度,不带扩展名
Dim FileName As String
Dim i As Integer
Dim aStr As String
Randomize
Length = Int(8 * Rnd() + 1) '生成文件名长度,最长为8位
For i = 1 To Length
aStr = Chr(25 * Rnd() + 97) '生成随机字符
FileName = FileName & aStr
Next i
CreateFileName = FileName & ".txt"
End Function

以下是十组运行结果:
xiinhg.txt
inqoohfq.txt
eu.txt
pvw.txt
gjhf.txt
r.txt
c.txt
ycg.txt
ydqr.txt
mtxhtf.txt

[此贴子已经被作者于2007-10-18 1:35:38编辑过]

2007-10-18 01:33
随风逐流
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:passerby
等 级:版主
威 望:8
帖 子:4054
专家分:271
注 册:2007-6-13
收藏
得分:0 
LS的太复杂了
filename=Format(Now, "yyyymmddhhnnss")

[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]
2007-10-18 10:31
三断笛
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:31
帖 子:1621
专家分:1617
注 册:2007-5-24
收藏
得分:0 
呵呵 我也想过像C语言设置随机函数种子用时间来做文件名,但我觉得那样的"随机"显的太必然了,不能算是真正的随机,不过效果还是一样啦
2007-10-18 10:41
凶残的菜鸟
Rank: 1
等 级:新手上路
帖 子:58
专家分:0
注 册:2007-10-17
收藏
得分:0 

一般来说,5楼的就够用了,把4楼的偷偷down下来收藏~~


希望每天都能学上一招
2007-10-18 10:58
随风逐流
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:passerby
等 级:版主
威 望:8
帖 子:4054
专家分:271
注 册:2007-6-13
收藏
得分:0 
以下是引用三断笛在2007-10-18 10:41:49的发言:
呵呵 我也想过像C语言设置随机函数种子用时间来做文件名,但我觉得那样的"随机"显的太必然了,不能算是真正的随机,不过效果还是一样啦

你的那个好象不是绝对的吧?也存在重复的可能吧?
如果生成100或1000,或更多.每一次随机还要检查是否与以前随机的有重复.


[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]
2007-10-18 11:03
墓地幽灵
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2007-9-22
收藏
得分:0 

那个~~不好意思哦,我想问下4楼的朋友,生成的随机文件到哪里了呢?可以生成到某个我指定的地方吗?我想要open这个文件,并把我要写的内容写入进去.

2007-10-19 13:25
三断笛
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:31
帖 子:1621
专家分:1617
注 册:2007-5-24
收藏
得分:0 
当然可以啊,已经有文件名了,只要加上你自己的指定地址,完全可以打开写入数据剧啊
比如你指定的地方是C盘根目录C:\,那么直接打开文件
open CreateFileName for Open as #1
2007-10-19 13:35
快速回复:[求助]关于用VB建立随机文件名的问题
数据加载中...
 
   



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

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