12
返回列表 上一主題 發帖

處理STRING時遇到困難

小俠客

帖子
83 
主題
17 
精華
0 
積分
105 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2010-12-28 
最後登錄
2018-8-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-8-23 22:49 | 只看該作者

處理STRING時遇到困難

近日在寫一些FUNCTION來處理文字，可是遇到不少困難，請各位幫忙一下：

目標：寫一個叫WORD的FUNCTION，效果是要找出字串中目標字眼，類似INSTR，但不同。例如：
STR = "Now is the time"
word(str, 1)= Now
word(str, 2)= is
  1. Sub Word()
  2. Dim str As String
  3. Dim str_out As String
  4. Dim i As Integer, j As Integer, c As Integer, a As Integer

  6. str = "Now is the time"
  7. str = Trim(str)
  8. str_out = ""
  9. a = 3
  10. c = 0


  13. For i = 1 To Len(str)

  15.     If c = a - 1 Then
  16.         For j = i To Len(str)
  17.             If Mid(str, j, 1) <> " " Then
  18.                 str_out = str_out & Mid(str, j, 1)
  19.                 Else
  20.                 Exit For
  21.             End If
  22.         Next j
  23.         i = j
  24.         If InStr(Mid(str, j), " ") <> 0 Then
  25.             i = j
  26.             c = c + 1
  27.         Else
  28.             i = j
  29.         End If
  30.     End If
  31.    
  32.    
  33.     If Mid(str, i, 1) <> " " Then
  34.         For j = i To Len(str)
  35.             If InStr(Mid(str, j), " ") = 0 Then
  36.             i = Len(str)
  37.             ElseIf Mid(str, j, 1) = " " Then
  38.                 i = j
  39.                 Exit For
  40.             End If
  41.         Next j
  42.     c = c + 1
  43.     End If

  45. Next i
  46. MsgBox str_out
複製代碼
這段CODE是可以處理文字之間只有一個空格的字串，但如何字串變成："Now is    the time"
這個便不行了，不知道各位有沒有方法解決？謝謝大家
收藏 分享

white945

帖子
23 
主題
0 
精華
0 
積分
31 
點名
0  
作業系統
Win7 
軟體版本
20xx 
閱讀權限
10 
性別
男 
註冊時間
2012-8-11 
最後登錄
2012-8-28 
2#
發表於 2012-8-23 23:09 | 只看該作者
回復 1# 小俠客
  1. Function TRIM_Str(Mystr As String) As String
  2. Dim Ay()
  3. ar = Split(Mystr, " ")
  4. For Each a In ar
  5.   If a <> "" Then
  6.   ReDim Preserve Ay(s)
  7.   Ay(s) = a
  8.   s = s + 1
  9.   End If
  10. Next
  11. TRIM_Str = Join(Ay, " ")
  12. End Function


  15. Sub nn()
  16. MsgBox TRIM_Str("Now  is   the time")
  17. End Sub
複製代碼

TOP

小俠客

帖子
83 
主題
17 
精華
0 
積分
105 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2010-12-28 
最後登錄
2018-8-8 
3#
發表於 2012-8-24 00:13 | 只看該作者
謝謝大大，雖然你寫的代碼跟我的原意有點不同，因為我的目的是抽取某一個詞，例如：WORD("我 是  一個      男   生", 3) = 一個，跟MID有點似，但我是以詞組為基礎。
我把你的理念加入，成功製成了WORD這個FUNCTION了。

我之前也試過用"SPLIT"這個功能，但我一直以為SPLIT的用法是把字串拆開，再放入列陣中，例如：A()=SPLIT(STRING, " ")
我把SPLIT放在上面的CODE時，發現了有部份的列陣是空的，想不到原來可以用REDIM PRESERVE刪去，太利害了，又多學一個方法，謝謝。

TOP

white945

帖子
23 
主題
0 
精華
0 
積分
31 
點名
0  
作業系統
Win7 
軟體版本
20xx 
閱讀權限
10 
性別
男 
註冊時間
2012-8-11 
最後登錄
2012-8-28 
4#
發表於 2012-8-24 00:20 | 只看該作者
回復 3# 小俠客
Sorry!!沒看清楚你的用意
  1. Function TheWord(Mystr As String, dot As String, i As Integer) As String
  2. Dim Ay()
  3. ar = Split(Mystr, dot)
  4. For Each a In ar
  5.   If a <> "" Then
  6.   ReDim Preserve Ay(s)
  7.   Ay(s) = a
  8.   s = s + 1
  9.   End If
  10. Next
  11. TheWord = Ay(i - 1)
  12. End Function


  15. Sub nn()
  16. Dim i As Integer
  17. For i = 1 To 4
  18.   MsgBox TheWord("Now  is   the time", " ", i)
  19. Next
  20. End Sub
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2012-8-24 12:05 | 只看該作者
本帖最後由 GBKEE 於 2012-8-24 12:07 編輯

回復 3# 小俠客
  1. Option Explicit
  2. Sub Ex()
  3.     Dim TheWord As String, xW As String, E
  4.     xW = "a"
  5.     TheWord = "我aaaaa是aaaaa一個aaaaaaaaa男生"
  6.     Do
  7.         TheWord = Replace(TheWord, String(2, xW), xW)
  8.     Loop While InStr(TheWord, String(2, xW))  '= True
  9.     For Each E In Split(TheWord, xW)
  10.         MsgBox E
  11.     Next
  12. End Sub
