處理STRING時遇到困難 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 處理STRING時遇到困難

返回列表下一主題上一主題發帖

處理STRING時遇到困難

小學生 Rank: 1

帖子: 23
主題: 0
精華: 0
積分: 31
點名: 0
作業系統: Win7
軟體版本: 20xx
閱讀權限: 10
性別: 男
註冊時間: 2012-8-11
最後登錄: 2012-8-28

1^# 跳轉到 »

發表於 2012-8-23 23:09 | 顯示全部帖子

回復 1# 小俠客

Function TRIM_Str(Mystr As String) As String
Dim Ay()
ar = Split(Mystr, " ")
For Each a In ar
If a <> "" Then
ReDim Preserve Ay(s)
Ay(s) = a
s = s + 1
End If
Next
TRIM_Str = Join(Ay, " ")
End Function
Sub nn()
MsgBox TRIM_Str("Now is the time")
End Sub

複製代碼

小學生 Rank: 1

帖子: 23
主題: 0
精華: 0
積分: 31
點名: 0
作業系統: Win7
軟體版本: 20xx
閱讀權限: 10
性別: 男
註冊時間: 2012-8-11
最後登錄: 2012-8-28

2^#

發表於 2012-8-24 00:20 | 顯示全部帖子

回復 3# 小俠客
Sorry!!沒看清楚你的用意

Function TheWord(Mystr As String, dot As String, i As Integer) As String
Dim Ay()
ar = Split(Mystr, dot)
For Each a In ar
If a <> "" Then
ReDim Preserve Ay(s)
Ay(s) = a
s = s + 1
End If
Next
TheWord = Ay(i - 1)
End Function
Sub nn()
Dim i As Integer
For i = 1 To 4
MsgBox TheWord("Now is the time", " ", i)
Next
End Sub

複製代碼

靜思自在 : 君子為目標，小人為目的。

返回列表下一主題上一主題