我再用if的方式來進行字串的轉換但再轉換時卻出現只有第一行是正確的不知道為什麼以下我的程式碼及測試結果
Private Sub Command1_Click()
a = Text1.Text
aa = Split(a, " ")
If aa(0) = "org" And aa(1) <> "not" Then
bb = Replace(a, "org", "ld")
ElseIf aa(0) = "org" And aa(1) = "not" Then
bb = "ldi " & aa(2)
ElseIf aa(0) = "ld" And aa(1) <> "not" Then
bb = a
ElseIf aa(0) & aa(1) = "ldnot" Then
bb = "ldi " & aa(2)
ElseIf aa(0) = "and" And aa(1) <> "not" Then
bb = a
ElseIf aa(0) & aa(1) = "andnot" Then
bb = "ani " & aa(2)
Else
bb = a
End If
Text2.Text = bb
End Sub
測試的字串
org x0
org not x0
ld x0
ld not x0
and x0
and not x0
得出來的結果
ld x0
ld not x0
ld x0
ld not x0
and x0
and not x0
正確結果應該是
ld x0
ldi x0
ld x0
ldi x0
and x0
ani x0
麻煩指證指證我的錯誤之處
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(5) 人氣()


留言列表 (5)

發表留言
  • 阿虹
  • 我複製你的程式碼! 執行結果完全正確啊!!
  • Franma
  • 嗯~~~ 執行起來就是你正確的部分呀~~ 沒有出現所說的錯誤
  • Marty
  • 程式碼應該沒問題!注意一下字串(not)的大小寫
  • 小呆瓜
  • 謝謝你們的回答
    但我反覆的測試結果還是出現是我錯誤的結果
    後來我發現如果只是依次輸入一個字串的話結果沒錯
    但是如果將我測試的字串一次全部輸入
    結果會出現是我測試出來錯誤的結果
    我將我寫的程式放到網路上
    如果有網友願意幫我看看的話我已將檔案上傳到網路上了
    網址http://home.kimo.com.tw/yaya1222kimo/vb.exe
  • Marty
  • 如果是TextBox多行輸入後執行
    你還需要處理換行字元 vbCrLf
    否則還是以一行執行(包含換行字元)
    試試!