No.3ベストアンサー
- 回答日時:
>これを使ってテキストに保存した”あいうえお”から”わをん”までの文字の中か>ら”まみむめも”を抜き出すというようなプログラムを作れませんか?これとは違>うプログラムになるのでしょうか?
myData = "あいうえお・・・まみむめも・・・わをん"
i = InStr(myData, "ま")
MsgBox Mid(myData, i, 5)
ちょっとは考えましょうよ。
回答ありがとうございました。すいませんでした、書き方がおかしかったですね。そのテキストに名前を付けておいてその名前をプログラムに書いて”まみむめも”を抜き出したいんです。プログラムの中には”あいうえお”とか”わをん”を書かないで抜き出したいんですが、できるんですかね?よかったらお願いします。
No.4
- 回答日時:
勉強しなければならないこと
○ ファイルの読み込み方
○ InStr、Left、Mid、Rightの4つの関数の動作
これだけですね。
ファイルの扱い方は最初は難しいですが、4つの関数については自分でいろいろ値を入力してみて、どういう動作をするのか目で見てみることがいちばんの上達になると思います。
いちばん簡単なのは、VB内でCtrl+Gを押したときに現れるテキストのウィンドウに
? left("あいうえお", 2)
とか
? instr("あいうえお", "う")
とか入力してEnterをその行で押してみると、関数の結果をダイレクトに表示してくれるので、どういう動作をするのかが明らかです。
ファイルの読み込み方については、ヘルプで
○ Open
○ Input
などのキーワードで調べてみましょう。
その際わからないことがあったら、また質問してみてください。
掲示板の構造上、ソースコードを全部書いてしまうというわけにはいかないので、ある程度わかるようになって疑問にぶつかったら、また来るといいでしょう。
ちなみにmos21さんのコードを、メニューの "プロジェクト"→"標準モジュール" の追加でできるウィンドウ内に貼り付けて、先ほどのCtrl+Gで現れるウィンドウで
instrsample1
と入力してEnterを押すと、お望みどおりの結果が得られますよ。
No.2
- 回答日時:
下の回答で良いと思いますが、付け加えるなら、、、
このサブプロシージャ(Sub~End Subまで)はInStr関数を使って
文字列[myData]の中に"@"があれば、その最初の文字の位置を
変数[i]に返し、Left関数で[myData]の左から[i-1]文字目
までをメッセージボックスで表示(MsgBox)させています。
で、実行させる方法ですが、、、
ボタンを押したときのイベントにするなら、[デザイン]時に
フォーム上にコマンドボタンを置いてダブルクリックすると
クリックした時のイベント(Command1_Click())が記述できます。
([Command1]は名前を付けない場合のデフォルトの名前)
そこに下の回答の通りに記述するか、もしくは次のように記述します。
Private Sub Command1_Click()
Dim myData As String
Dim i As Integer
myData = "*******@projecta.co.jp"
i = InStr(myData, "@")
MsgBox Left(myData, i - 1)
End Sub
[開始](右向きの三角)を押せば試しに実行できます。
No.1
- 回答日時:
もしかしてInStrSample1を実行するイベントを記述しないのでは。
ボタンでも張りつけて、以下のようにしたら表示されますよ。
Private Sub Command1_Click()
Call InStrSample1
End Sub
Sub InStrSample1()
Dim myData As String
Dim i As Integer
myData = "*******@projecta.co.jp"
i = InStr(myData, "@")
MsgBox Left(myData, i - 1)
End Sub
ありがとうございました、表示できました。これを使ってテキストに保存した”あいうえお”から”わをん”までの文字の中から”まみむめも”を抜き出すというようなプログラムを作れませんか?これとは違うプログラムになるのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) モードレスでユーザーフォームが開け(表示)ません。 4 2022/09/09 11:05
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本 1 2022/04/27 13:31
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Macターミナルで実行中のプログ...
-
プログラミング ソースコード
-
プロセス間通信について
-
実行時エラー429
-
Windows7-VB6でのアクティブウ...
-
MACで動く実行ファイルをWindow...
-
fortranで計算を実行するとrunt...
-
なんかC言語でプログラム書いて...
-
C言語でフォルダを開く
-
バックグラウンドで実行される...
-
Visual C++ 6.0で作成したプロ...
-
matlabでのif文の重複
-
CreateProcessについて
-
sendkeysにてALT+CTRL+INSERTを...
-
VBAで外部プログラムを非表示で...
-
システム資源とは?
-
あるプログラム実行中に別のプ...
-
一定時間たつと、リセットしたい
-
いきなり、count++; とありま...
-
他の実行ファイルを実行するプ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Macターミナルで実行中のプログ...
-
MACで動く実行ファイルをWindow...
-
sendkeysにてALT+CTRL+INSERTを...
-
他のPC上にあるexeを、そのP...
-
VB上で実行中の無限ループの止め方
-
system関数を使用してsuコマン...
-
VBAで外部プログラムを非表示で...
-
実行時エラー429
-
プロセス間通信について
-
並列計算をしたときのシステム...
-
終了してもプログラムが実行し...
-
システム資源とは?
-
C言語で途中までしか、プログラ...
-
PIC のデータEEPROMに書き込み...
-
RPG パラメーターについて
-
Windows10でDOSゲーム
-
ラズパイ プログラム 自動起動 ...
-
プログラムを走らせる
-
C言語でフォルダを開く
-
アクセス[ファイルを開かずに、...
おすすめ情報