sorarispのプロフィール

あるテキストファイル（*.txt）の内容をテキストボックスに表示するボタンを作りました。さらに、このテキストファイルの内容の中から、決まった文字列のみを表示できるようにしたい（例.abcdefgと書かれたテキストに対してbcdのみ抜き出す）のですが、どうすれば良いのでしょうか。初心者なので、簡単にできる方法があれば教えてください。 <現在のコード> Dim myFile As String Private Sub Command1_Click() CommonDialog1.Filter = "テキスト(*.txt)|*.txt|すべて(*.*)|*.*" CommonDialog1.FilterIndex = 1 CommonDialog1.Flags = cdlONFileMustExist '既存ファイルのみ読み込み CommonDialog1.ShowOpen If CommonDialog1.FileName = "" Then Exit Sub myFile = CommonDialog1.FileName FileRead Form1.Caption = "Form1 " & myFile End Sub Private Sub Form_Load() Form1.Height = 3510 End Sub Private Sub FileRead() Dim buf As String On Error GoTo ErrTrap1 Open myFile For Input As #1 RichTextBox1.Text = "" While Not EOF(1) Line Input #1, buf RichTextBox1.Text = RichTextBox1.Text & buf & Chr(13) & Chr(10) Wend Close #1 Exit Sub ErrTrap1: MsgBox Err.Description Err.Clear End Sub

あるテキストファイル（*.txt）の内容をテキストボックスに表示するボタンを作りました。さらに、このテキストファイルの内容の中から、決まった文字列のみを表示できるようにしたい（例.abcdefgと書かれたテキストに対してbcdのみ抜き出す）のですが、どうすれば良いのでしょうか。初心者なので、簡単にできる方法があれば教えてください。 <現在のコード> Dim myFile As String Private Sub Command1_Click() CommonDialog1.Filter = "テキスト(*.txt)|*.txt|すべて(*.*)|*.*" CommonDialog1.FilterIndex = 1 CommonDialog1.Flags = cdlONFileMustExist '既存ファイルのみ読み込み CommonDialog1.ShowOpen If CommonDialog1.FileName = "" Then Exit Sub myFile = CommonDialog1.FileName FileRead Form1.Caption = "Form1 " & myFile End Sub Private Sub Form_Load() Form1.Height = 3510 End Sub Private Sub FileRead() Dim buf As String On Error GoTo ErrTrap1 Open myFile For Input As #1 RichTextBox1.Text = "" While Not EOF(1) Line Input #1, buf RichTextBox1.Text = RichTextBox1.Text & buf & Chr(13) & Chr(10) Wend Close #1 Exit Sub ErrTrap1: MsgBox Err.Description Err.Clear End Sub

Typeで構造体をいくつか宣言して、それをクリアする関数 を作ろうとしています。どんな構造体がきてもＯＫなように 作りたいんですが、？？？の部分にどうかけばいいかが わかりません。こういうのって無理なんでしょうか？ Sub Test(ByVal 構造体 As ？？？) '構造体のクリア Call ZeroMemory(構造体, Len(構造体)) End Function ある構造体のみと考えればわかるんですが、どれでもＯＫと なるとわかりません・・・同じようなことでもいいので、 何かいい方法はないでしょうか？よろしくお願いします。

つい先日も質問をしましたが、また今日も質問させていただきます。 お願いします。 文字列内に存在する＋記号を全て適当な文字に変えてデータを渡して、 渡された側で＋に戻すという、自作のエンコード・デコードらしきプログラムを組んでいます。 当初はNetscape6でのみ確認をしていたのですが、ある程度制作が進行してから InternetExplorer5で確認したらエラーと表示されてしまいました。 ＜自作エンコード＞ while(STR.search("+")!=-1) STR = STR.replace("+","_plus_"); 原因は　while(STR.search("+")!=-1)　らしく、 『文字の繰り返しを表す正規表現演算子が不正です』 と表示されます。 IEでのみのエラーで、ネスケの場合は正常に動作が進行します。 IEとネスケは違いがあるとはよく聞きますし、 これ以外にも発生したエラーは何とか直すことができたのですが このエラーだけはどうしても対処ができませんでした。 男らしく予想される最大の＋の数の分だけ　 STR = STR.replace("+","_plus_");　を書けば問題はないですけど、 できれば避けたい方法です。。。 なるべく綺麗なプログラムに仕上げたいので この質問に対するお答えをお持ちの方、どうかご協力お願いします。 無さそうでしたらその旨お伝えいただければ助かります。

ｖｂの知識はゼロです。超初心者の質問ですが、プログラミングするには何が必要ですか