vb怎么在文本中生成tab空格

Question

如题所述

Answer 1

'把文本文件“c:\aaa.txt”中的字符“[”全部替换成tab空格的代码，请参考。
Private Sub Command1_Click()
Txt = "c:\aaa.txt" '文本路径
Open Txt For Input As #1
t = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
t = Replace(t, "[", Space(1))
Open Txt For Output As #1
Print #1, t
Close #1
MsgBox "修改成功"
End Sub
'追问

你的是一般的空格。我要的是按下tab键产生的空格。要比一般的空格大啊。用excell打开包含tab键空格的文本文档，可以自动分隔字段。

追答

'把文本文件“c:\aaa.txt”中的字符“[”全部替换成tab空格的代码，请参考。
Private Sub Command1_Click()
Txt = "c:\aaa.txt" '文本路径
Open Txt For Input As #1
t = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
t = Replace(t, "[", chr(9))
Open Txt For Output As #1
Print #1, t
Close #1
MsgBox "修改成功"
End Sub
'已修改请参考。

Answer 2

"字符串" & vbTab

Space(空格数量)
"字符串" & Space(1)追问

不明白，我是想产生按一下tab键产生的空格。

追答Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 9 Then
        KeyAscii = 0
        Text1.SetFocus
        Text1.Text = Text1.Text + Space(1)
        Text1.SelStart = Len(Text1.Text)
    End If
End Sub

不太明白你的意思，如果是让Text控件按下Tab键产生空格的话就用上面的代码

追问

我是想让文本文件“c:\aaa.txt”中的字符“[”全部替换成tab空格。