掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
iniファイルに入っているデータの行数の取得について (ID：84854)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
お答えありがとうございます。 iniファイルをリストビューに表示させる時に以下のコードだと リストビューの一番下に空白行ができてしまうのです。 だから下の20という仮定した数字をiniファイルのデータの行数に したいのです。具体的な解決策などございますでしょうか？ 長くてすいません。 Private Sub Form_Load() Dim FileNum As Integer 'ファイル番号を変数に格納 FileNum = FreeFile Dim temp As String '読み込んだデータを変数に格納 Dim ReadData(99) As String '配列の変数を指定 Dim i As Integer '繰り返し命令の変数を指定 'iniファイルを開いて1行ずつ読み込み配列に格納 i = 0 Open "C:\Documents and Settings\nakayama\デスクトップ\タカナシVB\拠点.ini" For Input As #FileNum Do Until EOF(FileNum) Line Input #FileNum, temp ReadData(i) = temp i = i + 1 Loop Close #FileNum '配列に格納したiniファイルをリストビューに表示 For i = 5 To 20 Step 2 Set obitem = lstv.ListItems.Add() ans = Len(ReadData(i)) - 2 If ans < 0 Then Exit For obitem.Text = Mid(ReadData(i), 2, ans) obitem.SubItems(1) = Mid(ReadData(i + 1), 8) Next
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.