• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• bmax2010/03/04 19:13:44

  満足60pt

  下記のコードで生成できます。

  
  

  使い方の例：Dim result as string = CreateRandomString(4)

  で4桁のランダムな半角英数字がresultに入ります。

  
  

  
          ''' <summary>
          ''' ランダムな文字列の生成
          ''' </summary>
          ''' <param name="length">文字数</param>
          ''' <returns>ランダムな文字列（"0" To "9", "A" To "Z", "a" To "z"）</returns>
          Private Shared Function CreateRandomString(ByVal length As Integer) As String
  
              CreateRandomString = ""
  
              '指定の文字数になるまでランダムな文字を生成
              Dim strKey As String = ""
              Do Until Len(strKey) >= length
                  'ランダムな文字を生成
                  Dim strKeyChar As String = Chr(RollDice(122 - 47) + 47)
                  '数字・英字の範囲かチェック
                  Select Case strKeyChar
                      Case "0" To "9", "A" To "Z", "a" To "z"
                          'Case "0" To "9"
                          strKey = strKey & strKeyChar
                  End Select
              Loop
  
              CreateRandomString = strKey
  
          End Function
  
  
          ''' <summary>
          ''' 暗号サービス プロバイダの暗号乱数ジェネレータを使っての乱数の生成（MSのヘルプから引用）
          ''' </summary>
          ''' <param name="NumSides">出力値の最大値</param>
          ''' <returns>乱数（1～指定した最大値）</returns>
          Private Shared Function RollDice(ByVal NumSides As Integer) As Integer
  
              Dim randomNumber(0) As Byte
  
              Dim Gen As RNGCryptoServiceProvider = New Global.System.Security.Cryptography.RNGCryptoServiceProvider()
  
              Gen.GetBytes(randomNumber)
  
              Dim rand As Integer = Convert.ToInt32(randomNumber(0))
  
              Return rand Mod NumSides + 1
          End Function
  

  スター

  • vb-net 2010/03/04 19:30:25

    ありがとうございます。助かりました!

その他の回答

この質問へのコメント

質問の情報

登録日時

2010-03-04 19:04:17

終了日時

2010-03-04 19:30:33

回答条件

1人2回まで

この質問のカテゴリ

• コンピュータ
• 学習・教育

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者111日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者111日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者15時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者115時間前
• 内定してほしいポケモンはいますか？匿名質問者16時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