找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
尊貴會員無限使用任何功能尊貴會員無限看帖不用回覆安全提問(回答) 和 永久尊貴會員 事宜
gemg三上一拳超人強姦259luxu旬果
風流父子奴隸訓練seventee西野絵美堕落戦記cmv海闊天空

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

Hololive 5th fes. Ca

✡ 斗破蒼穹 年番/鬥

[繁]肌肉魔法使-MASHL

[繁]我獨自升級11-

[繁]最強肉盾的迷宮攻

[簡]北海道辣妹金古錐
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 3605|回復: 3

[求助] 查看字串格式正不正確[複製鏈接]

Rank: 3Rank: 3Rank: 3

帖子
196
積分
1084 點
潛水值
16271 米
發表於 2014-9-21 04:05 PM|顯示全部樓層
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。
請問各位大大,假設現在temp變數裡有"我的生日是民國9年12月1日"文字,我要查詢字串裡是否有此格式,格式一定要是"民國YYY年MM月DD日",
就是在字串裡要有包含這種格式。年分可以不超過三位數009、09、9,
月份可以不超過二位數05、5,日期以此類推。
      我要怎樣才能有效率檢查格式,我用的方法是instr函數,但是很不方便
要是字串裡有很多"民國"或是很多"月"之類的,instr只能查第一個出現的位置
...
瀏覽完整內容,請先 註冊登入會員
~

使用道具檢舉

Rank: 2Rank: 2

帖子
52
積分
278 點
潛水值
13732 米
發表於 2014-9-22 09:05 AM|顯示全部樓層
成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。
寫個Function,  傳入要Check的字串,
用ForLoop一字字讀取,
再多個Step變數
讀到"國": Step=1
讀到"年": Step=2
讀到"月": Step=3
讀到"日": Step=4
若Step沒有照順序變化, 則將Step=0
若Step間的數值, 不符合你要的數字格式, 則將Step=9
這要掃完就可知道是否正確了.

使用道具檢舉

帖子
372
積分
21 點
潛水值
5911 米
發表於 2014-9-24 08:31 PM|顯示全部樓層
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。
建議不要用奇怪的方式去存取具有型態的東西,使用常態的方式去做
日期變更,可用正常的方式去存取運作,顯示再轉你要的格式
成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。

使用道具檢舉

Rank: 2Rank: 2

帖子
1399
積分
206 點
潛水值
17114 米
發表於 2014-10-12 03:30 AM|顯示全部樓層
分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。
Try it!!
  1. Function TestRegExp(myPattern As String, myString As String)
  2.    'Create objects.
  3.    Dim objRegExp As RegExp
  4.    Dim objMatch As Match
  5.    Dim colMatches   As MatchCollection
  6.    Dim RetStr As String
  7.    
  8.    ' Create a regular expression object.
  9.    Set objRegExp = New RegExp

  10.    'Set the pattern by using the Pattern property.
  11.    objRegExp.Pattern = myPattern

  12.    ' Set Case Insensitivity.
  13.    objRegExp.IgnoreCase = True

  14.    'Set global applicability.
  15.    objRegExp.Global = True

  16.    'Test whether the String can be compared.
  17.    If (objRegExp.Test(myString) = True) Then

  18.    'Get the matches.
  19.     Set colMatches = objRegExp.Execute(myString)   ' Execute search.

  20.     For Each objMatch In colMatches   ' Iterate Matches collection.
  21.       RetStr = RetStr & "Match found at position "
  22.       RetStr = RetStr & objMatch.FirstIndex & ". Match Value is '"
  23.       RetStr = RetStr & objMatch.Value & "'." & vbCrLf
  24.     Next
  25.    Else
  26.     RetStr = "String Matching Failed"
  27.    End If
  28.    TestRegExp = RetStr
  29. End Function
複製代碼
...
瀏覽完整內容,請先 註冊登入會員
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部