Re: [evb ] 問一個簡單的if ~then字串的判別
※ 引述《duduyoo ()》之銘言:
: 標題: [evb ] 問一個簡單的if ~then字串的判別
: 時間: Sun Feb 19 15:31:15 2006
:
: 專題進行一個讀取資料,目前進行到字串判別
: 我是用evb寫的 不過問的問題應該不太有關係....
:
: 以reader讀到資料後會在 Text1.Text 顯示 例如顯示 0100018B775A (應該是16進位)
: 讀取的部分已經ok,讀到的數值會顯示在 Text1.Text 欄位
: 我想要依照讀到的數值不同進行不同的動作, 所以我寫:
:
: If Text1.Text = "0100018B775A" Then +我的動作
:
: 可是沒有成功, 明明執行出來 Text1.Text 欄位顯示的就是 0100018B775A
: 我是一邊弄一邊學,所以語法不太清楚
: 請問是需要以什麼不同的寫法嗎? 16進位的表示方式呢??
: 不能以 "0100018B775A" 直接表示嗎?
: 麻煩告知 謝謝!!
:
: --
: ※ 發信站: 批踢踢實業坊(ptt.cc)
: ◆ From: 163.25.148.34
推 LPH66:你是怎麼在Text1.Text上顯示的? 02/19 17:47
設一個tmpSrt字串接收讀取到的訊號 (訊號很長 只取中間需要的一段)
再把tmpSrt傳到Text1.Text顯示
If Len(Mid(tmpStr, 9, 16)) < 16 Then
Text1.Text = "Try again"
Else
Text1.Text = Mid(tmpStr, 9, 16)
End If
下面就是我要做 If...Then 弄不出來的地方
目的是要開啟IE 網址是根據Text1.Text接收到的值
Dim Retval As Boolean
Dim sURL
If Text1.Text = "0100018B775A" Then
sURL = Text1.Text
Retval = CreateProcess("\Windows\iexplore.exe", sURL, 0, 0, 0, 0, 0, 0, 0, 0)
End If
麻煩請指導一下了 謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 163.25.148.34
※ 編輯: duduyoo 來自: 163.25.148.34 (02/19 18:30)
→
02/20 15:33, , 1F
02/20 15:33, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 2 之 2 篇):
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章