指教 取字符串的函数

Question

Mid 函数
      返回 Variant (String)，其中包含字符串中指定数量的字符。语法Mid(string, start[, length])Mid 函数的语法具有下面的命名参数：部分 说明 
string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。 
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 ("")。 
length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。 
说明欲知 string 的字符数，可用 Len 函数。注意   MidB 函数作用于字符串中包含的字节数据，如同在双字节字符集(DBCS)语言中一样。因此其参数指定的是字节数，而不是字符数。对于使用 MidB的示例代码，请参阅示例主题中的第二个示例。

Answer 1

用MID（STR，I，N）
I：起始位置
N：长度

Answer 2

Mid 函数
      返回 Variant (String)，其中包含字符串中指定数量的字符。语法Mid(string, start[, length])Mid 函数的语法具有下面的命名参数：部分 说明 
string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。 
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 ("")。 
length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。 
说明欲知 string 的字符数，可用 Len 函数。注意   MidB 函数作用于字符串中包含的字节数据，如同在双字节字符集(DBCS)语言中一样。因此其参数指定的是字节数，而不是字符数。对于使用 MidB的示例代码，请参阅示例主题中的第二个示例。

Answer 3

Mid 函数
      返回 Variant (String)，其中包含字符串中指定数量的字符。语法Mid(string, start[, length])Mid 函数的语法具有下面的命名参数：部分 说明 
string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。 
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 ("")。 
length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。 
说明欲知 string 的字符数，可用 Len 函数。注意   MidB 函数作用于字符串中包含的字节数据，如同在双字节字符集(DBCS)语言中一样。因此其参数指定的是字节数，而不是字符数。对于使用 MidB的示例代码，请参阅示例主题中的第二个示例。

Answer 4

用right$() 或者是 left$() 函数呀
str="123456"
str1=right$(str,3)
str1="456"
还有mid$()
str="123456"
str1=mid$(str,2,3)
则str1="234"
明白了吗？不明白的话，可以给我联系， 在msdn里边都有，自己去看看吧。

Answer 5

太多了
我有个
Private Sub Command1_Click()Dim fso
Dim f As TextStream
Dim filename As String
Dim filetext As String
Dim ss As String
Dim ss1 As IntegerDim ss2 As String
Dim s As String
For i = 0 To File1.ListCount - 1
'For j = 0 To File1.List(i)
'cd1.ShowOpen
'filename = cd1.filename
Text1.Text = Dir1.Path & "\" & File1.List(i)
ss = Dir1.Pathss1 = InStr(1, StrReverse(Dir1.Path), "\", 1)
ss2 = StrReverse(Left(StrReverse(ss), ss1 - 1))Text2.Text = ss2
filename = StrReverse(Mid(StrReverse(File1.List(i)), 5))Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Dir1.Path & "\" & File1.List(i), ForReading, True)
RichTextBox1.Text = f.ReadAll
Rs.AddNew
Rs(2) = filename
Rs(5) = RichTextBox1.Text
Rs(3) = ss2
Rs.Update'相对路径
'Rs.AddNew
'Rs(1) = filename
'Rs(2) = ss2
'Rs(3) = Text1.Text
'Rs.UpdateNextEnd Sub

Answer 6

用MID（STR，I，N）
I：起始位置
N：长度