VB初心者質問スレ Part4
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
NGNGhttp://pc.2ch.net/test/read.cgi/tech/1000523122/
0052初心者厨房
NGNG恐らく、僕が引っかかっているのは、CIntでは整数型の返り値、
Midでは文字型の返り値って言うところでエラーが出ているのではと
思っています。でも、どのようにしてこの問題を解決したらいいのか
分からないのです。
手を煩わして本当に申し訳ありませんがよろしくお願いいたします。
0053デフォルトの名無しさん
NGNGとりあえず、デバッグで調べてModule1に何が入ってるかを書け
0054デフォルトの名無しさん
NGNG0055デフォルトの名無しさん
NGNGModule1.C_Dateが数値型だからとか値が入ってないとか
そういうことだと思う。
原因はおそらくこの2行。
da = Split(Date, "/")
L_DATE = da(0) & da(1) & da(2)
システム日付を文字列に変換するなら、
Format(Date,"yyyymmdd")とか使ったほうが確実だよ。
あと「らしい」と書いてるってことは別の人に聞かれてるのかね？
本人に自分で聞くように言ってやんなさい。
0056デフォルトの名無しさん
NGNG0057tyubo
NGNG抑止したいのですができません。
MDIフォームにはKey_Downイベントもないし
サブクラス化してトラップしようとしてもなぜかWM_KEYDOWNが
取れません
どうしたらいいですか？？？
0058Kusakabe Youichi
NGNG> 先生、そろそろみんなが自作自演であることに気づいちゃいます。
はつみみです。
0059デフォルトの名無しさん
NGNGAPIのDrawTextを使えば勝手にやってくれますが
それじゃ駄目ですか？
0060デフォルトの名無しさん
NGNGDrawTextは禁則処理してくれるんですね。
今やろうとしてるのはPowerBuilderのデータウィンドウ内のカラムで
やりたいので、できればシンプルなアルゴリズムがあれば
まねしたいな、と思いまして。
PowerBuilderのサンプルなんてないと思ったのでVBスレで
聞いてみました。
006131
NGNG先生、文字化けの話から逸れましたが？
それはもういいんですか？
ふふふ。
0062Kusakabe Youichi
NGNG> 先生、文字化けの話から逸れましたが?
初耳です。
0063デフォルトの名無しさん
NGNGたぶん、Module1.C_Dateの中身が空なんだろう。
CInt("") を実行したような状態になってるんじゃない？
CInt(Val("")) ならエラーにならないけど、どっちみち
値が入ってないからプログラム総体としてはエラーな気が。
Moの値が0になっても構わないなら、
Mo = CInt(Val(Mid(Module1.C_Date, 5, 2)) )
とすれば当面エラーは出ないけど、逆にバグ混入させる気がするね。
>>55の言うとおり、da = Split(Date, "/")を止めてFormat使った
方がいい。そもそもDateがyyyy/mm/dd形式で返すっていう保証は無いし。
0064デフォルトの名無しさん
NGNGPowerBuilderは使ったことが無いので判らないですが、
基本的には、行頭の文字をチェックしてその文字が禁則文字なら前の行に移す
（もしくは前の行の行末文字をもってくる）といった処理を繰り返すしかな
いと思います。
0065初心者厨房
NGNGModule1の中身は何も入ってませんでした。。(汗)
とりあえず、今まで教えてもらった事を頑張ってやってみます。
ありがとうございます。
0066デフォルトの名無しさん
NGNGどうもです。
やってみます。バグが恐いですけど。
0067デフォルトの名無しさん
NGNG0068ヒッキー＠プログラミング
NGNGﾜﾗﾀ。
ASCII→ASCⅡ
0069デフォルトの名無しさん
NGNG俺も NGワードの設定がしたいよ・・・（´Д｀）
真面目にゾヌの導入検討しようかな・・・。
0070デフォルトの名無しさん
NGNG>>30さんに、初心者と名乗るようなヤツはダメ、手前で調べろボケ
というようなリンクを示されたので、かなりへこんでいます。
でも、どうしても自力では解決できません。ここ２ヶ月ずーっと悩んでます。
誰か少しでもヒントを下さい。
007269
NGNGというわけで導入してみた。いや、いいなこれ。
まだ全然使いこなせてないけどとりあえずNGワードを設定したら幸せになれたよ(´ー｀)ノ
あと、俺にゾヌ導入のきっかけを与えてくれた先生に感謝するよ。ちょっとだけ（藁
0073デフォルトの名無しさん
NGNGVBの話でなくていいなら、制限付きで出来ます。
SetClipboardData でデータをクリップボードに置くとき、
データのハンドルに NULL を指定します。
そーすると、他のアプリケーションがクリップボードからデータを
読み出そうとしたとき、WM_RENDERFORMAT メッセージが届きます。
このメッセージが届いたら、クリップボードに SetClipboardData でデータを置きます。
制限付きとは、次のようなことです。
WM_RENDERFORMAT は、他のアプリケーションが
クリップボードからデータを取り出すと発生します。
それは、貼り付けのときとは限りません。
ただクリップボードの中身を確認するためだけかもしれないし、
例えばクリップボードビューアが内容を表示するために
読み出す場合もあります。区別は出来ません。
あまり使えない方法ですが、他の方法は知りません。
・・・こんなので良い？
007429です
NGNGまだ良く理解できてませんが、参考にさせていただきます。
Win32APIで可能なのかな？？？
いえ、ヒントはすでにいただきましたから、後は自分で調べて試して戦います。
とにかく頑張ってみます。ありがとうございました。
0075デフォルトの名無しさん
NGNG演奏する方法を教えてください
0076デフォルトの名無しさん
NGNGMP3の音楽を演奏するプログラムを書きます。
0077デフォルトの名無しさん
NGNG0078デフォルトの名無しさん
NGNGご存知の方がいらしたら、どうか教えてください。
VB6(SP5)でACCESS97にDataEnvironmentで接続するソフトをつくり、デイストリビューター
でキャビファイルにして、稼働環境にインストールすることにしました。
キャビファイル作りは問題が無かったのに、インストール中にエラーが発生しました。
ログを見ると
C:\WINDOWS\SYSTEM\msado25.tlb' 中に DllRegisterServer() のｴﾝﾄﾘﾎﾟｲﾝﾄが見つかりません。
とのことです。
無視してインストールを続行し、出来たEXEを動かすと、
実行時エラー3706
ADOCE could not find the specified provider.
MSのHPでエラー情報を見てみましたが該当するものはありませんでした。
ソフトそのものは２年近く稼動しているもので、問題はないはずです。
ディストリビューターにかけたときに問題が発生したと思うのですが、
思い当たる方はいらっしゃいますでしょうか？
何卒よろしくお願いします。
0079デフォルトの名無しさん
NGNGよくわからんがＳＰ５はＡＤＯ２.５か？
008179
NGNGＡＤＯ２．６以上のあったら参照設定をそれに戻してインストーラ
ー作りなおしてみれ。これで直ったら同じ原因かも。
間違ってたらｺﾞﾒｿ。
008379
NGNGージョンのＡＤＯに参照設定戻してＶＢＰ保存してＥＸＥ作ってイン
ストーラー作れば直ると思うが。
暇だから詳細書くとさ、ＳＰ４のマシンで開発（ＡＤＯ２．５）で
開発しててＥＸＥ（①）作って、一度ＳＰ３のマシンにソース持って
って保存して、そのソースをＳＰ４のマシンに戻して①のＥＸＥでイ
ンストーラー作ったらさぁ、参照設定がＳＰ３だからか知らんけどＡ
ＤＯ２．０になっててさ。でもＥＸＥは２．５でコンパイルしてるや
ん？多分そんな原因かも。
※ナゼ暇かというと午前０時にクライアントが日付またぐ処理やる
か監視するまで帰れないんだよよよい (ToT
これも違ったらｺﾞﾒｿ
0084デフォルトの名無しさん
NGNGaをLongゃCurrencyなどの桁数の多い型で宣言するとよい。
「7」はInteger型と解釈されているので、「7&」などと表記してVBにLong型と解釈させるとよい。
>>29
ヘルプで「Clipboard オブジェクト」を調べるとよい。
0085デフォルトの名無しさん
NGNG0086デフォルトの名無しさん
NGNG標準EXEでつくって拡張子を.dllに変える。
0087デフォルトの名無しさん
NGNGVBでつくろうとするのが間違い。
おとなしくVC++でつくれ。
0088デフォルトの名無しさん
NGNG８６はウソ。
VBで標準DLLは作れない。
ActiveXDLLで我慢してください。
0089デフォルトの名無しさん
NGNG0090デフォルトの名無しさん
NGNGありがとうございます。
009186
NGNGおいおい、ネタsageしたやつに礼を言うもんじゃないぞ。
0092デフォルトの名無しさん
NGNGほんとはC++で作ったんですけどねえ。やっぱり無理かあ。ちぇ。
009378
NGNGもう一度参照設定を確認してみました。
MS DataBinding Collection VB6.0
MS DataEnvironment Instance 1.0
MS DataFormatting Object Library 6.0
ここら辺が全部(SP4)になってました。
SP5は開発後に（今年になって)ダウンロードしてます。
開発時の環境は今確認できませんが、ご指摘が「図星」だったかもしれません。
どうもありがとうございました。
0095デフォルトの名無しさん
NGNG正直、その実装にどのような意味があるのかわからない。
俺だったら、必要なデータをテキストファイルに出力して、
それをエディタで読み込むが・・・。
ペーストとペーストの間に何か手入力したりするの？
やりたい事を実現する方法は、他にあったりしない？
それが仕様なら仕方無いけどね(^^;
0096デフォルトの名無しさん
NGNGa(0)
a(1)
a(2)
・
・
・
みたいな感じで配列の要素をa(0)から最後の要素まで１行ずつ
ファイルに書き出していくにはどうすれば宜しいでしょうか？
0097VB厨房
NGNGfor(0..100)a(i)=a(i)+1;
File open処理 #2 ’テキトー
for i =0 to 99
print a(i) & vbCrlf ’vbCrLFがポイント
next
close #1
0098デフォルトの名無しさん
NGNGDim a(100) as String '文字列型じゃないと駄目よん
.....
Open "hoge.txt" for output as #1
Print #1, Join(a,vbCrLf)
Close #1
…多分真似しない方が良いと思われ。
0099デフォルトの名無しさん
NGNG0100Kusakabe Youichi
NGNG> CSVファイルのデータを2次元配列に格納することはできないんでしょうか??
できますよ。
0101名無しさん＠Ｅｍａｃｓ
NGNGということにしたいのですね。
0102デフォルトの名無しさん
NGNGデータの形式が分からないけど、
テキストファイルとして1行ずつ読み込んで、
一時格納用配列にSplitで入れて、
それから目的の配列に入れたら？
泥臭い？
0103
NGNG・Input
・Line Input後、自分でバラす
どっちが早いんでしょ？
0104デフォルトの名無しさん
NGNGベンチマークソフト組んでみたら？
0105デフォルトの名無しさん
NGNGLineInputじゃなくて全体(あるいはいくつかに分けて)を
一気に読みこんでバラした方が動作は「速い」かな。（作り方にもよるけど）
LineInputよりDB経由の方が速かったりもするよ。
0106103
NGNG＞LineInputじゃなくて全体(あるいはいくつかに分けて)を
＞一気に読みこんでバラした方が動作は「速い」かな。（作り方にもよるけど）
あー、そうですね。
ﾁｮﾄ面倒臭いけど。
＞LineInputよりDB経由の方が速かったりもするよ。
これどーゆー意味ですか？
最終的にはバラした後DBに登録するのが目的なんですが・
0107デフォルトの名無しさん
NGNGだいたいのDBはCSVを直に取り込んだりリンクしたりする機能があるから
そっち使った方が早い場合もあるって事だと思う。
細かい入力チェックがやりにくくなるけどな。
0108：デフォルトの名無しさん
NGNGどうすればよいのでしょうか。
あちこちのＨＰや本を調べて試してみましたが、どうしても上手くいきません。
ご存知の方がいらっしゃいましたら教えてやってください。
0109デフォルトの名無しさん
NGNGPrivate Sub Command1_Click
PlaySound "hoge.wav", 0&, SND_ASYNC
End Sub
0110デフォルトの名無しさん
NGNGありがとうございます。格納することはできたみたいです。
ただ、行数が未知のCSVファイル（Exel）のデータを
二次元配列に格納するには、どのようにすればよいでしょうか？
↓みたいにやっても上手くいかないみたいなんで…
For i = 0 To UBound(Book1.csv)
For j = 0 To 2
Line Input #1, vntBook1(i)(j)
Next
Next
0111110
NGNGFor i = 0 To UBound(Book1.csv)
For j = 0 To 2
Input #1, vntBook1(i, j)
Next
Next
です。
0112かをる
NGNGちなみにそれは、適当な数字をＡ列に積み上げ、途中で数字をポップしてＣ列に積んでいくというものなんです。
スタックは5回で良いのですが。
0113デフォルトの名無しさん
NGNGOpen "Hoge.csv" For Input as #1
Do Until EOF(1)
Input #1, vntBook(i,0), vntBook(i,1)
i = i + 1
Loop
Close #1
UBoundの引数は配列変数ね。
0114VB厨房＠
NGNG俺の場合は、１行ずつ読み込んでから、","を
分解してそれを一旦dim buff as Stringに保存して、
あとから、一気に書き込むというやり方、（独学だけど）
それに君のそのソース、CSVのカンマ区切り文字が勝手に配列に入ってくるものと誤解してない？
For i = 0 To UBound(Book1.csv)
は、最後の行まで読み込むというのは分かるけど、
For j = 0 To 2
で、列のそれぞれの要素を読み込んでいないだろ。
>>112
PUSHと、POPって要するに、配列の移動でしょ？（あんましらん）
DIM A(10) as integer
DIM B(10) as integer
Static ai,bi as integer 'もしくはPublicでSUBの外に置く
PUSH 処理で
ai=ai+1
A(ai)=K
POP 処理で Bに積み上げ、Aは一つ省くので
bi=bi+1
B(bi)=A(ai)
ai=ai-1
タブン、君の場合、A,B，Cのスタックを積み上げている位置を
DIMとかで宣言して、位置を記憶してないかと思う。
Static及び、SUBの外側で、Public宣言するとよろしい。
0115デフォルトの名無しさん
NGNG最初に改行コードの数(=行数)を数えてから読み込むとか。
BinaryでOpenしてから数えればン万行でも瞬時に数えられるよ。
0116１１２
NGNG「データの格納と取り出しの分岐のプログラム」てのをやってまして、その前に
「inputbox関数を用いてデータをA列の１行目から５つ格納する。」
For num = 1 To 5
myval = InputBox("データを入力してください。")
Cells(num, 1) = myval
Next num
と言うのと、
「A列の１番下の行（５行目）のデータから１つずつ取り出してC列の１行目から順に移動する」
For num = 1 To 5
Cells(num, 3) = Cells(6 - num, 1)
Cells(6 - num, 1) = ""
Next num
と言うのをやったので、その延長のプログラミングと思われるのです。
まず、yourval = InputBox("データ格納の場合は1、データ取り出しの場合は2を入力してください。")
を出して、1か2を打ち、1の場合はmyvalでＰＵＳＨする数字を打つんです。
んで、ＰＵＳＨはＡ列、ＰＯＰした物ははＣ列に置くと言うのを5回やるのですが・・・。
難しいっす。
0117VB厨房＠
NGNGちょっと見たかんじでは、配列の使い方おかしくない？
宣言は
Dim Cells(3,5)
こうしたら？君の場合おそらく
Dim Cells(5,3)
としてる。
Dim Cells（行、列）
と考えたら分かりやすいかと思うが、
For num = 1 To 5
Cells(num, 3) = Cells(6 - num, 1)
Cells(6 - num, 1) = ""
Next num
だと、
num=1
Cells(num, 3) = Cells(6 - num, 1) 、１行目の３列目に、５行目の１列目を代入
num=2
Cells(num, 3) = Cells(6 - num, 1) 、１行目の３列目に、４行目の１列目を代入
num=3
Cells(num, 3) = Cells(6 - num, 1) 、１行目の３列目に、３行目の１列目を代入
num=4
Cells(num, 3) = Cells(6 - num, 1) 、１行目の３列目に、２行目の１列目を代入
となっている、配列がおかしい。
0118VB厨房＠
NGNGnum=1
Cells(num, 3) = Cells(6 - num, 1) 、１行目の３列目に、５行目の１列目を代入
num=2
Cells(num, 3) = Cells(6 - num, 1) 、２行目の３列目に、４行目の１列目を代入
num=3
Cells(num, 3) = Cells(6 - num, 1) 、３行目の３列目に、３行目の１列目を代入
num=4
Cells(num, 3) = Cells(6 - num, 1) 、４行目の３列目に、２行目の１列目を代入
0119VB厨房＠
NGNG受け取った数字を判定して、PUSHかPOPするとしたら。
yourval = InputBox("データ格納の場合は1、データ取り出しの場合は2を入力してください。")
受け取った文字を
if yourval="1" then
処理
elseif yourval="2" then
処理
end if
とすればいいだけじゃないの？
0120デフォルトの名無しさん
NGNGｊｐｇの画像をｂｍｐに変換させたいのですが、
どうすればいいのでしょうか？
やさしく解説していただければと思います。
検索したのですが、よくわからなくて・・・
0121デフォルトの名無しさん
NGNGLoadPictureとSavePictureではいかんの？使い方はMSDN参照。
0122☆☆☆☆
NGNG３徹中です。目閉じたら寝ちゃいます。
クリスマスイヴあたりは
ロマンチックな神戸行って
ルミナリエとか行きたいなぁ
0123デフォルトの名無しさん
NGNG誤爆？
0124デフォルトの名無しさん
NGNG寂しいプログラマの夢じゃねーの？
疲れてるんだろ。寝かせておいてやろうぜ。
ｲｲ夢見ろよ……。
0125120
NGNGありがとうございます。調べてみます。
0126ハムはむ
NGNG見つからずに困っております。
御存知でしたら教えて頂けないでしょうか。
0127デフォルトの名無しさん
NGNGSetMonitorPowerState()かな？
詳しくはMSDN参照。
0128ハムはむ
NGNG済みません、素人なので意味が分かってません。
また、MSDNで参照してみましたが、SetMonitorは｢使用中のモニタタ
イプを設定する｣となっておりました。
見ているところが根本的に違っているのでしょうか？
0129デフォルトの名無しさん
NGNGモニタの電源を切るのはOS側がACPIを管理してやってるっぽいので
ソフト側からは無理なのではないかな､と。うろ覚えですが。
あと、127はネタです。sageてるし。
そんなAPIあったら使ってみたい。
0130デフォルトの名無しさん
NGNGモニタの電源コードにスイッチつけて、
シリアルでもパラレルでもいいからスイッチを操作する。
0131デフォルトの名無しさん
NGNGいっそ仕様を拡張してモニタの電源 "も" 切るようにしたらどうだろう。
0132デフォルトの名無しさん
NGNG＞画面の設定でモニタの能力を超える解像度設定を行えば、真っ黒になりますが
0133デフォルトの名無しさん
NGNGttp://www.vbvbvb.com/jp/gtips/0651/gSystemParametersInfoSpiSetPoweroffTimeout.html
0134デフォルトの名無しさん
NGNGttp://www.vbvbvb.com/jp/gtips/0651/gSystemParametersInfoSpiSetPoweroffActive.html
0135デフォルトの名無しさん
NGNGttp://www.vbvbvb.com/jp/gtips/0301/gSetSystemPowerState.html
0136デフォルトの名無しさん
NGNGTo turn off the monitor:
SendMessage(AnyForm.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2&)
Standby monitor:
SendMessage(AnyForm.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 1&)
To turn on the monitor:
SendMessage(AnyForm.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1&)
Where
Const WM_SYSCOMMAND = &H112
Const SC_MONITORPOWER= &HF170
0137デフォルトの名無しさん
NGNG取ってくるデータが以下のようにあったとします。
AA
BB
CC
DD
カレントがDDの時にMoveNextすると、EOFがTrueになりますが
CCからMoveNextして、DDを表示した時点でEOFをTrueにしたいのですが
方法が分かりません。そもそも無理なのでしょうか？
0138デフォルトの名無しさん
NGNG================================================================================
モニタの電源を切る（モニタ省電力に対応した環境の場合のみ）
================================================================================
---------以下フォームモジュールへ記述
Option Explicit
Private Sub Form_Load()
Timer1.Interval = 3000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
Call Y_PowerOffMonitor(Me.hWnd)
End Sub
---------以下標準モジュールへ記述
Option Explicit
'ウインドウにメッセージを送る
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_SYSCOMMAND = &H112&
Public Const SC_MONITORPOWER = &HF170&
Public Sub Y_PowerOffMonitor(hWnd As Long)
'************************************************************
'機能 : モニターの電源を切る
'************************************************************
Dim sw As Long
' sw = 1 '省電力モード
sw = 2 '電源を切る
Call SendMessage(hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal sw)
End Sub
0139デフォルトの名無しさん
NGNGその処理の必要性について詳細をキボンヌ。
どういうことを実現したいの？
0140デフォルトの名無しさん
NGNG処理前に SELECT COUNT(*) でレコード件数取得後、その件数分だけループすれば？
あえて提供されている方法を使わない意図は全く不明だが。
0141デフォルトの名無しさん
NGNGムリがどうかはともかく、EOFの使い方として間違っていると思います。
カレントレコードが最後のレコードかどうか調べるなら、
AbsolutePosition = RecordCount かを判定すればいいとかと。
ただし RecordCount はカーソルタイプによっては使用できないので要注意です
が。
0142137
NGNGAA
BB
CC
DD
CCからMoveNextし、DDを表示した時点で「次へ」ボタンの「Enabled = False」にしたいんです。
現状だとCCからMoveNextしてカレントがDDに移った時点では、「Enabled = True」なので
「次へ」ボタンが押せてしまいます。
カレントがDDの時に、「次へ」ボタンを押してやっとEOFになり
「Enabled = False」になるのですが、1タイミング遅いんです。
EOFで判定するのが間違いなのでしょうか。
0143デフォルトの名無しさん
NGNG了解。
データを取得してからもう一度MoveNextして、EOFで無ければそのまま。
EOFならボタンをEnable Falseする。
そのあとMovePreviousする。これで希望通りにはなる。
でも、非効率的な処理だしレコード開きっぱなしはよくないかも知れないので、
一度レコードの中身をすべてType型変数に格納してそれを表示するようにして、
最終データかどうかをメンバー変数に持たせるなり、レコード数を変数に保持しておいて
表示時にカウンタなどで判別するほうがいかも。
0144137
NGNGしかし、いきなりDDレコードが呼び出された時等に不具合がありましたので
>>141さんの「AbsolutePosition」で判定して「Enabled = False」に出来ました。
逆のMovePrevious場合も同じ考え方で出来ました。
ありがとうございました。
P.S. 143さんの「Type型変数に格納し～～」の部分なのですが
漏れには理解不能のため非効率な処理でいきました。
0145141
NGNG>141さんの「AbsolutePosition」で判定して「Enabled = False」に出来ました。
お役に立てて幸いです。
> P.S. 143さんの「Type型変数に格納し～～」の部分なのですが
> 漏れには理解不能のため非効率な処理でいきました。
ADO の recordset で処理するのではなく、ユーザー定義型の配列か何かに
すべて読み込んで、自前で処理しろということではないかと。
0146143
NGNGそのことです。
補足ありがとうございました。
0147デフォルトの名無しさん
NGNGお答えいただきありがとうございます。
上の方にＣＳＶファイルの中身を二次元配列に入れる方法はおかげでわかったのですが、
今度はCSVファイルのデータをコレクションのプロパティに格納する方法について
アドバイス頂けないでしょうか。何度もすみません（汗
日にち 終了 開始
４ ８ ２
７ 15 ６
10 13 11
・
・
・
↑こんな感じの行数未知・列数３のCSVファイル(Scedule.csv)のデータを…
Public Date As Integer '番号の値が入る
Public Start As Integer '開始の値が入る
Public Length As Integer '長さ（終了－開始＋１の値が入る）
↑のように作成したSceduleクラスの各プロパティに一行ずつ格納したいのです。
（１行目の「日にち」「終了」「開始」以外）
続きます
0148デフォルトの名無しさん
NGNGDim NewScedule As Scedule '新規作成した日程
Dim i As Integer '繰り返し処理用カウンタ変数
i = 1
Open "C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\Scedule.csv" For Input As #1
Do Until EOF(1)
'新規日程オブジェクト作成
Set NewScedule = New Scedule
'値をセット
Input #1, NewScedule.Date, ’この辺りの記述がわかりません。。
'コレクションへ新規日程を追加
Scedules.Add NewScedule
Loop
Close #1
↑このようにとりあえずコードを書いてみたのですが…
Scedules(0).Dateに４、
Scedules(0).Startに２、
Scedules(0).Lengthに7
Scedules(1).Dateに７、
Scedules(1).Startに６、
Scedules(1).Lengthに10…というようにCSVファイルの最後の行のデータまで
格納するにはどうすれば良いでしょうか。
長いうえに分かりにくくて済みませんが、どうか助言お願い致します。
0149”
NGNG文字「”」を参照するときはどう記述すればいいんでしたっけ？
if XXX = """" Then
でOK？
0150デフォルトの名無しさん
NGNGそのとーり。
0151”
NGNG■ このスレッドは過去ログ倉庫に格納されています