複製代碼

TOP

小俠客

帖子
83 
主題
17 
精華
0 
積分
105 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2010-12-28 
最後登錄
2018-8-8 
6#
發表於 2012-8-27 17:09 | 只看該作者
回復 4# white945


    十分感謝，這是正我需要的功能

TOP

小俠客

帖子
83 
主題
17 
精華
0 
積分
105 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2010-12-28 
最後登錄
2018-8-8 
7#
發表於 2012-8-27 17:29 | 只看該作者
回復  小俠客
GBKEE 發表於 2012-8-24 12:05

    我也用過REPLACE，但當處理多於一個SPACE或特別符號時就會出問題，原來可以用STRING + LOOP的方法
受教了。

另外，我可以多問一個問題嗎？是關於分析字串時多條件選擇的問題
例如：我要受訪者回答他子女的學校區分和學歷，如果沒有子女，答案留空，轉答下一題
  1. If Ien(raw.Cells(i, 3)) > 0 Then
  2.     If InStr(raw.Cells(i, 3), "小學") + InStr(raw.Cells(i, 3), "初小") > 0 Then
  3.         type = "primary"
  4.         GoTo Define_unit
  5.     ElseIf InStr(raw.Cells(i, 3), "初中") + InStr(raw.Cells(i, 3), "國中")+ InStr(raw.Cells(i, 3), "高中")  > 0 Then
  6.         type = "secondary"
  7.         GoTo Define_unit
  8.     ElseIf InStr(raw.Cells(i, 3), "大學") + InStr(raw.Cells(i, 3), "大專")> 0 Then
  9.         type = "Uni"
  10.         GoTo Define_unit
  11.         
  12.     ElseIf InStr(raw.Cells(i, 3), "研究所") + InStr(raw.Cells(i, 3), "博士") > 0 Then
  13.         type = "Master+"
  14.         GoTo Define_unit
  15.    
  16.     End If
  17.    
  18. Define_unit:
  19.         If InStr(raw.Cells(i, 3), "台灣") > 0 Then unit = "TW"
  20.         If InStr(raw.Cells(i, 3), "香港") > 0 Then unit = "HK"
  21.         If InStr(raw.Cells(i, 3), "美國") > 0 Then unit = "US"
  22.     End If
複製代碼
例如：答案是，我兒子是在美國讀高中
那麼unit = "US", TYPE=secondary

但這裡有很多IF THEN，又太長，有點混亂。我將之改用GOTO，不用重複出現幾次相似的句子。但請問可以改用select case或其他方法簡化嗎？謝謝

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 2012-8-27 20:26 | 只看該作者
本帖最後由 GBKEE 於 2012-8-28 09:15 編輯

回復 7# 小俠客
  1. If InStr(raw.Cells(i, 3), "小學") + InStr(raw.Cells(i, 3), "初小") > 0 Then  
  2.         '條件 : 如不成立, 會判斷下一個ElseIf條件.一直到有ElseIf條件成立後會不再去判斷其餘的條件,離開此 IF ....Then  ....Else  .....     End If
  3.         '不必   GoTo Define_unit
  4.         vbtype = "primary"                                                                                                            
  5.     ElseIf InStr(raw.Cells(i, 3), "初中") + InStr(raw.Cells(i, 3), "國中") + InStr(raw.Cells(i, 3), "高中") > 0 Then
  6.         vbtype = "secondary"
  7.     ElseIf InStr(raw.Cells(i, 3), "大學") + InStr(raw.Cells(i, 3), "大專") > 0 Then
  8.         vbtype = "Uni"
  9.     ElseIf InStr(raw.Cells(i, 3), "研究所") + InStr(raw.Cells(i, 3), "博士") > 0 Then
  10.         vbtype = "Master+"
  11.     End If
  12.     If InStr((raw.Cells(i, 3), "台灣") > 0 Then unit = "TW"
  13.     If InStr((raw.Cells(i, 3), "香港") > 0 Then unit = "HK"
  14.     If InStr((raw.Cells(i, 3), "美國") > 0 Then unit = "US"
複製代碼

TOP

小俠客

帖子
83 
主題
17 
精華
0 
積分
105 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2010-12-28 
最後登錄
2018-8-8 
9#
發表於 2012-8-27 22:29 | 只看該作者
回復  小俠客
GBKEE 發表於 2012-8-27 20:26



    這個W是要用
set w = raw.cells(i,3)
來設定嗎？
原來如此，謝謝版大

這麼，是不是select case只能用一個condition?

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 2012-8-28 09:44 | 只看該作者
本帖最後由 GBKEE 於 2012-8-28 09:48 編輯

回復 9# 小俠客
InStr(raw.Cells(i, 3), "小學")   這只會傳回數字
你自串中 初小, 小學,初中, 國中.... 並沒有固定在哪個位置,不適合用 Select Case
  1. Select Case 變數  '
  2.       Case  數字 或 字串
  3. End Select
複製代碼

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
12
返回列表 上一主題