高校问答qq投诉人工服务电话:vb中怎样实现保存文本的时候自动用文本的前几个字命名？？？？？？？？？？？？？
来源：百度文库 编辑：高校问答 时间：2024/05/08 20:09:42
vb中怎样实现保存文本的时候自动用文本的前几个字命名？
Private Sub label1_Click()
Dim id, pass As String
id = text1.Text
？？
？？
？？
End Sub
Private Sub label1_Click()
Dim id, pass As String
id = text1.Text
？？
？？
？？
End Sub
楼上说的方法不太好
以下是我的建议：
看第一行内容是否为空，若不则取第一行中的文字（去除空格)
trim(left(instr(1,text1.text,chr(13))))=""
用这种方法提取出文件名
用下面的方法即可
name YourFileName.xxx as left(id,n).xxx 即可
注：
1、n可以改为您需要的文件名长度，比如您想要前三个字为文件名，就是left(id,3)。
2、xxx是扩展名。