vb在字符串指定字符位置插入某字符

Question

一个字符串如
str = "aaa,bbb,ccc,ddd"
如何实现字符串转化成
str = "'aaa','bbb','ccc','ddd,"
谢谢各位指教！

Answer 1

写错了，应该是一个字符串如 
str = "aaa,bbb,ccc,ddd" 
如何实现字符串转化成 
str = "'aaa','bbb','ccc','ddd’”
谢谢各位指教！

Answer 2

dim arr() as string
arr=split(str,",")
dim i as integer
str="'"
for i=0 ubound(arr)-1
  str=str & arr(i) & "','"
next
str=str & arr(ubound(arr))没测试过，大概就是这个意思

Answer 3

这个就更简单了
你就在我刚才的基础上  str=str & arr(ubound(arr)) & ","
还有个招儿更简单
str=replace(str,",","','")
str="'" & str & "'"

Answer 4

 Dim tmp() As String
 Str1 = "aaa,bbb,ccc,ddd"
 tmp = Split(Str1, ",")
 For i = 0 To UBound(tmp)
     tmp(i) = "'" & tmp(i) & "'"
 Next i
 Str1 = Join(tmp, ",") & ","

Answer 5

Function GetStr(s As String) As String
    Dim a
    a = Split(s, ",")
    GetStr = "'" & Join(a, "','") & "'"
End FunctionPrivate Sub Command1_Click()
    Debug.Print GetStr("aaa,bbb,ccc,ddd")
End Sub