VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2006/05/08(Mon) 20:24
投稿者： のびた
Ｅメール：
ＵＲＬ：
タイトル： Re: はじめまして

やりたいことは別として、まずあなたのソースではコンパイルが通らないでしょう。

> Dim SoundDate(1,j) As String
このような宣言はできません。配列についてのヘルプを見直してください。

> 　TextName = "inputp.txt"
> Open TextName For Input As #1

ファイル番号を直接指定してファイルを開くのは、あまり良いとはいえません
できればFreeFile関数でファイル番号を取得しましょう。

>  Do Until EOF(1)
Do UntilまたはDo WhileはLoopで閉じなければなりません。
詳細はMSDNの「Do...Loop ステートメント」を参照して下さい。

>   Maxj = j
Maxjは宣言されていませんし、何処にも使われていません。
この変数の用途を見直した方がいいんじゃないでしょうか。

> txtFilenme.Text = SoundDate(1,j)
> wDate = SoundDate(1,j)
> txtFileName.Text = wDate
同じ理由でwDateも宣言されていませんし、なぜ使用するかも用途不明です。

txtFileName.Text =　SoundDate(1,j)
または
txtFileName.Text =　txtFilenme.Text
とすればwDateが必要な理由が今ひとつ不明です

とりあえず、文法的に指摘するのは、その位でしょうか。

あとは自分のやりたいことをフローチャートにでもしてみて
それをコードに変換していけば良いんじゃないでしょうか。
残念ながら、あなたのやりたい仕様が今ひとつ見えないのでアドバイスすることはできません。

というのは、「選択されたファイル」とか「次のファイル」という言葉が質問で出てきますが
そのファイルの説明がされていません。あなたは分かっていると思いますが、仕様をまったく
知らない第三者には、いきなり「選択されたファイル」とか言われても何が選択されたファイル
なのか分かりません。

あなたのコードでファイル名を指定しているのは
>TextName = "inputp.txt"
の行だけであり、「次のファイル」を指定しているところがコード中に見つかりません。
inputp.txtの中にファイル名のリストがあるのでしょうか？

あとタイトルは「はじめまして」とかではなく、質問の内容に添ったものにして下さい。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -