■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#8452-0String変数を決められた数だけ宣言あーち2000-06-01(木) 12:51
     #8453-0RE#8452:String変数を決められた数だけ宣言あれい2000-06-01(木) 13:06
     #8454-0RE#8452:String変数を決められた数だけ宣言ANGEL2000-06-01(木) 13:08
     #8455-0RE#8454:String変数を決められた数だけ宣言ANGEL2000-06-01(木) 13:09
#8452-0
String変数を決められた数だけ宣言
凄い初心者の質問で申し訳ないんですが、テキストファイルを読み込んで
それが100行あったらString変数を100個用意してそれぞれに入れる、というのは
どうのようにすれば良いのでしょうか。3行なら変数は3個、というようにしたいのですが。
#8453-0
RE#8452:String変数を決められた数だけ宣言
> それが100行あったらString変数を100個用意してそれぞれに入れる、というのは
> どうのようにすれば良いのでしょうか。3行なら変数は3個、というようにしたいのですが。

配列変数にする。
#8454-0
RE#8452:String変数を決められた数だけ宣言
> 凄い初心者の質問で申し訳ないんですが、テキストファイルを読み込んで
> それが100行あったらString変数を100個用意してそれぞれに入れる、というのは
> どうのようにすれば良いのでしょうか。3行なら変数は3個、というようにしたいのですが。

Dim sLineRec(100)    As String    '格納する配列
Dim lFileNumber      As Long
Dim lRecCnt          As Long
lFileNumber = FreeFile
Open sTxtFileName For Input Access Read Lock Read Write As #lFileNumber
For lRecCnt = 1 To 100
    Line Input #lFileNumber, sLineRec(lRecCnt)
    lRecCnt = lRecCnt + 1
Next
でどうでしょう?因みに100行の場合です。
しかしながら普通はDo Until EOF(lFileNumber)のように
任意の行数に対応するように作成すると思いますが。
その場合の配列の定義はReDimステートメントを調べてみてください。
#エラー処理等は省いていますので必要な個所に追加してくださいね。
#8455-0
RE#8454:String変数を決められた数だけ宣言
失礼。下記の一文は必要ないです。
lRecCnt = lRecCnt + 1
このページと関連する記事:
#508-3テキストファイルを一気に読み込みたい。2003-12-05(金) 20:54
#145-1ファイルシステムコントロ−ルの活用2003-12-05(金) 23:05
#11058-0テキストファイルを読み込む2000-09-01(金) 17:12
#20915-02つ目2002-05-24(金) 00:52
#35716-0動的配列について2000-12-20(水) 15:19
#16318-0配列について2001-05-25(金) 22:57
#20778-0メモ帳の保存や開くを再現するには?2001-05-09(水) 14:44
#40587-0テキストファイルの文字列置換方法2001-03-21(水) 15:34
#968-1VBによるExcelの二重起動禁止2004-01-22(木) 12:19
#886-0任意の行を1999-08-17(火) 09:29
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)