VBプログラマ質問スレ(6.0以前) Part39
888 ：デフォルトの名無しさん：04/12/09 22:09:58
>>885
いや、確かそうとも言い切れないケースがあったはす。
確か参照渡しの引数を一つ取る関数を括弧をつけて呼び出すと、
括弧をつけたことにより変数の参照ではなく値が渡されてしまい
期待するのと違う結果になる、みたいな話だと思ったが。。
VBに限らないけど、プログラミング言語ってちょっと触ってないと
どんどん忘れていくな。
いや、確かそうとも言い切れないケースがあったはす。
確か参照渡しの引数を一つ取る関数を括弧をつけて呼び出すと、
括弧をつけたことにより変数の参照ではなく値が渡されてしまい
期待するのと違う結果になる、みたいな話だと思ったが。。
VBに限らないけど、プログラミング言語ってちょっと触ってないと
どんどん忘れていくな。
889 ：デフォルトの名無しさん：04/12/09 22:33:40
>873
890 ：デフォルトの名無しさん：04/12/09 22:34:56
>873
ExcelのIF関数と同じと思えばいいのかな？
ExcelのIF関数と同じと思えばいいのかな？
891 ：デフォルトの名無しさん：04/12/09 23:54:49
括弧をつけない
MsgBox "hoge"
MsgBox "hoge", vbOkOnly
MsgBox ("hoge") ←───
MsgBox ("hoge"), (vbOkOnly)
括弧をつける
Call MsgBox("hoge")
n = MsgBox("hoge", vbYesNo)
n = MsgBox(("hoge"), (vbYesNo))
MsgBox "hoge"
MsgBox "hoge", vbOkOnly
MsgBox ("hoge") ←───
MsgBox ("hoge"), (vbOkOnly)
括弧をつける
Call MsgBox("hoge")
n = MsgBox("hoge", vbYesNo)
n = MsgBox(("hoge"), (vbYesNo))
892 ：デフォルトの名無しさん：04/12/10 01:51:08
>871
WHERE句の最初に必ず満たす条件を
つけとけば判定1回づつで済まない？
例：
strSQL = "SELECT * FROM TABLE"
strSQL = strSQL & " WHERE 1 = 1"
If A <> "" Then
strSQL = strSQL & " AND " & SQL条件文１
End If
If B <> "" Then
strSQL = strSQL & " AND " & SQL条件文２
End If
WHERE句の最初に必ず満たす条件を
つけとけば判定1回づつで済まない？
例：
strSQL = "SELECT * FROM TABLE"
strSQL = strSQL & " WHERE 1 = 1"
If A <> "" Then
strSQL = strSQL & " AND " & SQL条件文１
End If
If B <> "" Then
strSQL = strSQL & " AND " & SQL条件文２
End If
893 ：デフォルトの名無しさん：04/12/10 02:25:57
IIf はパフォーマンスが悪いのも問題だが、
IIf(x = 0, 0, 1 / x)
みたいな書き方ができなくて不便でもある。
IIf(x = 0, 0, 1 / x)
みたいな書き方ができなくて不便でもある。
894 ：デフォルトの名無しさん：04/12/10 07:19:53
>893さん
なんでできないの？
なんでできないの？
>>894
上で散々話題になってるじゃん。
IIf って結局ただの引数が３つの関数だから、
関数に値が渡されるときに x = 0 のときでも、1 / x まで評価されて
0 除算エラーになってしまう。
上で散々話題になってるじゃん。
IIf って結局ただの引数が３つの関数だから、
関数に値が渡されるときに x = 0 のときでも、1 / x まで評価されて
0 除算エラーになってしまう。
896 ：デフォルトの名無しさん：04/12/10 09:52:01
897 ：デフォルトの名無しさん：04/12/10 10:33:26
テキストボックスに入力したファイルパスが存在するか調べるにはどうしたらよいですか？
c:\test\test.txtのように入力したときとかです
c:\test\test.txtのように入力したときとかです
898 ：デフォルトの名無しさん：04/12/10 10:49:02
500とか600の値を時間としてh:nn:ssの形式で表示させていのですけど、
どうすればいいのでしょうか？
どうすればいいのでしょうか？
899 ：デフォルトの名無しさん：04/12/10 11:01:21
>>897
InstrRevで一番右の￥位置を取って、それより左をフォルダパスとして保持。
Dir関数で第二パラメータにvbDirectoryかなんか指定。
>>898
数値は何の値？秒数？文字列？（500は500秒？、5:00？）
InstrRevで一番右の￥位置を取って、それより左をフォルダパスとして保持。
Dir関数で第二パラメータにvbDirectoryかなんか指定。
>>898
数値は何の値？秒数？文字列？（500は500秒？、5:00？）
900 ：デフォルトの名無しさん：04/12/10 11:04:18
>>899
すいません。秒数です。
すいません。秒数です。
901 ：デフォルトの名無しさん：04/12/10 11:10:23
60*60で割った商がH、60で割った商がM、60で割った余りが秒。
902 ：デフォルトの名無しさん：04/12/10 11:18:10
>>901
ありがとうございます。
ありがとうございます。
903 ：デフォルトの名無しさん：04/12/10 11:46:15
904 ：デフォルトの名無しさん：04/12/10 14:27:36
VBコードを変換したいのですが正規表現で置換しようと
思っていますが妥当でしょうか？アドバイスよろしくお願いします
＜次の文字列は右のように変換する＞
MLdbdata(hDBProc, 1) -> rs1.Field(0).value
MLdbdata(hDBProc2, 10) -> rs2.Field(9).value
法則１hDBProcはrs1に読み替える
法則２hDBProc1,10の10は常に-1する
思っていますが妥当でしょうか？アドバイスよろしくお願いします
＜次の文字列は右のように変換する＞
MLdbdata(hDBProc, 1) -> rs1.Field(0).value
MLdbdata(hDBProc2, 10) -> rs2.Field(9).value
法則１hDBProcはrs1に読み替える
法則２hDBProc1,10の10は常に-1する
905 ：デフォルトの名無しさん：04/12/10 14:42:37
>>904
すでにVBの話じゃないよな？ 妥当？ 好きなようにやればいい。
すでにVBの話じゃないよな？ 妥当？ 好きなようにやればいい。
>905
わかった。ありがとう
秀丸板さがします
わかった。ありがとう
秀丸板さがします
907 ：デフォルトの名無しさん：04/12/10 21:13:07
>899
解雇
解雇
908 ：デフォルトの名無しさん：04/12/10 21:14:09
┐(´-｀)┌
909 ：デフォルトの名無しさん：04/12/11 09:31:22
マルチスレッドでグローバル変数の値を読んだり書いたりする際に
注意すべきことってありますか？
注意すべきことってありますか？
910 ：デフォルトの名無しさん：04/12/11 10:03:35
ADOである名前のテーブルが存在するかどうかはどうやってしらべるのでしょう？
SQL="Table Exist('NorthWind')"
conn.execute(SQL)
みたいなものだと予想してます
SQL="Table Exist('NorthWind')"
conn.execute(SQL)
みたいなものだと予想してます
911 ：デフォルトの名無しさん：04/12/11 11:50:22
>910
え？
え？
912 ：デフォルトの名無しさん：04/12/11 11:54:37
913 ：デフォルトの名無しさん：04/12/11 12:16:10
自己解決してたけどどーも
Const adSchemaTables = 20
rc = conn.openschema(adSchemaTables)
で、データベース内のいくつものテーブル名はコレクションとしてとりだされるから
rc("TABLE_NAME").valueをさらにFor EachとかDo whileで1個ずつとりだせた。
do until rc.eof
S+=rc("table_name").value
rc.movenext
loop
debug.print S
Const adSchemaTables = 20
rc = conn.openschema(adSchemaTables)
で、データベース内のいくつものテーブル名はコレクションとしてとりだされるから
rc("TABLE_NAME").valueをさらにFor EachとかDo whileで1個ずつとりだせた。
do until rc.eof
S+=rc("table_name").value
rc.movenext
loop
debug.print S
914 ：デフォルトの名無しさん：04/12/11 12:56:56
>913
さすが
さすが
915 ：デフォルトの名無しさん：04/12/11 13:35:07
>>909
VBのバージョンは？マルチスレッドの実現方法は？
VBのバージョンは？マルチスレッドの実現方法は？
916 ：デフォルトの名無しさん：04/12/11 13:45:32
>915
VB6.0で、実を言うとマルチスレッドと言うか、１つは
DLLからのコールバック関数で、もう1つはタイマーイベント
なんです。そもそもこれってマルチスレッドって言うんですかね。
VB6.0で、実を言うとマルチスレッドと言うか、１つは
DLLからのコールバック関数で、もう1つはタイマーイベント
なんです。そもそもこれってマルチスレッドって言うんですかね。
917 ：デフォルトの名無しさん：04/12/11 14:35:24
918 ：デフォルトの名無しさん：04/12/11 16:48:58
>>916
開発環境はOKで、コンパイルするとNGってパターンじゃない？
そもそもVB6は普通のマルチスレッドには対応してなかったと思う。
「動く時はある」だろうけど、やっちゃいけないことではないかと。
開発環境はOKで、コンパイルするとNGってパターンじゃない？
そもそもVB6は普通のマルチスレッドには対応してなかったと思う。
「動く時はある」だろうけど、やっちゃいけないことではないかと。
919 ：デフォルトの名無しさん：04/12/11 18:03:16
VBのマルチスレッド処理は昔のＶＢマガジンにある。（前世紀かも・・・。ｗ）
あと、ＰＣＤＮとかでサンプルあるかもしれん。
マルチスレッド、出来る出来ないは出来る。でも、わざわざＶＢでやらんほうがいい。
あと、ＰＣＤＮとかでサンプルあるかもしれん。
マルチスレッド、出来る出来ないは出来る。でも、わざわざＶＢでやらんほうがいい。
920 ：デフォルトの名無しさん：04/12/11 18:37:47
>919
タイマ使ったらそれだけでマルチスレッドではないの？
タイマ使ったらそれだけでマルチスレッドではないの？
921 ：デフォルトの名無しさん：04/12/11 19:58:48
>>920
だいぶ違うと思うぞ
だいぶ違うと思うぞ
922 ：デフォルトの名無しさん：04/12/11 20:05:23
>921
マジで。タイマーたくさん作ったらそれぞれ別スレッドで動いてると思ってた。
マジで。タイマーたくさん作ったらそれぞれ別スレッドで動いてると思ってた。
923 ：デフォルトの名無しさん：04/12/11 21:15:07
Windowsのメッセージについてきちんと勉強したほうが良いと思う。
それと、ＶＢのＤｏＥｖｅｎｔｓと、一般基礎知識としてのプロセスとスレッドの勉強。
それと、ＶＢのＤｏＥｖｅｎｔｓと、一般基礎知識としてのプロセスとスレッドの勉強。
924 ：デフォルトの名無しさん：04/12/12 04:51:06
>923
そかー。サンクス
そかー。サンクス
925 ：デフォルトの名無しさん：04/12/12 05:27:54
>>922
だから、スレッドのIDを表示させてみろって。
だから、スレッドのIDを表示させてみろって。
926 ：デフォルトの名無しさん：04/12/12 07:47:04
>925
どうやるの？
どうやるの？
927 ：デフォルトの名無しさん：04/12/12 08:12:07
928 ：デフォルトの名無しさん：04/12/12 09:51:26
>927
ありがとう。確かに一緒でした。
ありがとう。確かに一緒でした。
929 ：デフォルトの名無しさん：04/12/12 09:54:43
>927
DLLからのコールバックはスレッドIDが別でした。
というのもDLL内でスレッドを起動しているので当たり前なのですが・・・
というわけでやはりマルチスレッドなのですが、グローバル
変数を読み書きする際に注意する点はあるでしょうか。
DLLからのコールバックはスレッドIDが別でした。
というのもDLL内でスレッドを起動しているので当たり前なのですが・・・
というわけでやはりマルチスレッドなのですが、グローバル
変数を読み書きする際に注意する点はあるでしょうか。
930 ：デフォルトの名無しさん：04/12/12 11:12:59
931 ：デフォルトの名無しさん：04/12/12 11:20:27
>>929
マルチスレッドは、複数の処理が同時に進行する。
例えばグローバル変数を G、ローカル変数を L とするとき、
L=G
L=L+1
G=L
が２つのスレッドで同時に処理されたとしたら、Gの最終的な値は保証できない。
(２人の人間に上記の処理をさせたことを想像してみるといい)
簡単な指針としては、グローバル変数の値を変更するときは
InterlockedIncrement 等の Interlocked 系 API を使う。
処理が複雑で、これらの API を適用できないときは
処理の前後を EnterCriticalSection と LeaveCriticalSection で囲む。
パフォーマンス低下やデッドロックにならないよう使い方に注意すること。
マルチスレッドは、複数の処理が同時に進行する。
例えばグローバル変数を G、ローカル変数を L とするとき、
L=G
L=L+1
G=L
が２つのスレッドで同時に処理されたとしたら、Gの最終的な値は保証できない。
(２人の人間に上記の処理をさせたことを想像してみるといい)
簡単な指針としては、グローバル変数の値を変更するときは
InterlockedIncrement 等の Interlocked 系 API を使う。
処理が複雑で、これらの API を適用できないときは
処理の前後を EnterCriticalSection と LeaveCriticalSection で囲む。
パフォーマンス低下やデッドロックにならないよう使い方に注意すること。
それにしても、VBでやることじゃない気がする。
933 ：デフォルトの名無しさん：04/12/12 11:27:05
>931
ありがとうございます。InterlockedExchangeでうまくできそうです。
>932
色々事情がありまして・・・
とにかくありがとうございました。
ありがとうございます。InterlockedExchangeでうまくできそうです。
>932
色々事情がありまして・・・
とにかくありがとうございました。
934 ：デフォルトの名無しさん：04/12/12 14:01:03
31×３１の配列idata(i,j)にあるデータをランダムアクセスで
書き込み、読み込みをしたいのですが、これで書き込みしたのを読み込みできません。なぜでしょうか？
Sub failsave()
Open "c:\back.bin" For Random As #1 Len = LenB(idata(1, 1))
For i = 0 To 30
For j = 0 To 30
k = 1
temp = idata(i, j)
Put #1, k, temp
k = k + 1
Next j
Next i
Close #1
End Sub
書き込み、読み込みをしたいのですが、これで書き込みしたのを読み込みできません。なぜでしょうか？
Sub failsave()
Open "c:\back.bin" For Random As #1 Len = LenB(idata(1, 1))
For i = 0 To 30
For j = 0 To 30
k = 1
temp = idata(i, j)
Put #1, k, temp
k = k + 1
Next j
Next i
Close #1
End Sub
935 ：デフォルトの名無しさん：04/12/12 14:07:08
936 ：デフォルトの名無しさん：04/12/12 14:49:24
演算子\と/はどう違う？
>>934
読み込みが失敗してるなら、
読み込み部分も提示しなきゃどうしようもねぇだろ。
エラーがでてるのかどうなのかも書いてないしな。
っていうか、Option Explicit入れてエラーが出ないコードにしてから
出直して来いって感じだな。（たぶんその辺じゃないかと思うけどさ）
片手落ちっていうか９割落ちだな。必要な情報が１割もねぇ。
読み込みが失敗してるなら、
読み込み部分も提示しなきゃどうしようもねぇだろ。
エラーがでてるのかどうなのかも書いてないしな。
っていうか、Option Explicit入れてエラーが出ないコードにしてから
出直して来いって感じだな。（たぶんその辺じゃないかと思うけどさ）
片手落ちっていうか９割落ちだな。必要な情報が１割もねぇ。