■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#1449-2listviewについてmomo2001-11-13(火) 02:15
     #1455-3RE#1449:listviewについてゆう(U)2001-11-13(火) 02:32
     #1457-2RE#1455:listviewについてmomo2001-11-13(火) 03:00
     #1460-3RE#1457:listviewについてゆう(U)2001-11-13(火) 03:34
     #1455-0RE#1449:listviewについてゆう(U)2001-11-13(火) 11:32
     #1457-0RE#1455:listviewについてmomo2001-11-13(火) 12:00
     #1460-0RE#1457:listviewについてゆう(U)2001-11-13(火) 12:34
     #1626-3RE#1460:listviewについてmomo2001-11-15(木) 07:44
     #1631-3RE#1626:listviewについてゆう(U)2001-11-15(木) 08:20
     #1626-0RE#1460:listviewについてmomo2001-11-15(木) 16:44
     #1631-0RE#1626:listviewについてゆう(U)2001-11-15(木) 17:20
     #1680-3RE#1631:listviewについてmomo2001-11-16(金) 06:01
     #1680-0RE#1631:listviewについてmomo2001-11-16(金) 15:01
#1449-2
listviewについて
 listviewで作ったデータベースをコモンダイアログを利用してsaveしたいのですが、わかりません。
良い方法を教えてください。
#1455-3
RE#1449:listviewについて
>  listviewで作ったデータベースをコモンダイアログを利用してsaveしたいのですが、わかりません。
「コモンダイアログ コントロール」で出来る事は
ファイル名を決めるくらいです。

データの書き出しは別途コードで行う事になります。


「ファイル」関連のヘルプで調べてみてください。
※データベース(MDB)として出力するのであれば
 仕様するデータベースのヘルプもご覧下さい
#1457-2
RE#1455:listviewについて
 コモンダイアログでファイル名を決め、OPENステートメントを利用するという事ですよね?

始めは、そのOPENステートメントを利用して書き出しに挑戦したのですが、書き出し方だわからなかったのです。(涙)


#1460-3
RE#1457:listviewについて
>  コモンダイアログでファイル名を決め、OPENステートメントを利用するという事ですよね?
> 
> 始めは、そのOPENステートメントを利用して書き出しに挑戦したのですが、書き出し方だわからなかったのです。(涙)
サンプルを載せます・・・
後はヘルプと格闘して、全てのデータを書き出してみてください。

サンプル)
Private Sub Command1_Click()
  Dim intFileNumber As Integer
  Dim strBuffer As String
  Dim myHeader As ColumnHeader

  intFileNumber = FreeFile
  Open "Test.txt" For Output As #intFileNumber
  For Each myHeader In ListView1.ColumnHeaders
    strBuffer = strBuffer & """" & myHeader.Text & """, "
  Next
  strBuffer = Left(strBuffer, Len(strBuffer) - 2)
  Print #intFileNumber, strBuffer
  Close #intFileNumber
End Sub
#1455-0
RE#1449:listviewについて
>  listviewで作ったデータベースをコモンダイアログを利用してsaveしたいのですが、わかりません。
「コモンダイアログ コントロール」で出来る事は
ファイル名を決めるくらいです。

データの書き出しは別途コードで行う事になります。


「ファイル」関連のヘルプで調べてみてください。
※データベース(MDB)として出力するのであれば
 仕様するデータベースのヘルプもご覧下さい
#1457-0
RE#1455:listviewについて
 コモンダイアログでファイル名を決め、OPENステートメントを利用するという事ですよね?

始めは、そのOPENステートメントを利用して書き出しに挑戦したのですが、書き出し方だわからなかったのです。(涙)
#1460-0
RE#1457:listviewについて
>  コモンダイアログでファイル名を決め、OPENステートメントを利用するという事ですよね?
> 
> 始めは、そのOPENステートメントを利用して書き出しに挑戦したのですが、書き出し方だわからなかったのです。(涙)
サンプルを載せます・・・
後はヘルプと格闘して、全てのデータを書き出してみてください。

