Question

VB中，如何将字符串指定位置的字符去掉？

VB中，如何将字符串指定位置的字符去掉？

Answer 1

'添加窗体Form1,按钮Command1,添加如下代码:
Private Sub Command1_Click()
MsgBox delStr("abcdefg", 3, 2) '从第3个字符开始往后删除2个字符
MsgBox delStr("abcdefg", 3) '从第3个字符开始删除后面所有字符
End Sub

'函数名称：delStr
'功能：删除一个字符串的指定部分
'入口参数：
' strSource 必要参数。为String。需要处理的原始字符串
' lngStart 必要参数。为Long。被删除字符的起始位置
' lngLenth 可选参数。为Variant(Long)被删除字符的长度，如果缺省将删除从lngStart开始到尾端的所有字符
'返回值：delStr 类型为String，返回处理好的结果
'备注：sysdzw 于 11:05 2007-11-15 提供
Private Function delStr(strSource As String, lngStart As Long, Optional lngLength As Variant) As String
Dim strL, strR As String
If IsMissing(lngLength) Then lngLength = Len(strSource) - lngStart + 1 '如果缺省则删除往后所有
strL = Mid(strSource, 1, lngStart - 1)
strR = Mid(strSource, lngStart + lngLength)
delStr = strL & strR
End Function

Answer 2

也就是这样了:

Private Sub Command1_Click()
Dim a$
a = "windows xp or windows 98"
a = Left(a, 7) & Right(a, 2)
Print a
End Sub

Answer 3

你试试debug.Print DelStr("adfsdk", 2)

Answer 4

Function DelStr(aStr As String, Locate As Integer)
Dim bStr As String
If Locate < 0 Or Locate > Len(aStr) Then DelStr = aStr: Exit Function
bStr = Mid(aStr, Locate, 1)
DelStr = Replace(aStr, bStr, "")
End Function

运行:
debug.Print DelStr("adfsdk", 3)
输出 adsdk