- ベストアンサー
整数→文字列の置換
VB6の質問です。 ↓例で、REC変数を文字列の扱い(整数→文字列)にする方法はございますか? 宣言時の変数タイプは、変更したくありません。 宜しくお願いいたします。 Dim REC As Integer Private Sub test() As Integer ・ ・ ・ ・ REC = '←処理結果をRECに入れる。RECには、文字列が挿入されます。 End Sub
- Visual Basic
- 回答数2
- ありがとう数1
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
数値を文字列に変換するのはStr()関数を使う。 ＞↓例で、REC変数を文字列の扱い(整数→文字列)にする方法はございますか? Integerと宣言した変数に文字列を入れようとしたらエラーになるので、その方法は無い。 ＞宣言時の変数タイプは、変更したくありません。 その条件を満たしたままREC変数を文字列の扱いにするのは不可能。 なので「REC変数を参照している部分すべて」で「RECと記述しているのをStr(REC)に直す」しか方法がない。 もし、100箇所で参照しているなら、100箇所全部を「Str(REC)」に書き換えないといけない。 以下のようにします。 ---- Dim REC As Integer Private Sub test() As Integer ・ ・ ・ ・ REC = 10 '←処理結果をRECに入れる。RECには文字列は絶対に入れられないので、諦めて数値を入れる。 End Sub ・ ・ (略) ・ ・ '実際にRECを参照している部分 MsgBox "RECの値は" & Str(REC) & "です。" ・ ・ (略) ・ ・ Dim 個数 as String '実際にRECを参照している部分 個数 = Str(REC) & "個" ----
その他の回答 (1)
- chie65535
- ベストアンサー率43% (8522/19371)
因みに、Str()関数は ・数値が０か正の数だと、先頭に半角スペースが付く ・数値が負の数だと、先頭に半角スペースが付かない代わりに符号のマイナスが付く と言う特徴があるので注意。 例えば 147⇒半角スペース＋"147" -147⇒"-147" となり、どちらも４文字になる。
関連するQ&A
- 文字列の分解・格納
お世話になります。 文字列の分解についてお聞きします。 環境はVB.NET2008です。 Private Sub Main(ByVal CmdArgs() As String) Dim cmds() As String cmds = System.Environment.GetCommandLineArgs() End Sub コマンドライン引数で以下のように文字列を取得しています。 ("起動exe", "/KEY=○○○/ テーブル名=△△△") この文字列を元に、 変数Ａに○○○を変数Ｂに△△△を代入したいのですが、どうやるのでしょうか？ ご教示願います。
- ベストアンサー
- Visual Basic
- 文字列の保存に関して
質問です。 保存と共有方法についてお聞きしします。私はいつもフォーム内では、 プログラム内で生成した文字列（例：テストhogehoge）を Dim hoge as string ------------------------------ Private Sub CheckBox4_Click(sender As Object, e As EventArgs) Handles CheckBox4.Click Dim Random As .... ←で生成した「テストhogehoge」 hoge = random end sub ------------------------------ と宣言しておいて、 生成された時に hoge = randam(生成した宣言) と保存して、 ソフトが起動中に、いつでも「テストhogehoge」をhogeという場所に 保存しているのですが、起動時にform1.vbで「テストhogehoge」を生成した時に 別フォーム（例: form2.vb）に dim hoge as string に文字列を 保存したいのですが、どうすればいいでしょうか？ form2.hoge = random とやっても Null扱いになってしまい、困ってます。 またソフトウェア上での上記みたいな全てのフォームで 共有出来る方法があったら教えて下さい。
- 締切済み
- Visual Basic
- [VB6]文字列でオブジェクトを指定する方法
VB6でiniファイルからリードしたフォーム名を元に そのフォームをロードしたいのですが、出来ますでしょうか？ 以下のソースで★ところのコメントがしたいのです。 '--------------- Type HogeType testform as Form caption as String End Type Dim FormTest(2) as HogeType Private Sub SetFormData() Set FormTest(0).testform = Form1 '★←ここを"Form1"とか文字列が格納された変数としたい。 FormTest(0).caption = "test1" End Sub Private Sub Main() FormTest(0).Show End Sub 以上、宜しくお願い致します。
- ベストアンサー
- Visual Basic
- 重複した文字列をカウントして取り出したい
初めて質問させていただきます。 VB初心者です。 ソートされた文字列の書き込まれたファイルを読み、 （文字列は、 ”000” ”001” ”001” ”001” ”002” ”002” ”003” といったように書き込まれています。) そこから、3つ連続して並んでいる文字列を探し出して、 その文字列と、3つ連続していた文字列がいくつあったのか表示するプログラムを作りたいのですが、 どうにも処理速度が遅く、さらに行数が1万を超えると、応答なしになってしまいます。 どなたか、上手い処理の方法があれば、ぜひともご教授の程をお願いします。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OpenFileDialog1.FileName = "" OpenFileDialog1.InitialDirectory = "c:\" If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then TextBox1.Text = My.Computer.FileSystem.ReadAllText _ (OpenFileDialog1.FileName, System.Text.Encoding.Default) End If End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim x As Integer Dim xyz As Integer '行数を調べる。 Dim i As Integer = TextBox1.Lines.Length TextBox2.Text = (i - 1 & "行") MessageBox.Show("一時停止") For ix = 0 To i - 2 '1行目と2行目を比較 If TextBox1.Lines(x) = TextBox1.Lines(x + 1) Then '2行目と3行目を比較 If TextBox1.Lines(x + 1) = TextBox1.Lines(x + 2) Then '3つある番号を記入。 TextBox2.Text = TextBox2.Text + vbCrLf + TextBox1.Lines(x + 2) '3回重複したことをカウント。 'MessageBox.Show("3発見") xyz = xyz + 1 Else End If Else End If '調べる行を+1 x = x + 1 Next TextBox2.Text = TextBox2.Text + vbCrLf + ("3つ以上は、" & xyz & "個") End Sub Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged End Sub End Class
- ベストアンサー
- Visual Basic
- Evaluate()に文字列の形式の数式を渡すには
VB.NETでEvaluate()関数を使って、プログラム実行中に決まる数式を評価させたいのですが、下記の(A)のように数式を" "で囲まない形で渡せば正しく評価されるのですが、(B)のように数式が文字列の形になっていると、このまま、文字列を渡してもうまくいきません。(B)のような形になってしまっている数式をEvaluate()関数で評価させるためには、(B)から(A)の形に持っていきたいのですが、どのようにすればよいのかがよく分かりません。 数式の構造自体がプログラムの実行中に文字列の形で処理させて生成されるのですが、このように文字列の形になっている数式を、Evaluate()関数で評価させるためには、どのようにすればよいのでしょうか。 ---------------------------------------- Imports Microsoft.Office.Interop Module Module1 Sub Main() Dim xlApp As New Excel.Application Dim i1 As Integer Dim i2 As Integer Dim term_i As String Dim ans_i As Integer i1 = 2 i2 = 3 term_i = i1 + i2 + 5 ' (A) term_i = "i1 + i2 + 5" ' (B) ans_i = xlApp.Evaluate(term_i) MsgBox(ans_i) End Sub End Module ---------------------------------------- よろしくお願いします。(WindowsXP,VB2010)
- ベストアンサー
- Visual Basic
- vb.net変数に入れた文字列でメソッドを実行する
こんにちわ!! Vb.netで文字列を格納した変数を使ってメソッドを呼び出したいのですが、可能でしょうか？ サンプル 'メインルーチン public sub test() Dim aaa as string ="testfunction" Dim num as integer=0 '↓の様にメソッドを呼び出したい Dim bbb = aaa(num) Msgbox(bbb ,vbinformation) aaa="testfunction2" bbb=aaa(num) Msgbox(bbb,vbinformation) Endsub 'メソッド1 Private function testfunction1(num) Return num+1 End function 'メソッド2 Private function testfunction2(num) Return num+2 End function 上記はあくまでサンプルです。 実際はメソッド数が多く、aaaにいれる名前も別で取得するので、stringになります。 ですので、bbb=aaaはforで回します。 このようなことは可能でしょうか？ やりかたもしくは解決方法があればお願いします。
- ベストアンサー
- Microsoft ASP
- VB.NETにて文字列で指定した関数の実行
Visual Basic 2005におきまして 変数に文字列で指定したコード(関数)を実行する方法を探しております。 たとえば、下記のコードで、変数funcStringで指定した関数を実行して戻り値を得たいと思っております。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim funcString As String = "testFunc(3,5)" 'ここで上記funcStringで指定した関数を実行して戻り値を得たい。 End Sub 'テスト用の関数 Private Function testFunc(ByVal a As Integer, ByVal b As Integer) As Integer testFunc = a + b End Function Microsoft.JScript.Eval.JScriptEvaluateを利用して文字列をコードとして評価する方法を試しましたが、VBで定義してある関数を呼び出すことはできませんでした。 PHPやJavascriptでいうところのeval関数 PHPのcall_user_func関数 と同じようなことを実現したいと思っております。 いろいろ探してみたのですが、解決策が見つからず、 文字列を解析してSELECT CASEによる分岐で実行する関数を1つずつ振り分けるしか方法はないのかもと思っているのですが、今の開発仕様では100近くの関数に関してこの処理をSELECTで分岐することになりそうなのです。 なにとぞ、よき解決方法がありましたら、お力添えよろしくお願いいたします。
- ベストアンサー
- Visual Basic
- テキストボックスに変数を表示させたい
access2003です。 フォーム1にテキスト0を配置し vbaで Private Sub Form_Open(Cancel As Integer) Dim 文字列 As String 文字列 = "a" End Sub と作成しました。 このときフォーム1をダブルクリックして開いた時に テキスト0に文字列に代入した変数を表示させるにはどうすればいいのでしょうか？ テキスト0のコントロールソースに =[文字列] とやっても #Name? になってしまいます。 どうすれば読み取った変数をテキスト0に表示させることが可能なのでしょうか？ よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 整数の引数に列挙を使ったとき
下記のサンプルコードでVB2003のときは警告が出なかったのですが、VB2008では警告が出ます。（注！インデントに全角スペース使用） Private aryNames(5) As String Private Enum enmItem As Integer eName1 = 0 eName2 eName3 End Enum Private Sub Form1_Load(… Dim i As Integer Dim en As enmItem '列挙を使って代入する Item(en.eName2) = "DATA2" Item(en.eName3) = "DATA3" Item(en.eName1) = "DATA1" 'リストボックスで確認 For i = 0 To 2 ListBox1.Items.Add(aryNames(i)) Next End Sub Private Property Item(ByVal idx As Integer) As String Get Return aryNames(idx) End Get Set(ByVal Value As String) aryNames(idx) = Value End Set End Property 警告 使用されないローカル変数'en'です。 インスタンスを経由する共有メンバ、定数メンバ、列挙型メンバ、または入れ子にされた型へのアクセスです。正規の式は評価されません。 いちおう警告だけで期待通りの動きはするのですが、そんなに不正なコーディングでもないのに警告がでるのはうっとうしいです。 かといて警告オプション・・・ 未使用のローカル変数 なし 共有メンバにアクセスするインスタンス変数 なし ・・・とするのも何だかなあ～ て感じです。 これは、安全なコーディングのため仕様が変わったせいなのでしょうか。 警告オプションをそのままに、上記の警告が出ないようにできないものでしょうか。 以上、よろしくお願いします。
- ベストアンサー
- Visual Basic
- ＶＢでの変数宣言は１行に２つできないのですか？
Ｖｉｓｕａｌ ＢＡＳＩＣで変数宣言は１行に２つ以上記述しても実際、動作します。 例 ＤＩＭ Ａ、Ｂ ａｓ Ｉｎｔｅｇｅｒ このように宣言すると、ＡもＢも整数となります。 しかし、このように宣言して、この変数を Ｃａｌｌ サブプログラム名（Ｂ） のように、パラメ－タとして引き渡そうとするとエラーとなってしまうようです。 よくわからないまま、 ＤＩＭ Ａ ａｓ Ｉｎｔｅｇｅｒ ＤＩＭ Ｂ ａｓ Ｉｎｔｅｇｅｒ と分けて記述したらエラーがきえたようです。 変数宣言は１行に２つ以上まとめて記述してはいけないのでしょうか？ ＶＢは Ｖｅｒ ５ です。
- ベストアンサー
- その他(ソフトウェア)
お礼
ありがとうございました。 2回目の質問は無視してください。
補足
ありがとうございました。 サンプルコートの内容についての質問です。 REC = 10 '←処理結果をRECに入れる。RECには文字列は絶対に入れられないので、諦めて数値を入れる。 ＞処理結果は、ランダムにA01, A02, A03の文字列が入ります。 このままでは無視されるのですね? このケースでは、どのような数値を設定するば良いですか?