プログラミング

プログラミングに関するフォーラムです。VBAは除きます。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : その他)
VBScriptを教えてください!
投稿日時: 19/11/14 07:01:20
投稿者: gorby

VBscriptを教えてください!
 
やりたいことは、
90000000000
の文字数を数えて、
 
"arrayTempは10Gです!"
 
と画面に表示することです。
 
下記のサンプルコードを実行しましたが、画面に何も表示されません。
 
何かお気づきの点があれば、ご指導ください。
                                                                                                                     
 
--------<Start of script>-----
 
Dim arrayTemp
 
arrayTemp = 90000000000
    
   Select case arraytemp
    case len(CStr(arrayTemp)) = 12
 
          MsgBox "arrayTempは100Gです!" & vbCrLf & arraytemp
     
    case len(CStr(arrayTemp)) = 11
    
          MsgBox "arrayTempは10Gです!" & vbCrLf & arraytemp
    
    case else
   
End Select
 
--------<END of script>-----

回答
投稿日時: 19/11/14 08:43:34
投稿者: よろずや

Dim arrayTemp
arrayTemp = 90000000000
Select case True
    case len(CStr(arrayTemp)) = 12
        MsgBox "arrayTempは100Gです!" & vbCrLf & arraytemp
    case len(CStr(arrayTemp)) = 11
        MsgBox "arrayTempは10Gです!" & vbCrLf & arraytemp
    case else
End Select
 
別解
 
Dim arrayTemp
arrayTemp = 90000000000
Select Case Len(CStr(arrayTemp))
    Case 12
        MsgBox "arrayTempは100Gです!" & vbCrLf & arrayTemp
    Case 11
        MsgBox "arrayTempは10Gです!" & vbCrLf & arrayTemp
    Case Else
End Select

投稿日時: 19/11/14 09:13:05
投稿者: gorby

いただいたコードで動くことを確認しました。ありがとうございます。