Question

vb中如何用代码实现删除命令

比如说文本框中有字符"abcdef",我想删除ef,请问怎样用代码实现

Answer 1

1、kill 文件 '删除文件
rmdir 文件夹 '删除文件夹

如果想要使用 RmDir 来删除一个含有文件的目录或文件夹，则会发生错误。在试图删除目录或文件夹之前，先使用 Kill 语句来删除所有文件。

2、或者用对象的方法:
Set fs = CreateObject("Scripting.FileSystemObject")
fs.deletefile 删除文件
fs.deletefolder 删除文件夹

3、用API也可以办到
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

deletefile 文件名 '强制删除一个文件

例子：
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

Private Sub Form_Load()
DeleteFile "c:\test.txt"

Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile "c:\test.txt"
fs.deletefolder "c:\test"

Kill "c:\test.txt"
RmDir "c:\test"
End Sub

Answer 2

将ef直接替换成空就可以了，试试这个哦：
Text1.Text = Replace(Text1.Text, "ef", "")

Answer 3

text1.text=left(text1.text,4)

或者用right(str, len)和mid(str, start, len)来截取

PS:rose同学的方法会把文本框中全部ef删光光哦

Answer 4

玫瑰花的方法很巧妙啊，太赞了