- ベストアンサー
プログラムについて
初心者なんですが、フォルダの中の文章を表示させるプログラムってVBでできるんでしょうか?参考書を見ても難しかったり、どこを見ればいいかとかがわかりません。どういう風にプログラムを作ればいいかわかる方少しでもいいんで願いします。
- mos21
- お礼率46% (128/273)
- Visual Basic
- 回答数4
- ありがとう数2
- みんなの回答 (4)
- 専門家の回答
質問者が選んだベストアンサー
サンプルです。 必要なもの フォーム1[Form1] TextBox[Text1] DriveListBox[Drive1] DirListBox[Dir1] FileListBox[File1] それぞれツールボックスから選択して貼り付けてください。 テキストボックス[Text1]は、この時プロパティの調整が必要です。 MultiLine = True ScrollBar = 0-なし 以外だったら何でもいいです 処理内容 1.フォームロード時にテキストボックスを初期化 2.ドライブリストボックス/ディレクトリリストボックスのチェンジイベントで、フォルダを指定 3.ファイルリストボックスのダブルクリックで、そのファイルのテキスト内容を表示 Option Explicit 'フォルダリストのパスが変更されたとき、ファイルリストのパスも変更 Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub 'ドライブリストのパスが変更されたとき、フォルダリストのパスも変更 Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub 'ファイルリストボックスをダブルクリックで、ファイル内容を表示 Private Sub File1_DblClick() Dim wkPath As String Dim wkFile As String Dim wkFileFullPath As String 'パスを取得 wkPath = File1.Path wkPath = IIf(Right(wkPath, 1) = "\", wkPath, wkPath & "\") 'ファイル名を取得 wkFile = File1.List(File1.ListIndex) 'ファイルフルパスを取得 wkFileFullPath = wkPath & wkFile 'ファイルの中身を取得 Text1.Text = getText(wkFileFullPath) End Sub 'フォームロード時に初期化 Private Sub Form_Load() Text1.Text = "" End Sub '指定のファイル内の文字列を取得する関数 Private Function getText(inFilePath As String) As String Dim lngFile As Long 'ファイルナンバ Dim lngFileSize As Long 'ファイルサイズを取得 lngFileSize = FileLen(inFilePath) '読み込みバッファの領域確保 ReDim fileBuf(lngFileSize - 1) As Byte 'バッファを取得 lngFile = FreeFile Open inFilePath For Binary As #lngFile Get #lngFile, , fileBuf Close #lngFile '取得した文字列を返す getText = StrConv(fileBuf, vbUnicode) End Function
その他の回答 (3)
- y_herohero
- ベストアンサー率30% (72/239)
可能ですよ。フローとしては、 1.ユーザから検索するフォルダのパスを入力させる。 2.入力されたパスの配下にあるファイル名一欄を取得し、 ファイルが1つ以上存在するならば一欄を表示する。 3.ファイル名一欄の中からユーザに表示させたいファイル名を選択させる。 4.選択されたファイルを開き内容を取得し表示する。 が簡単なフローですね。(エラー処理は除く) どうでしょうか?
- y_herohero
- ベストアンサー率30% (72/239)
フォルダ内の文章とは、 1.あるフォルダにある文章ファイル(*.txt)の内容を表示したい? 2.それともあるフォルダにある文章ファイルの一覧を表示したい? 3.さらに表示はVBで作ったAP上に表示したい? 4.又はメモ帳等で表示させたい? 以上全てはVBで実現できますよ。 欲しい機能はどれでしょうか?コーディングする前に機能を明確にする方が大事ですよ。 ⇒業界ではこれを「機能仕様」なんて呼んだりもします。
- uc078
- ベストアンサー率22% (28/127)
「フォルダの中の文章」とは、フォルダ内のファイルを表示すると言うことでしょうか? windowsのエクスプローラのように。
お礼
お早い返事ありがとうございました。フォルダ内の文章とはメモ帳で書いた文章のことです。メモ帳の名前を使ってその内容を表示できるプログラムを作りたいと思っています。
関連するQ&A
- VB2008 でプログラムを作成している初心者です。
VB2008 でプログラムを作成している初心者です。 順調に製作&デバッグしながら進めていたプログラムで、突然デバッグしても、作成中のアプリケーションが現れなくなりました。VB開発環境には”プログラム実行中”と表示があり動いているようですが、アプリ画面が出ていないので、そこへの入力も何も、画面確認もできません。何か、設定があるのでしょうか? ちなみに、binやdebugフォルダーのwindowsApplication1.exeをクリックすると、画面が出てきて動作します。 初歩的な問題だとは思いますが大変困っています。 どなたかお分かりになる方、ご教授ください。 よろしくお願いします。
- ベストアンサー
- その他(ソフトウェア)
- スタティックプログラム
VB歴3ヵ月の初心者です。 VS 2003で.netプログラムを始めました。 安全性を高めるために、VB6.0におとしました。 それでもプログラムのインストール時に、DLL、OCXがインストールされてしまうため、スタティックプログラムを作成したいと考えています。 VB6.0もしくはVS2003で作成したプログラムをスタティックに変換することは出来ないでしょうか?不可能である場合にスタティックプログラムを作るにはどのような手法をとれば良いのでしょうか? ご教示お願いします
- ベストアンサー
- Visual Basic
- ポケベルを呼び出すプログラムをVBでつくりたい
VBの初心者なのですが、勉強のためにVBでポケベルを呼び出すプログラムをつくりたいと思っています(業務で少しからみがあるので....)。 モデムを使ってポケベルを呼び出して、PB信号を発行できるようなものです。 一から自分でプログラムするのはとても無理なので、そのようなソースプログラムをちょこちょこ改造するところから始めたいのですが、なかなかよいものが見つかりません(フリーでそのようなソフトはたくさんあるのですが、ソースが公開されているものは少なくて....)。 どなたか、参考になるソースプログラムが公開されているURLとか、書籍などご存じでしたら教えてください。
- ベストアンサー
- Visual Basic
- プログラムについて
プログラムについて (1)PC内で打ち込んだ数字が外部モニタに出力されるプログラムを作りたいです (例)整理券などの番号が有り、その整理券の順番をPCで入力したら外部モニタに順番が表示されるようなプログラム (2)LabVIEW、VB、マイクロソフトアクセスは触ったことがありますがほぼ初心者です (本みながらじゃないと組めません) (3)無料ソフトでプログラムを組めないでしょうか?
- ベストアンサー
- その他(ソフトウェア)
- 助けて下さい!プログラムCが開けなくなりました!
ウイルスバスターの試用版をhttp://www.trendmicro.co.jp/vb2005/evaluate/xpsp2/trial-dl.asp からダウンロードし、解凍して、ファイルの保存場所を 間違えて”プログラムC"(全体)にしてしまいました(:0;) Cの中のフォルダを指定したわけではなく、Cそのものです。 あせってインストールを中止し、プログラムCをクリックしたら ウイルスバスターのポップアップしか表示されていません! Cの中に入れていた画像や音楽は消えてないようですが、 なにせポップアップが表示されるだけでその先にすすめないのです。 一体どうしたらいいのでしょうか?! お返事お待ちしています!! ※インストール自体はしていません
- ベストアンサー
- ウィルス・マルウェア
- すべてのプログラムを任意に固定したい
Windows7の『すべてのプログラム』のプログラムフォルダーの中のショートカットフォルダーやショートカットアイコンえを並べ替えると、ドラッグして並べ替えた『すべてのプログラム』のプログラムフォルダーの並び順が変わってしまいます、スタートボタンをクリック→すべてのプログラムで表示されるプログラムとその中にあるショートカットフォルダーやショートカットアイコンを任意に固定することは出来ないのでしょうか、ご存知の方よろしくお願いします。
- 締切済み
- Windows 7
- プログラムでフォルダー内のファイルを印刷
VBのプログラムを使って、指定したフォルダー内のサブフォルダー内も含めて、そこにあるファイル名を印刷するには、どのようにコーディングすれば良いか、ご存知の方は教えてください。よろしくお願いします。
- ベストアンサー
- Visual Basic
- プログラム
フォルダーに画像が1.bmp 2.bmp 3.bmpという風にあります。 それをフォルダーの画像の並びを変えて2.bmp 1.bmp 3.bmpとするプログラムを書くのと、関数を追加したプログラムを書くのとでは、 結果はどのように変わるでしょうか? 教えてください
- 締切済み
- その他(インターネット・Webサービス)
- ホームページビルダーでプログラムをダウンロードする方法
HB6(ホームページビルダーV6)で VB6(VisualBasicV6)で作ったプログラムをホームページ上から ダウンロードできるようにしたいと思っています。 VB6で作ったプログラム類は1つのフォルダ内に Setup.exeやxxx.cabとして入っています。 このフォルダごとダウンロードすることが可能でしたら その方法を教えてください。
- ベストアンサー
- その他(プログラミング・開発)
お礼
すいません。フォルダ内の文章とはメモ帳に書いた文章のことで、メモ帳をフォルダに入れていたのでそう書いてしまいました。メモ帳の名前をtest.txtとしたんですけど、これをつかってVBでtest.txt内の文章を表示させることはできますか?