サンプル)
Private Sub Command1_Click()
  Dim intFileNumber As Integer
  Dim strBuffer As String
  Dim myHeader As ColumnHeader

  intFileNumber = FreeFile
  Open "Test.txt" For Output As #intFileNumber
  For Each myHeader In ListView1.ColumnHeaders
    strBuffer = strBuffer & """" & myHeader.Text & """, "
  Next
  strBuffer = Left(strBuffer, Len(strBuffer) - 2)
  Print #intFileNumber, strBuffer
  Close #intFileNumber
End Sub
#1626-3
RE#1460:listviewについて
 ゆう(U)さんサンプルありがとうございました。
あれから、helpと格闘しながらがんばって見たのですが・・・負けてしまいました。



 
#1631-3
RE#1626:listviewについて
> あれから、helpと格闘しながらがんばって見たのですが・・・負けてしまいました。
ヘッダ部分はアレでOKですよね?

後は
「ListItem オブジェクト」
を1行書き出す部分を作成して・・・
※「ListSubItems コレクション」も参照
 これを使えばヘッダと同じ様な感じの
 コードに出来ます

「ListItems コレクション」
分を繰り返せば完成です。


実際ListItemを追加していけるのですから、逆に
参照していくだけなので難しいく考えなければ
完成すると思います。

部分的に作成して、組み合わせば出来ちゃいます、
今度は勝ってください。
#1626-0
RE#1460:listviewについて
 ゆう(U)さんサンプルありがとうございました。
あれから、helpと格闘しながらがんばって見たのですが・・・負けてしまいました。



 
#1631-0
RE#1626:listviewについて
> あれから、helpと格闘しながらがんばって見たのですが・・・負けてしまいました。
ヘッダ部分はアレでOKですよね?

後は
「ListItem オブジェクト」
を1行書き出す部分を作成して・・・
※「ListSubItems コレクション」も参照
 これを使えばヘッダと同じ様な感じの
 コードに出来ます

「ListItems コレクション」
分を繰り返せば完成です。


実際ListItemを追加していけるのですから、逆に
参照していくだけなので難しいく考えなければ
完成すると思います。

部分的に作成して、組み合わせば出来ちゃいます、
今度は勝ってください。
#1680-3
RE#1631:listviewについて
> > あれから、helpと格闘しながらがんばって見たのですが・・・負けてしまいました。
> ヘッダ部分はアレでOKですよね?

はい、ヘッダーの書き出しは出来ました。

そして今,listviewの特定の場所の書き出しは出来ました。                    

Open "FileName " For Output As #1
 Write #1, ListView1.ListItems(1)
Close #1

しかし、for文を下記のように組むと動きません
c = listview1.listItems.Count

Open "FileName" For Output As #1
 
For i = 0 To c - 1
 Write #1, ListView1.ListItems(i)
Next
 
 Close #1

原因がわかりません。なぜですか?


#1680-0
RE#1631:listviewについて
> > あれから、helpと格闘しながらがんばって見たのですが・・・負けてしまいました。
> ヘッダ部分はアレでOKですよね?

はい、ヘッダーの書き出しは出来ました。

そして今,listviewの特定の場所の書き出しは出来ました。                    

Open "FileName " For Output As #1
 Write #1, ListView1.ListItems(1)
Close #1

しかし、for文を下記のように組むと動きません
c = listview1.listItems.Count

Open "FileName" For Output As #1
 
For i = 0 To c - 1
 Write #1, ListView1.ListItems(i)
Next
 
 Close #1

原因がわかりません。なぜですか?
このページと関連する記事:
#20915-02つ目2002-05-24(金) 00:52
#20200-0listの取得について2001-04-11(水) 16:37
#3509-0保存について1999-11-16(火) 19:54
#16171-0ファイルが見つからない!?2001-05-18(金) 11:14
#9114-0データのセットを作りたいのですが2000-06-27(火) 11:29
#40587-0テキストファイルの文字列置換方法2001-03-21(水) 15:34
#9952-0Keyの使い方2000-04-27(木) 13:24
#491-0RE#490:ファイルポインターとシーケンシャルファイルについて2002-03-25(月) 10:43
#10017-0マルチステートメントで Close2000-04-28(金) 18:22
#10578-0ListItem の Key プロパティで不正なキー?1999-11-29(月) 06:38
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)