把以下a$自符转为 可作为文件名的字符。

[wjq]

a$=chr(32) & chr(0) & chr(15) & chr(6) & "\de*?|<>" & """" & chr(32)

How to?

[ozw]

用一长串数字，不过不知道是否符合要求
Private Sub Command1_Click()
Dim a As String
Dim i As Integer
Dim fName

a = Chr(32) & Chr(0) & Chr(15) & Chr(6) & "\de*?|<>" & """" & Chr(32)

For i = 1 To LenB(a)
fName = fName & IIf(fName <> "", "_", "") & AscB(MidB(a, i, 1))
Next i

MsgBox fName
End Sub

[dragonsou]

我给你个例子吧！
首先在窗体里放上2个textbox和一个command。
放入下面的代码：
Private Sub Command1_Click()
Dim s, a As String
Dim i As Integer
For i = 1 To 15
a = Mid(Text1.Text, i, 1)
If a <> Chr(32) and a<>"/" Then
s = s + a
End If
Next i
Text2.Text = s
End Sub
text1里的就好比你要判定的字符
text2里的是去掉了不符合规定字符后的字符串
有其它的判定条件自己加到if语句里就可以啦！
明白了吗？