VBプログラマ質問スレ（6.0以前） Part48 1 ：
デフォルトの名無しさん ：
2006/05/04(木) 02:55:26 2 ：
デフォルトの名無しさん ：2006/05/04(木) 02:56:46
3 ：
デフォルトの名無しさん ：2006/05/04(木) 02:57:19
4 ：
デフォルトの名無しさん ：2006/05/04(木) 02:58:34
http://www.microsoft.com/japan/msdn/vbasic/support/vistasupport.aspx Visual Basic チームは、Visual Basic 6.0 アプリケーションが WindowsR Vista? でも
"そのまま" 動作する互換性を提供することを表明します。」
Visual Basic チームは、Windows XP で実行できる Visual Basic 6.0 アプリケーションが
Windows Vista でも実行できるようにすることを目標としています。
また、Windows Vista で実行できる Visual Basic 6.0 の開発環境を提供するための取り組みも行っています。
このドキュメントで説明するように、Visual Basic 6.0 ランタイムは、Windows Vista のライフサイクルをとおして
サポートされます (メインストリーム サポートが 5 年、延長サポートが 5 年の合計 10 年になります)。
マイクロソフト プロダクト サポート ライフサイクルの詳細については、
http://support.microsoft.com/gp/lifepolicy (英語) を参照してください。
マイクロソフトでは、ユーザーが Windows Vista で Visual Basic 6.0 アプリケーションを実行できるようにするため、
Windows Vista に Visual Basic 6.0 ランタイムの主要コンポーネントを同梱する予定です。
Visual Basic 6.0 ランタイムを使用するように記述されたアプリケーションが Windows XP と Windows Vista の両方で
同様に動作する互換性を確保するため、一連のアプリケーションを使用してテストを行いました。
Visual Basic 6.0 IDE は、延長サポートの一環として、2008 年 3 月まで Windows Vista でサポートされます。
Windows Vista チームと Visual Basic チームでは、Windows Vista で Visual Basic 6.0 IDE のテストを行い、
IDE が以前のオペレーティング システムと同様に機能するようにしています。
乙。
前スレで遅いと叩かれていたけど、VC厨は比較して言ってるのか？
結局前スレの最後のアレ、何だったんだ。
>>10 VC++覚えたばかりの連休厨房でしょ
まあ、いずれにせよ
> 四．荒らしは相手しない。
このスレも自分が見えてない奴が多いなあ。
14 ：
デフォルトの名無しさん ：2006/05/04(木) 12:01:33
VBの凄いところはIDEだと思う。
VBしか使えないから固執してる図星野郎。
10倍も20倍も速いVC++で組めなくても、食っていければいいや。
>>16 その考え方は正しいすな。
目的を達成できる安くて早い手段を採用すればよい。
サンデーｐな漏れもVBしか使えんけど目的のものが作れればそれでいいや
そうだね。
>>20 今から敢えてVBを選択する意味はないです。
DirectX使いたいなら素直にunmanagedなVC++いっとけ。
>>20 はじめはともかく最終的にはVBではキツいでしょう。
25 ：
デフォルトの名無しさん ：2006/05/04(木) 12:45:41
>>25 だからこそ一発目にトリッキーな言語を交ぜるのは推奨しないす。
>>23 まあ、VB6でも使えることは使えるけどね ＞DirectX
このスレでこんなこと言うのもなんだが、
3Dゲームで画面描画は全部DirectX使うんなら
あえてVB6を使う利点はないと思うよ。
29 ：
デフォルトの名無しさん ：2006/05/04(木) 12:50:12
>>26 でも、ピッチの広い階段は大変だぞ。
入門だからまずアプリが作れたという満足感とか楽しさを進める
かつてMSX-BASICを楽しんでいた中学生の頃、
でも、スプライト衝突判定で、
おっさん、おっさん、帰ってこい。
どのおっさんを呼び出してるの？
35 ：
デフォルトの名無しさん ：2006/05/04(木) 14:55:50
今はC#使ってるけど、ぶっちゃけクラスはVBAで覚えた。
Delphiっていうか某ランド系はDirectXとの相性が悪いって聞いた事あるな
そういや、VisualStudio6.0ってまだ売ってるの？
>>38 デッドストックがどこかにある程度だろ。2、3代前の開発環境だろ
＞.NetになってVB使う意味は無くなっちまったよ。
これは同意。
ＶＢ可愛いよＶＢ
.Netってそんなにいいの？
>41
44 ：
38 ：2006/05/05(金) 00:11:49
>>43 ASP.NETでな。
とりあえず、イミディエイトだけでも少しはましにしないと
6.0以降はeclipseにも及ばんなー。
VCでしか物作らないMS様はそんな事きにしませんか。
>43
FunctionやSubプロシージャのアドレスをＶＢのデバッガで調べ、EXEを作りVidualstadioのC++のデバッガで使いたいです。
>>47 > しかしAddressOf演算子はDLLの引き数にしか使えないようです。
DLL の引数、ではなく、関数の引数、ではなかったか？
ダミーの関数をつくってその引数にすればよかったと記憶している。
違ったらごめん。
50 ：
デフォルトの名無しさん ：2006/05/08(月) 20:05:43
VB6.0 SP3を使っています。
53 ：
47 ：2006/05/08(月) 22:02:35
>>48 ,49
原因がわかりました。
アドレスを得ようとした関数がクラスモジュールにあると駄目なようです。
Basファイルにある関数のアドレスなら取れました。
当初の目的から逸れますが、デバック関数をBASに作り、
目的の関数の前後でコイツを呼び出して何とかしようと考えています。
C++のデバッガ使うなら、VBでシンボリックデバッグ情報を出力しろよ。
55 ：
デフォルトの名無しさん ：2006/05/09(火) 15:21:09
>>53 クラスをインスタンス化して無いとか言う落ちじゃないのか？
56 ：
デフォルトの名無しさん ：2006/05/09(火) 15:45:03
そろそろ時期OSも出る頃だし次の案件からVB6をやめてVS2005にしようか悩んでいる。
お前には無理だ
>>56 Ｖｉｓｔａはまた遅れるらしいよ。
また、Ｖｉｓｔａ上でＶＢ６アプリは動く様にするらしい。
まぁそんな事しなくても、ＶｉｒｔｕａｌＰＣ上の２０００で動かせばいけど。
59 ：
デフォルトの名無しさん ：2006/05/09(火) 16:29:27
>>57 やっぱそうだよな。
それ以前に相談したらそんな暇あるならさっさと案件進めろと言われた・・・
>>58 安心した。
60 ：
デフォルトの名無しさん ：2006/05/09(火) 18:21:14
ASPだけど、VBScriptだからこっちで質問していいのかな・・
開発環境
サーバ：Windows2003
クライアント：WindowsXP
IIS4.0
VBランタイム6
目的
Access、またはExcelで帳票を作成して印刷したい。
質問
Set objAccess = Server.CreateObject("Access.Application")
または、
Set objExcel = Server.CreateObject("Excel.Application")
でエラーが起きてしまい、なぜかCreateObjectでAccessとExcelが使えません。
ちなみに"Scripting.FileSystemObject"は使用できました。
どうすればエラーが起きないようにできるのでしょうか。
エラー内容
-2147024891 006~ASP 0178~Server.CreateObject アクセス エラー~許可を確認中に
Server.CreateObject の呼び出しに失敗しました。このオブジェクトへのアクセスは拒否されます。
自分で調べた結果
・VBランタイムのアクセス許可→許可してもだめでした
ttp://support.microsoft.com/kb/278013/ja ・アウトプロセスのアクセス許可→解決方法通りにできない
ttp://support.microsoft.com/kb/198432/ja よろしくお願いします
61 ：
デフォルトの名無しさん ：2006/05/09(火) 18:43:50
とりあえず、ASPからExcelやAccessは操作するなって
62 ：
60 ：2006/05/09(火) 22:11:34
>62
どうせ設定が悪いだけなんだろうけど、
>>64 「設定が悪い」のではなく、そんな使い方は
ＭＳの「想定の範囲外」なので、
原因究明なんて無意味＆無駄。
>>59 また荒れそうな話するけど
「そんな暇あるならさっさと」っていうのはこの件に関してはやばいな。
将来確実に直面する問題を先送りにすればするほどあとで困るのに。
（先取りしすぎてもリスクがあるが、今はそう言う時期でもないだろう）
VB6の次はVB.NETにする予定があるなら、出来るだけ早いうちから
ちょっとずつ移行しておいたほうがいいよ。「お前には無理」かどうかの
調査にもなるし。
けっきょく仕事はVB.NETじゃなくてJavaに移行したとかいうときでも
完全に無駄にはならんだろう。
あとVB6自体はVistaで動いても、他社製のocxなんか使うならそっちの対応も必要だ。
>>58 の最後の提案でいいようなきも駿河ｗ
68 ：
デフォルトの名無しさん ：2006/05/10(水) 10:50:15
>>67 VMWareだと、旧OSの為のDisplayドライバやチップセットドライバが必要になるけどそれで良いのか？
VirtualPCだと440BXにS3-Trio64Vだから結構古いOSでもドライバが用意されてる
>>68 そうなんだ。じゃぁＶＰＣでいいや。
しかし「440BXにS3-Trio64V」て、まさに昔使ってたＰＣだ。ｗ
VBプログラマ質問スレ（6.0以前） Part48
http://pc8.2ch.net/test/read.cgi/tech/1146678926/ から移動してきました。
あるフォルダのサイズを得る為に、ヘルプを参考に
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("D:\")
MsgBox f.size
の様な VBS を書いて実行すると、「800A0046：書き込み出来ません」
のエラーが出てしまいます。
ディレクトリのサイズを参照しているだけなのに、書き込めないとは
どういう事なのでしょうか・・・？
検索すると、権限の問題らしいのですが、Administrator で実行
していますし・・・
71 ：
デフォルトの名無しさん ：2006/05/11(木) 21:01:44
>>70 どの部分でエラーが出てるのかが分からないけれど、
Dim fso as Object
Dim f as Object
にすればいいのかな？
>>70 どこから移動してきたってぇ？？？
それはさておき、そのスクリプトは
どこから起動した？
ブラウザ？それとシェル？
>>70 "D:\"はフォルダじゃなくてドライブな気がするが
>>70 ルートはフォルダじゃないから
ドライブの容量見たければ
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
msgbox fso.GetDrive("D").TotalSize
75 ：
デフォルトの名無しさん ：2006/05/11(木) 22:52:18
大量のファイルを変換して保存したいんですが、変換ソフトがいっこずつしか変換できないんで終わる気がしないです
>>71 エラーは「MsgBox f.size」の部分で出ます。
で、VBS ファイルとして実行してるので、型宣言はないのです。
>>72 ＶＢＳファイルとして、Ｅｘｅとかと同じ様に実行しました。
>>73 ルートフォルダ配下の全ファイルの容量、のつもりでした。
>>74 サンプルなのであのコードでしたが、実際は、GetFolder の引数は可変になります。
色々なサブディレクトリ（フォルダ）の容量を取得したかったのです。
77 ：
デフォルトの名無しさん ：2006/05/11(木) 23:19:34
>>77 System Volume Information って全部にあるな・・・
79 ：
デフォルトの名無しさん ：2006/05/12(金) 00:41:32
「書き込みできません」ってなんだっけなぁ？
「System Volume Information」フォルダがあるドライブ=ファイルシステムがNTFS
>>81 ＦＡＴ１６にもＦＡＴ３２にもあるんだけど。
83 ：
デフォルトの名無しさん ：2006/05/12(金) 10:49:51
「System Volume Information」フォルダがあるドライブ=NTFSを使うOSでマウントしているorしていたことがある
IE6でマウスで選択した文字列を検索できるようにしたいのですが、
keyword=の<book>をeuc-jpで渡す方法がわかりません。
どこにどのコードを追加すればよいでしょうか？
strSelText = objFrmDoc.selection.createRange().text
strArgments = "" & CHR(34) & "
https://www.library.shinjuku.tokyo.jp/opac/cgi-bin/sellist? type=0&allc=&page=1&keyword=<book>&sentaku=and&title=&sentaku=and&author=&sentaku=or
&publish=&sentaku=or&isbn=&pubydate1=&pubydate3=&bunrui=&syubetu=all&kan=all&media=all
&count=10&order=publish&before=select&authorid=&opacfile=&titleid=&i1=&i2=" & CHR(34) & ""
strArgments = Replace(strArgments, "<book>", strSelText)
objWshShell.Run CHR(34) & EXE_PATH & CHR(34) & " " & strArgments, 1, 0
85 ：
デフォルトの名無しさん ：2006/05/12(金) 20:32:43
>>75 マウスは動かせないけど、こんなのを応用してみてはどう？
http://www.microsoft.com/japan/msdn/columns/scripting/scripting061499.asp '==========================================================================
'
'
' NAME: Calculater.vbs
'
' COMMENT: calc.exe にキーストロークを送る
'
'==========================================================================
Dim WshSHell
set WshShell = CreateObject("WScript.Shell")
WshShell.Run("calc")
WScript.Sleep(100)
WshShell.AppActivate("Calculator")
WScript.Sleep(100)
WshShell.SendKeys("1{+}")
WScript.Sleep(500)
WshShell.SendKeys("2")
WScript.Sleep(500)
WshShell.SendKeys("~")
WScript.Sleep(500)
WshShell.SendKeys("*3")
WScript.Sleep(500)
WshShell.SendKeys("~")
WScript.Sleep(2500)
素直にバッチファイルを使えばいいだろ。
ちょいと質問
>>87 意味不明。なんか頭の悪い質問だな。
マウスによる操作とキーボードのどっちが効率がよいかは
「何をするか」によるだろうに。
89 ：
87 ：2006/05/13(土) 13:03:13
>>リスト構造
>>87 どんな状態が「効率が良い」と思ってるのか。
コレクションだろうがリンクリストだろうが、
アルゴリズム次第でどうとでもなるし。
使わないコンポーネントや参照設定にチェックを入れている場合、
>>82 その場合、削除が可能なはず。
NTFSドライブに存在するSVIフォルダは削除不可能、閲覧不可能なただのゴミ。
94 ：
デフォルトの名無しさん ：2006/05/14(日) 05:23:26
最近の計測機器を制御するソフトをみてみると
簡単だから
>>94 同じ機能のソフトを、生ＣとＶＢとＶＣ＋＋とＪａｖａとアセンブラで書いてみやぁ。
本当はそういう分野にはVBは向いてないんだけどね。
>>97 いや当然ＤＬＬと組み合わせてやるんだよ。
__asm { } とかでＣの中に機械語も直接書けるから、
バンバンＩｎ／ＯｕｔするＤＬＬ書いて、ＶＢから
コールしてる。
すいません、わかる方いればぜひ教えていただきたいのですが、
>>100 痛い人だなあ。。
アセンブラ使おうが何使おうが、通常のユーザーモードで動作するアプリが
勝手にIOにアクセスなんてできないんだよ。
Winに限らずマルチタスクOSとはそういうもの。
っていうか、IOにアクセス可能かどうかなんて話はしてないし。
VBが制御に向かない理由の一つとして、ワーカースレッドが使えないと言ってるだけ。
>>101 Win32 API を使う。SetPriorityClass() かな。
>>102 お前、何も分かってないな。
まぁいいけど。
105 ：
デフォルトの名無しさん ：2006/05/14(日) 23:09:56
ソースで、シングルステップで動作を確認して、
あのさーここは学研の『ムー』の読者投稿欄じゃないよ。
とりあえずアサーションなりStopなり使って
>>105 「A=1にはめったに行かない」じゃなくて
「B=B+1にはめったに行かない」だろうが。
日本語もまもとに書けないからバグるんだよ。
VBAで、MsgBoxで選択範囲の列数・行数を返すやり方すらわからない自分はVB向いてないですか？
エスパー厨は無視して
>>110 エスパー厨って失礼な奴だな。
あのねえ、そうやって質問者を甘やかすのは本人のためはもちろん
スレの利用者全体の利益に反すると思うぞ。
少なくとも回答者に千里眼的能力を要求するような質問を
許容すべきではないと思うがね。
109です、すいませんでした。
113 ：
107 ：2006/05/15(月) 01:58:09
113の御方
116 ：
デフォルトの名無しさん ：2006/05/15(月) 17:43:17
117 ：
デフォルトの名無しさん ：2006/05/15(月) 22:32:35
VB2005で作ったものをVB6.0で編集することできるんでしょうか？
そんな餌（
119 ：
デフォルトの名無しさん ：2006/05/15(月) 23:05:51
本気です。学校で作ったものを編集しようと思ったんですけど
やってみればわかるだろ
OSはXP、VB６を使ってます。
まあ間抜けな質問だとは思うが矛盾はしてないと思うよw
124 ：
119 ：2006/05/15(月) 23:43:45
なんどもすいません。
そんな餌（
>>124 マジレスするとVB6とVB2005ではバージョンが違うからファイルの内容もコードも全部変わっちゃうから無理。
バックアップしてある書き換え前のやつから掘り起こすしかない。なかったら諦める。バックアップ取らないお前が悪い
バックアップも何も、ウィザードはオリジナルのソースを
VB6(SP6)でVB4ランタイムを使用したプロジェクトを修正中なのですが、
>>130 SSPANELって、ＶＢ６には添付されてないんじゃないっけ？
今ＶＢ６を起動出来ない環境なので確かめられないけど。
ＭＳのサイト見てみ。
別のに置き換えるしかないかと。
132 ：
デフォルトの名無しさん ：2006/05/17(水) 11:54:17
開発ライセンスと実行時ライセンスは別だったような。
ＳＳ系は、とにかくバグだらけで、滅茶苦茶評判が悪かった様な。
134 ：
デフォルトの名無しさん ：2006/05/17(水) 22:26:06
フォルダに随時更新されてくる画像を読み込んで画面に表示させるにはどうすればいい？
>>134 FindFirstChangeNotification
137 ：
130 ：2006/05/18(木) 10:07:57
レスどうもです。
>>131-132 それか！
やっぱり、CDに入ってるのと、配布されてるランタイムは別物なんですね。
先方から、「エラーが出たけどこれ入れたら直った」って言われたから
なんで動かないのか悪戦苦闘して状況悪化してました。
# 只、むこうはそれで問題なく開発できてるんだよな…
リドミにはCDには入ってるようなことが書いてあったけど、
其れらしいものがみあたらないので
先方に別物に置き換えて良いか確認します。
あ、SPREADの6.0を入れてるけどそれは関係ないですかね
>>133 其れ聞くとなおさら乗り換えた方がいい気がしてきた
あるIPアドレスのMACアドレスを取得するのはどの様にすれば出来ますか？
>>130 こういう人って何考えてるのかな。どっか心を病んでるとしか思えん。
俺はVB4からのコンバートなんて全くやったことも無いが、
MSDNライブラリで"sspanel"で検索する手間さえ惜しいのか。
死んだ方がいいと思うよ。
141 ：
デフォルトの名無しさん ：2006/05/18(木) 13:01:14
>>139 こういう人って何考えてるのかな。どっか心を病んでるとしか思えん。
142 ：
デフォルトの名無しさん ：2006/05/18(木) 13:45:45
以下のようなコードで、DriveListBoxを使用して、DirListBoxに設定しています。
143 ：
130 ：2006/05/18(木) 13:46:08
>>139 申し訳ありません。
MSDNは勿論参照いたしましたが、
それで解決できなかったので質問させていただきました。
別所ではネット上のランタイム導入等で動作している(らしい)ので
なんとかならないか模索している次第です。
vb6しかやったことないですけど
>>140 どう解決したかを書き込むと、同じ事で悩む、
これからここを見る人の役に立つんだが？
>>142 SetErrorMode API とか。
147 ：
デフォルトの名無しさん ：2006/05/18(木) 15:01:07
>>144 >>146 1行目と2行目を入れ替えたら直りました。
でも、ちょっと驚きです。
ありがとうございました。
>>147 自分のアホさ加減に驚いたのか？
そうじゃないなら、On Errorのヘルプくらい見れ
こういうことがすぐわかるレベルになるには何年もかかるのでしょうか
>>150 普通は、生まれて初めてヘルプ読んだその時に分かる。
152 ：
130 ：2006/05/18(木) 16:09:39
何度もすいません。
>>130 の表記に問題があるようなので再度疑問点を記載させていただきます。
VB4の機能(SSPANEL等)を利用したVB6プロジェクトを編集する際
ネット上で配布されているTHREED32.ocxを含むパッケージをインストールし
コンポーネントの追加から参照を行いましたが
フォームを表示させようとするとライセンスエラーが表示されます。
先方でも同じ現象が発生しましたが、
同様の方法で回避できたそうです。
ネット上で配布されているTHREED32.ocxは
開発環境では使用できないのでしょうか？
他にも何か必要なファイルが存在するのでしょうか？
また、VS6ではCD内には収録されていないのでしょうか？
>>152 ＣＤなんか自分で中身見ればいいじゃん。
154 ：
130 ：2006/05/18(木) 17:18:28
リドミの中にあるフォルダがは存在しないかったので、
>>146 すいませんおっしゃる通りです・・・ SendARP ってので出来るみたいです。
>>152 君本当に病気でしょ？
だからそんなもんMSDNライブラリに書いてあるつーの。
こんなとこにツラツラ書いてる間になんでMSDNライブラリ開いて検索する気にならんの？
158 ：
わけあってVB4を使ってる人 ：2006/05/18(木) 19:47:39
記入された文字を保存しておいて次回起動するときに
起動ってなんだ？PCが？OSが？ソフトが？見れるって？なにがやりたいんだ？
160 ：
わけあってVB4を使ってる人 ：2006/05/18(木) 19:56:18
すいません
記入された文字を保存しておいて次回起動するときに見せるプログラム書け
162 ：
わけあってVB4を使ってる人 ：2006/05/18(木) 20:08:47
保存の仕方がわからないんです
古本屋でもまわって入門書買ってきたら？
>>158 用途を満たすか判らんけど、簡単なのはINIファイルかなぁ？
165 ：
デフォルトの名無しさん ：2006/05/19(金) 00:51:01
回文(あいうえおえういあ)ﾌﾟﾛｸﾞﾗﾑを
回文か。
167 ：
デフォルトの名無しさん ：2006/05/19(金) 02:28:54
ああ、すみません。Reverse関数でした。
読め。ともかく書いた対角化求めよ！
>>165 Dim i As Integer
Dim s As String
s = ""
For i = 0 To 8
s = s & Chr$(&H82A0 + ((i And 7) + CInt(CBool(i And 4)) * 2 * (i And 3)) * 2)
Next i
これでとりあえず ｓ に「あいうえおえういあ」が入る
170 ：
130 ：2006/05/19(金) 11:23:04
CD内のファイルを発見いたしました。
リードミーに書かれている手順に従ってレジストリの登録を行ったのですが
相変わらず参照が出来ません。
試しにオブジェクトを挿入してみたところ
実行時エラー713が出ます。
レジストリの登録が正常に出来ていないのでしょうか。
何度かやってみましたが駄目でした
>>154 Disk3に入っていました。
Disk2までは確認したのですが3の存在に気付いておりませんでした。
>>152 MSDNに記載されている情報は一通り参照したけれども、
状態が解決しないので質問させていただいています。
鬱陶しいのは重々承知しておりますが、先方にも匙を投げられて
頼れる所が無かったので。
171 ：
130 ：2006/05/19(金) 11:34:11
直接、手動でOCXのレジストリ登録作業を行った所、認識されました
172 ：
165 ：2006/05/19(金) 14:32:00
>>169 ありがとうございます。
InputBoxに書いた文字を回文表示したい場合、
どうすればよろしいんでしょうか？
何度もすみません。。
>>172 Dim i As Integer
Text2.Text = Text1.Text
For i = 1 To Len(Text1.Text) - 1
Text2.Text = Text2.Text + Mid$(Text1.Text, Len(Text1.Text) - i, 1)
Next i
174 ：
デフォルトの名無しさん ：2006/05/19(金) 16:28:04
アクティブウィンドウ(自フォーム以外)の位置とサイズを取得する方法､
176 ：
175 ：2006/05/19(金) 16:35:18
>>174 アクティブなのでいいのなら GetForegroundWindow で十分だな
178 ：
172 ：2006/05/19(金) 16:52:14
>>173 ありがとうございます。
重ねてすみません。
入力した文字が1回のクリックで
MsgBoxに全て表示できるようにするには
どうすればいいのでしょうか。
今後の勉強のためにも、
何故そうなったかという解説もお願いします。
>>178 が何を言いたいのかわからない俺は文盲で良いや。
180 ：
173 ：2006/05/19(金) 17:12:37
181 ：
173 ：2006/05/19(金) 17:46:15
>>179 教わった方法だと1つのMsgBoxに
1文字ずつしか表示されないんです。
これを1つのMsgBoxに1つの文(回文)
となるようにしたいんです。
>>180 本気でわかってないんです。
はぁぁ、ごめんなさい。。
>>181 (ﾟДﾟ)ﾊｧ?
forを抜けたところでMsgBox Text2.Text で出来るでしょ？
VB6にはsprintfないの？
VB6を使用しているのですが、データを保存する
↑日本語でおｋ
関数に表と裏があることをどこで知ったんだ
190 ：
174 ：2006/05/20(土) 05:35:26
>>175-177 どうもありがとう。
とりあえずFindWindowは条件的に使えないけど
GetForegroundWindowとSetWindowPos､
そしてSetWindowPosを調べてて見つかったGetWindowRectで
取得も変更も出来ました。
6.0を使用していますが、VBで指定アドレスのメモリ参照は
>>191 っReadProcessMemory API
>>192 そちらをググって見たらイロイロ出てきました。
いまから調べてみます。
ありがとうございました。
194 ：
184 ：2006/05/20(土) 22:25:35
sprintf("%04x%04x%04x" ,a ,b, c)
>>194 16進数に変換するのが目的なら、Hex。ただし、頭の0はつかない。
197 ：
184 ：2006/05/20(土) 22:59:31
頭の０は簡単につけたいところなのですが。
>>197 そだね。
Right("000" & Hex(a), 4) & ...
>>194 頭を捻る必要は全くない。
>>195 ん？
よく意味が分からん。
どういう事？
ＪａｖａＶＭって何だ？
200 ：
デフォルトの名無しさん ：2006/05/20(土) 23:53:36
>>195 blogは、本当なのか？それならそれでいいけど
IDEは今の感じがいいな～
eclipseのプラグインとして動くようになったらデバッグとかが面倒くさいなあ～
すまぬ既レスだった
WebBrowserコントロールについての質問です。
ちょっと前にその手の話題挙がってたね。
>>203 素直にWinsockでプロトコル組んだ方が早い思う。
読んだデータをTempファイルに書いてローカルで表示させればOK。
NavigateのHeadersに書いてはどうか
208 ：
203 ：2006/05/21(日) 20:29:18
>>207 出来ました。どうもありがとうございます。
いきなり｢出来ない。｣と言われて諦め気味だったけど
しばらく様子見ていて良かった。
ここでの｢出来ない｣｢無理｣｢不可能｣は
ここでの｢出来ない｣｢無理｣｢不可能｣は、
いや、
>>209 が正しい
無知で頭悪い癖に偉そうに人様に意見だけ垂れたい奴がいるんだよw
ところで、ＶＢ．ＮＥＴなんていらないよなぁ。
それはないw
VB.NET いらね。
P-CODEをILに変換しよう！
> ｢そんな事はＶＢではやらない方がいい。別の方法を見つけろ｣
ガキの自己弁護に何をむきになってレスしてるのかね。
220 ：
デフォルトの名無しさん ：2006/05/23(火) 09:21:38
>>216 あんたも視野が狭いね。
VBで出来ない、すべきでないことを勧めるのはおかしいでしょ？
APIコールばっかりのプログラムとか、コールバック関数を使うとか。
そういうの使いたければ、こんなところで聞くレベルではないぐらいになるべきじゃないの？
自分で情報に辿り着いて、その上で判断できない奴はさ。
VBでやるっていう前提が、単なる開発環境としてのVBなのか、VBという言語開発環境の通常使用の範囲内なのか。
他の言語なら簡単にできることを、わざわざVBでやるっていうのは、まあ選択肢のない開発下っ端にはしょうがないんだろうね。ｗ
> APIコールばっかりのプログラムとか、コールバック関数を使うとか。
ＶＢではちょっと面倒だな、って部分はＤＬＬにすればいいだけじゃん。
223 ：
デフォルトの名無しさん ：2006/05/23(火) 10:31:01
えっ
220の書き込みで､狭すぎる視野を持つ人から見ると
>>220 世間には職業プログラマと暇な学生しかいないと思ってるのかな。
本業の傍らでプログラムを書いて業務をまわしている人が実際は結構多いと思うぞ。
そういう人たちに、いろんな言語を学べとか、過去の資産を捨てろなんて
そんな「暇な」時間は無い訳だよ。
仕様をころころ変えるMSやそれについていってるプログラマはある意味「暇」を
もてあましているともいえるぞ。
これら「兼業」プログラマにとってとっつきやすいからVBが伸びてきたと思う。
みんなが言いたいことは
>>225 本来は選ばれたプロフェッショナルのみが行えるべき行為を素人が中途半端なレベルでつく（ｒ
228 ：
デフォルトの名無しさん ：2006/05/24(水) 09:24:50
>>226 電波な質問とか、悩み相談もうざいけどね。
質問の体を成していないのとか。
229 ：
デフォルトの名無しさん ：2006/05/24(水) 09:56:23
WebBrowserでボタン押したり、ラジオボタン押したりするにはどうしたらいい？
DOMを極める
232 ：
デフォルトの名無しさん ：2006/05/24(水) 11:38:02
VB初心者です。
234 ：
デフォルトの名無しさん ：2006/05/24(水) 11:59:44
>>233 できました！ありがとうございます。。。
>>229 テキストでもボタンでもラジオボタンでもgetElementsByNameで取得できるはず。
ボタンはCliｃｋでOK。ラジオボタンはシラネ。
236 ：
デフォルトの名無しさん ：2006/05/24(水) 18:49:39
229です
237 ：
助けて ：2006/05/24(水) 21:39:30
リッチテキストボックスの行間を狭くしたいのですがどなたか分かる方教えてください。
ウス目で
VB6.0を仕事で使っていたのですが、
何で今更、ADOでもOLE DBでもなく、ODBCなわけ？
書き方わるかったですね。ADOなんです。
>>243 ヒント：役立ち度は
MSDN、google＞＞＞＞超えられない壁＞＞＞＞本
質問です。
どうやって解決したかを書かない事故厨はもう来るな
248 ：
デフォルトの名無しさん ：2006/05/25(木) 15:22:28
環境WinXP,VB6.0Pro
249 ：
173 ：2006/05/25(木) 15:39:50
250 ：
デフォルトの名無しさん ：2006/05/25(木) 15:42:14
>>243 トンです。
本買えました。大体思っていた内容で助かりました。
252 ：
デフォルトの名無しさん ：2006/05/25(木) 22:30:17
はじめまして。春からVBをはじめた大学生です。
関数渡す値が引数。
254 ：
デフォルトの名無しさん ：2006/05/25(木) 22:44:37
お手数をおかけしますが、具体例を教えてくれませんでしょうか。
255 ：
デフォルトの名無しさん ：2006/05/25(木) 22:47:19
質問する場所が分かりませんので、ここで質問させてください。
>>252 ,254
> できれば、簡単な例をくださるとありがたいです。
｢できれば｣ということは､できなくても構わないということなので例は無し。
> お手数をおかけしますが、具体例を教えてくれませんでしょうか。
はい､お手数なので､具体例は教えてあげません。
つーか何でもかんでもコード欲しがる奴大杉。
解説にコード添えられないとこの程度も理解できないほど理解力に乏しいなら
言語に手を出すのはやめておけ。
無知(知識が無い､少ない)は救いようがあるが､バカ(理解力が乏しい)は救いようが無いから
>>255 ｢学ぶ｣こと自体は独学で出来る。というか独学というもの自体が文字通り｢学ぶ｣ことだからな。
身に付くかどうかはオマエの理解力と努力次第。
257 ：
デフォルトの名無しさん ：2006/05/25(木) 23:01:37
ひどいですね。
まあ口調が偉そうな奴は例外なく無能で日ごろ叩かれてストレス溜まってる奴だから
っていうかね、いまからプログラミング始めるならVBは最悪の選択の一つといって
やっぱ暖かくなるとレベルの低い質問者が増えるね。
何にでも初めてはあるわけで
262 ：
デフォルトの名無しさん ：2006/05/25(木) 23:41:15
確かにレベル低いね
>>254 Sub Kansuu(a() As Byte)
・
・
・
End Sub
Dim a(5) As Byte
Call Kansuu(a)
>>255 可能。
>>263 さんくす！
２ちゃんねるって優しいところですね。
>>245 です
>>247 さん、すいません。
Picture1.Picture = LoadPicture("・・・")
Picture2.Picture = LoadPicture("・・・")
のあとにif文で
Picture1.Picture = Picture2.Picture
を判定してもfalseになってしまいます。
たとえ同じグラフィックでもロードする度に取得する値が違うようです。
理由は分かりませんが。
なんで、
Picture3.Picture = LoadPicture("・・・")
って感じで一回別のPictureBoxにロードして、そのあと
Piuture1.Picture = Picture3.Picture
Piuture2.Picture = Picture3.Picture
と入れればif文判定もtrueになります。
これでいけました。
もっと簡単なやり方がありそうですが、VB初心者なんで今はこれしか思いつかないです。
長文すいません。
>>265 そんなので同じかどうか判断しては駄目だと思うが・・・
普通にバイナリコンペアしないと。
Picture1とPicture2に同じものをロードしておいて比較する意味ないだろ
268 ：
デフォルトの名無しさん ：2006/05/26(金) 12:59:04
ファイルとしての同一性を求めてるのか。
質問者が解決したって言っているんだから良いじゃない。
>>268 画像の整理をしたいのでは。同じ画像が別名でよくダブる。
どんな画像か知らんが。
俺はそんなときまず同じファイルサイズのものを抽出する。
そういう整理なら、専用ツールが幾らでもあるね。
273 ：
デフォルトの名無しさん ：2006/05/26(金) 14:58:27
質）
>>273 LoadPicture が返す値は、ロードした画像を示す
単なる「ある値」であり、その値そのものを比較したり
意味を求めたりするのは無意味。
比較してこれでいけましたって言ってるんだから良いじゃない。
>>273 ビットマップハンドル
IPictureDispの既定ﾒﾝﾊﾞがHandleだから
『Debug.Print Picture1.Picture』 は 『Debug.Print Picture1.Picture.Handle』 になる
あと同でもいいんだけど LoadPicture は IPicture を返すから 正しくは
Set Picture1.Picture = LoadPicture("・・・")
って書くんだよ
PictureBox.Pictureに関しては何故か Set が省略できる謎仕様だ
278 ：
デフォルトの名無しさん ：2006/05/27(土) 00:47:01
VB6でWinsockを使ったソケット通信で、
>>276 別に謎じゃないよ。
VBの暗黒面に近づいてるのは確かだけどw
'Form1
Private Sub Form_Load()
Dim hoge As New CHoge
hoge.TextBox = Text1
End Sub
'Class Module "CHoge"
Private mTextBox As TextBox
Public Property Let TextBox(txt As TextBox)
Set mTextBox = txt
mTextBox.Text = "hoge"
End Property
プライドも何もかも捨ててお願いがあるんですが、
280ですが、なかったことにしてください…。
VB2005 Expressの事で質問したいのですが、ここで良いでしょうか？
ここはＶＢ６にしがみついて死守するスレなのでやめとけ
>>284 と言っても2005のスレが無いようなのですが・・・・
取り敢えずぐぐります
>>285 2002, 2003, 2005はVB.NETの括りになる。
2005からマーケティング上の理由でVB.NETの名称は使わなくなったが .NET Framework上で動く同じ範疇のもの。
というわけで つ VB.NET質問スレ (Part15)
>>286 なるほろ、そういう事でしたか。ｔｈｘです
すでにあるフレームに新しくコントロールを
>>288 Set コントロール.Container = Frame1
>>286 「マーケティング上の理由」ってどんなの？
291 ：
デフォルトの名無しさん ：2006/05/28(日) 11:34:02
VB5の開発環境にVB・.NETを含むVisual Studio 2005 Express Editionを
>>291 謹んでお答えしましょう。
一分で調べがつくようなことを人に尋ねないと気がすまないお方は
プログラミングという行為そのものから撤退すべきです。
ご自身のためにも、周囲の人たちのためにも。
-- 以上 --
>>289 ありがとうございます。
すでにフォーム上に存在しているコントロールを、
マウスのドラッグなどでフレーム内に移せないでしょうか？
ドラッグなどして移せればできる。移せなければできない。
>>295 その様に作ればできる。
一行でできる方法はない。
うーん。
>>295 フォーム上にあるコントロールを切り取ってフレーム上に貼り付ければ移せれる
301 ：
デフォルトの名無しさん ：2006/05/29(月) 22:11:13
このスレレベル低いね
304 ：
デフォルトの名無しさん ：2006/05/30(火) 00:07:50
VB6で多言語対応のダイアログを作成したいんですが、どうすればいいんでしょうか？
ちゃんと方法が書かれてあるが？
VB6＆XPで（画面全体の）スクリーンショットとりたいんだけど
2番目のパラメタは、MSDNによれば、"This parameter is not used."なのだ。
not used っちゅーことは使わないってコト？
keybd_event(VK_SNAPSHOT, 0x79, KEYEVENTF_EXTENDEDKEY, 0);
notebookだからfnキーを押しながらじゃないと無理っぽい
>>311 そのコードを調べるプログラムなんてＶＢなら５秒で書けるが。
keydown とか keypressイベとかでは取れないよ
Fnキーってハードウェアレベルでエンコードされちゃってるんじゃないかと思うが。。
ハードウエア情報を取得し型式データベースと照合して
うちのはノートじゃないがFキーあるぞ？
強制的にキーコード送ってるのだからノートとかって関係ないんじゃまいか？
うちなんかノートじゃないのにＦｎ（ｎ：1～12)キーがある
Fnってのはファンクションキーのことではないと思われ
PageUp,PageDownとかがが上下左右キーと同じに割りつけてあるときに
多くのノートPCに使用されているキーボードでFnキーはコントローラのレベルでキーコード変換がされているのでFnキーの取得はCPU側からはできない
323 ：
デフォルトの名無しさん ：2006/05/30(火) 13:12:28
VBからAccessのレポートのプレビューを見たいのですが、
324 ：
323 ：2006/05/30(火) 13:15:00
うぉ、途中で切れた。Σ(ﾟдﾟ；)
すぐCloseしたりQuitするから何も起こらないように見える
>>324 終了するまでまってQuitするにはこんな感じでいけたと思う。
While Not ap.ActiveSheet Is Nothing Wend
ap.Quit
>>326 すまん、例がExcelだった・・・まぁ同じ感じで出来ると思うから
328 ：
323 ：2006/05/30(火) 15:20:02
すぐ閉じてたのが原因だったのですね。ありがとうございます。
>>326 さんの外部EXE形式のViewer作戦を試してみたいとおもいます。
>>327 さんのは「ap.ActiveSheet」でひっかかりました。＿|￣|○
329 ：
デフォルトの名無しさん ：2006/05/30(火) 15:21:05
駅を逆に入力する
331 ：
デフォルトの名無しさん ：2006/05/30(火) 16:10:36
>>330 やはりそういった方法しかないのでしょうか？
>>329 ・駅名を取得する
・2つの駅間の時間を計算する
せめてこの2つはFunction化しないことには、
>>330 が最小手順の解決方法になりますよ。
>>330 またはStartStation と EndStation の値を入換える
If StartStation > EndStation Then
xx = StartStation: EndStation = StartStation: StartStation = xx
End If
ＸＸからＹＹ表示が逆になるのがいやなら
336 ：
デフォルトの名無しさん ：2006/05/30(火) 19:38:35
>>332-334 そういう考え方があるんですね！
大変勉強になりました。
ありがとうございます。
338 ：
デフォルトの名無しさん ：2006/05/31(水) 00:08:52
質問なのですが・・
>>300 できました！！
ありがとうございます。
>>311 Fn押しながらPrint Screenだと、
それにAlt組み合わせるのできないかも。
うちのDynabookだとできなかった。
>338
どうやってやるんですかとか聞いてきそうだな。
しかも具体的なコードを書いてくださいとか言ってきたりしてw
なので先に言っておく
>>338 ､とりあえずやり方は自分で調べろ。
それでもどうしても解らなかったら､解った範囲でやり方やコードを書いて再質問すること。
丸投げとか､1週間もしないうちに再質問したりとかしないでね。
>>341 DAO 関連って、最初っから全部入ってるんだっけ？
>>343 いやそうじゃなくて、Windows をインストールした直後から使・・・って、
ＶＢ入れたらインストールされるんだっけか。
・ADO
>>345 ㌧。
しかしＪＲＯって初めて聞いた。
ジャロ？ｗ
最近VBScriptを覚え始めた者です
>>336 '出発駅から目標駅までの時間を計算する。
K = 0
Do
Jikan = Jikan + TrainTime(K)
If K = StartStation - 1 Or K = EndStation - 1 Then
Jikan = 0
End If
K = K + 1
Loop While (K < StartStation - 1 Or K < EndStation - 1)
Jikan = Jikan + TrainTime(K)
Msg(ry
変数増やしたくなければこっち使うべし
あと配列は基本0から使おうな？
'目的地が配列の何番目かを求める。
Target = Text2.Text
K = 0
Do
EndStation = K
If Target = Station(K) Then Exit Do
K = K + 1
If K = 8 Then
MsgBox Target & "！？" & vbCrLf & "そんな名前の駅はありません！"
Exit Sub
End If
Loop
なら０から使っても大ジョブ
Train Kept A Rolling
>>349 配列を0からにしないといけない明確な理由は？
変数を減らすために最初の練習用？サンプルを大幅に変更する意味はなに？
>>351 俺は349じゃないけど、配列のインデックスの開始を0以外にする、なんて
VB独自の作法は使わない方が無難。
そんなもんコード読む人間（もちろん未来の自分自身も含む）を不要に混乱させるだけ。
配列の開始は常に0から、を暗黙の前提として期待できる方がコードは遥かに読みやすい。
それにまあ頭の悪いVB厨だと思われるの嫌でしょ？w
>>352 Basicなら前提として1からと決まっている。
0から開始するなんてVB独自の作法は使わないほうが無難。
キチガイだなw
Cは0から
For も１から回すの？
おいおい配列のインデックスは古いBASICもVBも指定しなければ0からだろ。
最新の国際標準は1からですが、
スマソ。途中で送信された。
>>357 MS$も配列の開始を統一してないし、一般(初心者)に開始は１からのほうが解りやすいと思ってみたり・・・
ただ、
>>352 が言っているように昨日の自分は他人の自分で、未来の為に統一しといた方がいいと俺も思う。
俺は0からに抵抗無かったからピンとこないんだけど、初心者には1からの方がわかりやすいのかな。
０オリジンと１オリジンの宗教戦争をここでやっても仕方が無かろう
363 ：
３４９ ：2006/06/02(金) 14:02:05
こんなとこまでゆとり教育か
あ、いや煽りなのは分かってるがどうしても言ってみたくなった、許してくれ
>>351 煽りでは無く質問とみて返答させていただきます。
＞配列を0からにしないといけない明確な理由は？
俺はそう教えられてきたし他の言語も触ってるんで、そのほうがいいと思っただけ。
＞変数を減らすために最初の練習用？サンプルを大幅に変更する意味はなに？
俺はわざわざユーザーが指定した出発駅と目標駅を入れ替えてFor文使うより、
Do使って二つの駅の時間差合計したほうが自然だと思ったからこうした。
たしかに初心者には理解しづらいコードかもしれんが、こういうやり方もある事を示したかったし
これを期にDo~Loop構文覚えてもらえれば幸いだと思う。
「その”自然”とか”配列は０から”とかはお前の価値観だろう」って言われればそれまでだが、
俺はこのほうがプログラマには読みやすいと思ったからこうした。
スレ荒れるのは忍びないので宗教戦争はこのくらいにしておくれ
364 ：
351 ：2006/06/02(金) 14:41:00
>>363 俺はどっちでもいいって考えだから質問してみただけなのに・・・書き方が悪かったのか
初心者うんぬんは解りづらくしなくてもと思ったからついでに聞いてみた。
みなさん、これで終了でよろしく。
メニューを開いて、ポイントしている項目を取得する方法はありますか？
>>365 今ＶＢ動かない環境なので確認出来ないけど、
Mouse_Move とかでメニューのプロパティの .Text とか見たら？
>>366 それは無理だよ。メニューポイント中はmoveイベント発生しないよ。
>>367 そうなんだ。ゴメン。
じゃぁ、メニューの上でマウスカーソル動かすと、ステータスバーに
それが出てくるくる変わるやつはどうやってるんだろ？
たしか、サブクラス化して読んでた例があったような。
WM_MENUSELECTを捕まえればいいんじゃね？
なんかみんなホントすげぇな
>>373 質問に答えられるようになるのにじゃね？
もしそうだったら、人それぞれ。知っていること(やったこと)なら１日でも可能(w
377 ：
376 ：2006/06/03(土) 13:22:17
シートコピーすりゃ良かったのか
ＶＢ６のＩＤＥで、現在プロジェクト内で作成している関数一覧を表示し、ダブルクリックで
関数村字関数
380 ：
デフォルトの名無しさん ：2006/06/04(日) 02:33:09
Excel VBAについての質問です。
381 ：
380 ：2006/06/04(日) 02:53:30
うあ！？すいません。sage忘れてました(^^;;;
Replaceで数字だけ置換しちゃうとか
383 ：
380 ：2006/06/04(日) 03:24:02
あ、ageてよかったんですね(^^;
>>380 A ループを使ってReplace関数で数字を空文字に置換
B 正規表現(RegExp)で数字以外を抽出
C 1文字ずつチェックしIsNumeric関数がFalseを返した文字を繋げる
あたりが基本的な処理だが､数値･数字は必ず末尾数桁のみというなら
D 後ろからループ回して1文字ずつIsNumericでチェックし､Falseになった文字位置までをLeft関数で抽出
の方がいいかもな。
まあ正規表現でも数字が1カ所にまとまってるならs/[\d０-９]//一発で終わりだけど。
>>378 誰かが作ったアドインで、そんなのがあった様な気がする。
ググってみては。
386 ：
デフォルトの名無しさん ：2006/06/04(日) 09:58:34
環境VB6 SP6
ホスト規制とかされてんじゃないの
>>386 「別スレつくるAPI」て何？
２ｃｈのスレを作る関数？？
>>386 VBはマルチスレッドに対応していない。
> VBはマルチスレッドに対応していない。
391 ：
デフォルトの名無しさん ：2006/06/04(日) 13:54:36
>>389-390 おｋ
じゃぁそうするかｗｗ
おとなしくドトネトでやるっす。
まぁ、できないかな？
って感じの疑問だったんで元々選択肢にはいれてたんで。
サンクスでした
>>391 昔のDDJ辺りでスレッド作ってやっちゃいけない事集みたいなのが有った気がする
というか出来る事集だったかな
ThreadID1 = GetWindowThreadProcessId(h, ByVal 0&)
>>394 型宣言文字
&はLong型をあらわす。
>>394 宣言が As Any になってるので、「値としてのロングのゼロ」を渡すと明確に書いてる。
397 ：
394 ：2006/06/05(月) 08:53:49
>>395 さん
>>396 さん
ありがとうございます。理解できました。
GetWindowThreadProcessIdのVB6での宣言を
調べてみると
Declare Function GetWindowThreadProcessId lib "user32.dll" _
(ByVal hWnd As Long, lpdwProcessID) As Long
となっていました。第二引数をAs Anyというより型を宣言しないでVariantに
しているようです。それで0&という風にちゃんと型を指定していたのですね
しかし、それならどうして宣言時にAs Longとしておかないのでしょうか?
いちいち呼び出すときに&を明示しなくてもよくなると思うのですが、
何か事情でもあるのでしょうか.
>>397 その引数は、本来「プロセスIDを受け取る変数のアドレス」を設定する物。
でも、スレッドＩＤだけが知りたい場合、ゼロを指定するので、そうなってる。
399 ：
394 ：2006/06/05(月) 13:10:29
400 ：
デフォルトの名無しさん ：2006/06/06(火) 23:42:32
Command関数のことでちょっと
>>400 普通に文字列操作
サンプルも腐るほど転がってる
すみません、誘導されてきました。excelVBAで質問なのですが
403 ：
400 ：2006/06/07(水) 01:01:26
>>401 おっしゃるとおりです。
探すの面倒だったから自作した、、
まぁ、要はこういうことをしたかったわけで・・・なんかそういうAPI関数みたいの無いかなぁと
Private Function getArgument(ByVal command_line As String) As Variant
command_line = Trim(command_line)
If "" = command_line Then
getArgument = Empty
Exit Function
End If
Dim retArray As Variant, c As String, pre As String, flag As Boolean
ReDim retArray(0)
flag = False
For i = 1 To Len(command_line)
c = Mid(command_line, i, 1)
If """" = c Or flag Then
If Not ("""" = c) Then retArray(UBound(retArray)) = retArray(UBound(retArray)) & c
flag = IIf(flag And """" = c, False, True)
Else
If " " = c And Not (" " = pre) Then
ReDim Preserve retArray(UBound(retArray) + 1)
ElseIf Not (" " = c) Then
retArray(UBound(retArray)) = retArray(UBound(retArray)) & c
End If
End If
pre = c
Next
If IsEmpty(retArray(UBound(retArray))) Then ReDim Preserve retArray(UBound(retArray) - 1)
getArgument = retArray
End Function
> API関数
C/C++ のargsだとその辺のコマンドラインの解析はやってくれてるけど
CommandLineToArgvWというAPIが無いわけでもない。
>>402 何がしたいのかサッパリ分からんが、一文字取り出してから
StrConv でシフトＪＩＳ文字にしてバイト数を見るとか。
408 ：
デフォルトの名無しさん ：2006/06/07(水) 17:05:28
初心者質問だけどカンベンしてくれ・・
IsDate()
410 ：
デフォルトの名無しさん ：2006/06/07(水) 18:39:24
初歩的な質問かも知れないけど教えてください。
おーとめーそんで終わりだろ。
関数式の入ったセルに値を入力されても泣かないこと
414 ：
デフォルトの名無しさん ：2006/06/08(木) 02:14:37
エクセルのVBの仕様なのですが、手持ちの書籍や、参考になるサイトが少なく
415 ：
デフォルトの名無しさん ：2006/06/08(木) 12:13:26
エクセルのVBでの質問です。
midのみと言いながらfor-next,ifなどを使えという時点で問題がおかしい
文字列操作系の関数はMIDのみってことじゃない？
for-nextやifは関数ではないので
for-next,if関数とかいてある時点で問題がおかしい
>>415 先頭から一文字づつ取り出して、最初に数値が出てきたら、
数値じゃなくなる迄別変数に追加する。
としか言い様がない。
423 ：
デフォルトの名無しさん ：2006/06/08(木) 14:01:19
vbからデータベースに接続できないときにイベントビューアーに
424 ：
423 ：2006/06/08(木) 14:09:25
自己解決しますた！！
塩まいとけ
>>424 どうやって？
解決策を書く気は全くなし？
429 ：
デフォルトの名無しさん ：2006/06/08(木) 15:20:06
418です
>>429 あの文章よりもどう詳しくしろと言うのか。
もっとやさしい課題から理解しないと無理では
433 ：
デフォルトの名無しさん ：2006/06/08(木) 16:04:42
初歩的な質問だけど、お願いします。
434 ：
423 ：2006/06/08(木) 16:10:29
VBScriptのオブジェクトを使って
>>429 開始フラグクリア
数字列変数クリア
1.１文字取り出す
2.文字の判断
2-1.数字文字である
2-1-1.開始フラグが立っている 数字列変数に追加 1.に戻る
2-1-2.開始フラグが立ってない 数字列変数に設定 開始フラグを立てる 1.に戻る
2-2.数字文字でない
2-2-1.開始フラグが立っている 終了
2-2-2.開始フラグが立ってない 1.に戻る
437 ：
デフォルトの名無しさん ：2006/06/08(木) 18:58:17
>420
>>437 バグってても、コンパイルエラーが起きててもいいから、
自分ができるところまで書け。お前が与えられた課題だろうが。
440 ：
デフォルトの名無しさん ：2006/06/09(金) 09:23:58
>>6 を見るとVB6はこれからも業務で使われ続ける流れになるのかな？
それとも、COBOLみたいなことになる？
ぶっちゃけるとそろそろ2005系に移行したほうがいいのかな？
442 ：
デフォルトの名無しさん ：2006/06/09(金) 11:57:47
まぁ保守がメインになるんじゃない？
443 ：
デフォルトの名無しさん ：2006/06/09(金) 12:52:08
>>442 何が楽になりましたか？
ＣＯＢＯＬみたいなことになるなら６ＯＮＬＹって訳にはいかないかなと思って…
>使用する関数はmidのみと指定
IsNumeric
446 ：
デフォルトの名無しさん ：2006/06/09(金) 14:37:55
>>444 それならcase文はこれだけでいいだろ
Select Case c
Case "0" To "9": s = s + c: f = True
Case Else: If f Then Exit Do
End Select
447 ：
デフォルトの名無しさん ：2006/06/09(金) 14:38:28
>>445 関数はmidだけなんだとさ、意味ない制限だな
448 ：
デフォルトの名無しさん ：2006/06/09(金) 14:39:36
>>415 の関数制限なくしたら
お前らならどう実装する？
449 ：
448 ：2006/06/09(金) 14:50:17
おれはこうした
>>446 やっぱりなぁ・・・文字でもＯＫだったか
>>449 スペースで区切られている保証はないかも・・・まぁ課題は区切られているけど(w
452 ：
デフォルトの名無しさん ：2006/06/09(金) 17:11:14
>>451 文字列の仕様に基づいてsplitの区切り文字変えればよかろ
まあ、スペース区切りの”囲いとかだったらちょっと処理足りないが
>>452 区切り文字が無かったら駄目でしょってこと
454 ：
デフォルトの名無しさん ：2006/06/09(金) 17:52:25
初心ですいませんが、質問させてください。
const
APIのSetTimer関数でタイマー処理するとき
>>458 コピペするだけで現象が再現する必要最低最小限のコードは？
>>459 form1にボタンを2個とラベル1個を貼る。どれもプロパティは変更なし。
-------------------form1--------------------
Option Explicit
Private Sub Command1_Click()
Dim timeCapa As TIMECAPS
Call timeGetDevCaps(timeCapa, LenB(timeCapa))
timeCapMax = timeCapa.wPeriodMax
timeCapMin = timeCapa.wPeriodMin
'開始時間取得
staMillSec = timeGetTime()
'タイマー起動
Call timeBeginPeriod(timeCapMin)
TimerID = timeSetEvent(timeCapMin, timeCapMin, AddressOf TimerCallback, 0, TIME_PERIODIC)
End Sub
Private Sub Command2_Click()
'タイマー終了
Call timeKillEvent(TimerID)
Call timeEndPeriod(timeCapMin)
End Sub
-------------------------------------------------------
-----------------------標準モジュール----------------------------
462 ：
458 ：2006/06/10(土) 11:09:12
どうもコールバック関数内でtimeGetTime()関数を呼び出すのがひっかかってるみたいで、
timeSetEventのコールバック呼び出しって、呼び出しもとのスレッドが違ってなかったっけ？
普通にタイマコントロール使えばいいじゃん。
465 ：
458 ：2006/06/10(土) 11:43:41
>>464 MIDI再生のためにインターバル1msで使いたいわけですが
最近はタイマーコントロールでも大丈夫なんすかね？
まあ、それはやってみればいいんですが。
そもそもWindowsで、協調しながら1ms単位の行動を起こすことは不可能。
467 ：
458 ：2006/06/10(土) 12:40:12
>>466 精度が悪いのは当然承知の上で、可能な限り短い割り込み間隔が欲しいわけです。
となるとやはりマルチメディアタイマーかなと。
>>465 マルチメディアタイマ使っても、正確な１ｍｓなんて不可能。
ＷｉｎｄｏｗｓはリアルタイムＯＳじゃないから。
>>468 １ｍｓだと負荷がかかりすぎて落ちるとか言うならともかく、正確に１ｍｓ出る出ないは今直接関係なくないか？
数十ｍｓもブレるわけじゃないんだし。
興味出たので調べてみたが、
誰かコード試した？
472 ：
458 ：2006/06/10(土) 15:29:12
みなさんありがとうございます。
>>470 さんのおっしゃる通りぐぐってみました。つまり、マルチスレッドになることに問題が
ありそうだということですね。
タイマーなのでマルチスレッドでformの移動などにほぼ影響されずに動いて欲しかったのですが、
CreateThread関数を使って生成されたスレッドと同じように使用に制限があるということですか。
P-Codeでもformを頻繁に移動するなどすると終了時にエラーが出ますが、業務用でもないので
P-Codeコンパイルで当面いってみます。
473 ：
デフォルトの名無しさん ：2006/06/10(土) 19:04:45
dim a as integer
474 ：
デフォルトの名無しさん ：2006/06/10(土) 19:05:17
dim a as integer
475 ：
デフォルトの名無しさん ：2006/06/10(土) 19:07:51
dim a as integer
Visual Studio 6.0の開発環境を
落とそうとするパッチを全部書けば選んでもらえると思う
>478
VB6入れて、SP6a入れておしまい、じゃないの？
VB6とVB.netの違いについてお伺いさせてください
>>483 VBだと簡単にUIが作れるみたいなので挑戦しようと思っています。
ので、できればVBのどちらかでやるつもりです。
VB6.0は入手性に難があるぞ
あ、そうなんですか；
>>482 ＵＩはＶＢで、制御部分は生ＣでＤＬＬを書けばいい。
しかしどう考えてもネタとしか思えない質問によく馬鹿正直に答える気になるな。
>>488 質問が素晴らしかろうが、糞だろうが、
自分の気が向いたら適当に答えてるだけ。
VBで作ったプログラムからVBで作ったDLLを呼び出しています。
>>490 VB6のDLLはActiveXだからRegsvr32で登録がいるんじゃない
>>482 外部の装置をPCから制御するプログラムは、組み込みとかファームウェアとか呼ばない気がする。
486です。
>>492 いえ、パソコンから制御するのではなくて専用端末機から制御します。
その専用端末機のファームウェアをVBで作成して組み込むという事です。
>>493 たとえばさ、何かの検査装置があって単独でも使えるけど、
これをPCからシリアルケーブルを使ってコントロールできるとする。
検査装置は独自のCPUを持っててOSやプログラムは検査装置のROMに書き込まれている。
この検査装置のOSやプログラムのことをファームウェアとか組み込みプログラムと呼ぶのよ。
これの開発に必要なのはその検査装置のCPUにあったクロスコンパイラやエミュレーターなわけで、
VBやVB.NETの出る幕はどこにもないのよ。
んでこの検査装置をPCからコントロールするためには、
シリアルケーブルでの通信のプロトコルの仕様書が提供されてたり、
VBやVCから扱うためのライブラリ（スタティック、ダイナミック）、やActiveXコントロールが提供されてたりするわけで、
これらを使うことになるわけさ。
>>486 のいってるのはココのことだろ？
>>495 まさしくそれの事を指していたんですが、言葉の使い方を間違っていたようですみません；
以前、別会社に設計して貰った時はVBでやっていると言ってたのですが
その会社ではまずパソコン上でVBを使いプログラムを作り、それをROMに移して機械本体を実行させる。という流れだったと思います。
あまり知識がないもので言っている事がうまく伝わりませんが・・
こういうことはVBやVB.netではできないのでしょうか？
その別会社に聞いたらどう
組み込み系のCE.NETでVB.NET動かせばいいじゃないか
だからどう考えても君らみたいなVB厨を嘲笑するためにネタで聞いてる奴に
善意で考えてだまたまその装置のOSがWindows（CEの線もあり？）でその拡張がVBで出来るとして、
>>488 ,499
週末なのにいやなことでもあったのか？ かわいそす。
>>498 >>500 やっぱりこちらの情報不足ですか・・
分かりました、とりあえずもう少し本屋などに行って調べてみたいと思います。
ありがとうございました
503 ：
490 ：2006/06/11(日) 08:32:47
>>491 すいません、書き間違えました。
.DLL は VB ではなく、 VC で作っています。
>>490 原因がちゃんとあって、解決出来るならいいんだけど、
もし解決出来ない場合、それが、ＶＢ６はＸＰ上で
動作保障されてない、って事。
２０００では動くのにＸＰでは駄目、ってのは幾らでもある。
>>503 ＞実行時ｴﾗｰ'48': ﾌｧｲﾙが見つかりません:xxxx.dll （←自作のDLL)
そういうことなら、そのエラーはDLLが見つからなかった時だけでなく
何らかの理由でDLLがロードできなかった場合にも起きる。
よくあるケースをいくつか上げると。
１．VC6の場合DLLでDEBUG版でBUILDされており、msvcrtd.dllやmfc42d.dllなどがsystem32やパスの範囲に存在しない。
デバッグ版のランタイムの再配布は許可されてないのでReleaseモードで再コンパイルをすすめる。
２．VC7以降でかつXP以降の場合、crtやmfcランタイムの場所はマニフェストにかかれていなければならない。
VCランタイムDLLの再配布モジュールを別途インストールするのが手軽。
*.minifestはリソースとして埋め込まれているが埋め込まれていない場合はDLLと同じ場所にコピー。
>>504 XPで動かないというトラブルは確かにあるが、たいていはセットアップウイザードが作ったインストーラーが
強引にコピーしてしまう互換のないDLLやActiveXによるトラブル。
MSがXPで動作保障をしていないというのは都市伝説。しかしもうかなり古いのでVistaではどうなるかは知らない。
>>478 えっそうなんですか？
困ったなあ
>>481 ありがとうございます
>>488 僕はまじめに聞いていますよ
；；；；
教えてくれた人ありがとうございました
>>503 DLL の実行に必要な DLL を Dependency Walker で調べろ
509 ：
デフォルトの名無しさん ：2006/06/11(日) 11:42:54
VB6+Windows2000環境です。
>>509 FormのプロパティにMaxボタンとかMinボタンの設定がなかったっけ？
ボタン自体を消すのはAPIにあった気がする
511 ：
509 ：2006/06/11(日) 11:51:41
>>510 MDIで無い普通のフォームなら、プロパティーで設定(ボタンを消す)可能でした。
MDIだとそれがありませぬ。APIでできるんでしょうか？
>>511 @ITのTipsで方法が紹介されている。
ただし、.NET向けの記事ではあるけど。
でも使ってる方法そのものはVBでも恐らく有効でしょう。
>>505 ＭＳは動作保障してるよ。
まぁ、ＭＳの動作保障なんて全くアテにはならないが。
かなり必死に探したものの見つからないので、質問させてください。
>>513 484さんの書いてくれたパッチのダウンロードの環境にもｘｐって入ってました
>>516 いやだから、保障されてても、まともに動かないのが問題なのであって。
>>514 DOM 使って HTML 操作の方がいいんじゃね？ Web アプリだよね？
マルチに反応しちゃ駄目
520 ：
デフォルトの名無しさん ：2006/06/11(日) 15:34:06
サイボウズ６に予定を設定したり取得したりするこは
もまいら朗報だ。VS2005からVB６みたいにデバッグしながら開発できる
>523
エディトコンティニューがVB.Net2002とか2003とかでは効かなかった話ではないかと
526 ：
デフォルトの名無しさん ：2006/06/11(日) 21:18:31
すみません、スクリプトの方ですけどvbsのスレなんてわざわざ無いみたいなのでここでお聞きします。
逆に、ＶＢでは出来てたのに出来なくなってたのがダサ過ぎ。
>>526 省電力とスクリーンセーバーは直接関係内
529 ：
デフォルトの名無しさん ：2006/06/11(日) 21:51:38
>>528 調べたら確かに省電力モードって定義があいまいみたいですね。
ということで質問を変えます。
vbs(wsh利用可)で
・スクリーンセーバが動いているかどうか
・電源制御によりモニタの電源が切れた状態かどうか
・電源制御によりHDDの電源が切れた状態かどうか
を知るってどうやるのでしょうか？
>>529 スクリーンセーバは SystemParametersInfo API かな。
>>529 おそらくVBSとWSH自身の機能だけじゃ無理。
WMIあたりで可能かもしれないが､一番確実なのは
それらの機能を提供するCOMを自作してVBSから使う方法。
これならいろいろ制限のあるスクリプト言語上での実現方法に悩むことなく
制限の少ないまともなプログラミング言語上で普通にやればいいだけなので簡単。
COM使いたくないとか作れないとかいう後出し条件は聞き入れないのでよろしく。
後の質問は､あなたがCOM作るのに使う言語のスレでどうぞ。
但し質問する前に一週間くらいは自分で調べようね。
>>529 電源関係は ACPI で出来ると思う。
533 ：
529 ：2006/06/11(日) 23:01:22
ヒントをありがとうございました。
534 ：
522 ：2006/06/11(日) 23:32:53
勝手にVB2005の感想。
> ・スクリーンセーバが動いているかどうか
>>534 >・ステップ実行中にドラッグでステップを、戻せるようになった。
あれ？2003でも出来ないかそれは
止めれたり戻ったりできる場所が少ないけど
537 ：
529 ：2006/06/12(月) 08:54:09
>>535 、>>それ以前の方々、
ヒントをありがとうございました。
web上の文字列を手に入れるときに何の関数を使えばいいのか分かりません
GetWebStringsという関数を作る
>>539 レスｻﾝｸｽです
InternetReadFileで詳細をもらってくる
その中から一部の文字列に絞ってクリップボードに入れるorテキスト表示させるorファイルに出力させる
でいきます。
542 ：
デフォルトの名無しさん ：2006/06/12(月) 19:52:38
listview コントロールにて Add でアイテムを追加していくと
544 ：
デフォルトの名無しさん ：2006/06/13(火) 07:22:30
APIで顧問コントロール等々を呼び出すと無駄なインストーラは必要なくなる？
>>544 「APIで顧問コントロール等々を呼び出す」の意味が不明。
指定文字列の検出の質問なのですが
549 ：
542 ：2006/06/13(火) 17:44:59
>>542 毎回indexに１を指定してない？
index を省略すれば最後尾に追加されるはずだか
先頭追加 ListView1.ListItems.Add 1, "key", "Text"
最後尾追加 ListView1.ListItems.Add , "key", "Text"
551 ：
542 ：2006/06/13(火) 20:07:16
>>550 ズバリです。。
なるほど。。
本当にありがとうございました 多謝
552 ：
デフォルトの名無しさん ：2006/06/13(火) 20:10:02
今ＶＢでアクションゲームを作っているんだけど当たり判定がうまくいきません。(自分で作成したコマンドボタンを押したらＴｅｋｉ１が消えてしまいます。）
553 ：
デフォルトの名無しさん ：2006/06/13(火) 20:12:47
>>552 です
書き忘れすみません。
コマンドボタン名はStart1です。
554 ：
デフォルトの名無しさん ：2006/06/13(火) 20:34:48
そういえば、昔それらしきものを作ってみたわん
簡単なアタリ判定（適当な画像を個々に用意）
上の方で使うなと言われているが、あえて訊きます
557 ：
490 ：2006/06/13(火) 23:05:04
>>556 IISにISAPIの実行設定してないんじゃない?
デフォルトでは何も実行できないはずだよ
560 ：
556 ：2006/06/14(水) 01:37:28
ISAPIの実行許可は行っている。
561 ：
556 ：2006/06/14(水) 01:39:29
>>558 動作保証は分からないけど、過去ログ見た限りはofficeはサーバサイドで実行するな
という内容はあるみたいです。
ただ、2000環境では実行出来ていたので、なにが違うのかなと悩んでます。
>>557 あいかわらずVB6JP.DLLは入ってないな。これがないせいで簡単なプログラムでもインストーラーが必要になる。
もっとも単にコピーするだけでもいいんだけど。
VBSの質問ですがいいですか？
>>564 どういうコードを書いたら、どう上手くいかなかったのか？
VB6からADOを使ってOracleのPakageを呼び出そうとしているのですが
>>560 書き出し先にIISワーカープロセスの実行ユーザーの書き込み権限つけてる？
>>563 をぅ、荒井さんの記事だ。
>>567 ADO でオラクルなんて問題外。
oo4o 使え。
ADO は、実質ＳＱＬサーバ限定みたいなもん。
570 ：
560 ：2006/06/14(水) 13:53:40
>>568 IISの方でローカルアドミンを設定しているし、
書き込みもチェックついています
>>570 ローカルアドミン？
LocalSystemの事を言ってる？
>>560 「何らか権限がからんでるのかなあ」と思うなら、あらゆる権限を調べろよ。
そういうシステムって、思わぬプロセスに思わぬ権限が必要だからな。
>>570 そのローカルアドミンとかいう権限で実際に書き込みしようとしているのか
574 ：
デフォルトの名無しさん ：2006/06/14(水) 19:08:38
F-BASIC97というののCVIを使って書き込んだファイルが
>>575 ファイルアクセスなんて基本中の基本。
ヘルプ見ろ。
ローカルアドミンは、そのマシンのadministratorってことです。
>>577 根本的にIIS6.0の事を勘違いしているようだ
2003ServerのIIS6.0のオンラインヘルプでワーカースレッド周りの説明を読み直して来い
F-BASIC97だのダンプだの言うから難しくなるんだよ
バイナリで開いて、ASC関数を使って数値化、桁にあわせて256^ｎを掛ける
584 ：
デフォルトの名無しさん ：2006/06/16(金) 19:53:48
教えて下さい。以下の課題の考え方がよくわかりません｡
585 ：
デフォルトの名無しさん ：2006/06/16(金) 20:00:48
584の続きです｡
単語数とか考えずにスペースも一文字として、ひたすら頭から一文字ずつチェックしていく。
>>584 単語名そのものが入る配列(words)と、登場回数が入る配列(counts)の二つを作る。大きさはCountWords()の戻り値。
配列に関しては、Dim, Redimのヘルプ参照。
で、文章の単語くぎりながら、配列wordsの全要素を調べて、配列wordsに登録してなければ登録する。
そのとき、その配列wordsの位置（インデックス）と同じ場所の配列countsもカウントアップする。
最後に、配列countsを全部調べて一番大きい数に対応する配列wordsの内容が答え。
大文字小文字を区別しない、に関しては、StrConv関数を使う。
わかんなかったら、またおいで。
588 ：
587 ：2006/06/16(金) 20:25:26
あ、戻す単語は最初の表記ってことだから、配列wordsに入れるときにはもともとの文字列を入れて、
589 ：
586 ：2006/06/16(金) 20:28:31
いぇ～い、単語と文字を見間違えてたゼィ
590 ：
587 ：2006/06/16(金) 20:37:49
Split関数使えばもっと楽だね。課題の意図的にはNGかもだけど。
そもそも、課題の丸投げって駄目なんじゃなかったっけ？
592 ：
586 ：2006/06/16(金) 20:54:41
>>587 さんみたいなやり方もあるし、一つの単語に着目して文章の最後まで走査する,
たとえば"you"なら文章の最後まで"you"を探して見つかったらカウントして・・・というやり方もある。
この場合、カウントするついでに既にカウントされましたよフラグを立てて処理を減らすこともできる。
最初に単語ごとに区切って配列にいれちゃうことが必須になるけどね。文字列とカウントされましたよフラグの
ユーザー定義型を作って。ちょっとやりすぎかもな。
いずれにしろ基本は人間がやってるのと同じってことだね。
丸チ投げ
595 ：
585 ：2006/06/16(金) 21:08:11
>>586 >>587 >>590 ありがとうございます。 配列RedimやSplit関数などは使わないようにと指示があり
ます。
>>587 私も、登場回数が入る配列(counts)を作ると考えてはいたのですが、単語名そのも
のが入る配列(words)
の作りかたが、いまいち良くわかりません。
関数MostFrequentWord を作成する際、文字列は（”単語 単語 単語・・・・・
”）と分かってない単語を前提として考えるのですよね？
情報としては CountWord() で調べた数の単語数しかわかっていないとして、
その場合の、配列(words) と 出てきた単語の関係の表し方がわからないのです・
・・。
考えているのですが,
Aを文字列だとして
A = ToUpperCase(A)
For i = 0 To (CountWords(A) - 1)
Count(i) = 0
For j = 0 To (CountWords(A) - 1)
If (hairetu(i) = hairetu(j)) Then Count(i) = Count(i) + 1
Next j
Next i
・・よくわからないです
Dictionary オブジェクト使ってしまえ。ｹﾞﾗｹﾞﾗ
>>595 まず、やりたい事全てを細かく順番に文章で書け。
それが出来たら、後はそれを一つ一つコードにするだけ。
>>595 配列Redim 使っていいのなら出来たけど、使わないのはちこっとまんどくさい
＞配列RedimやSplit関数などは使わないようにと
Function SplitText(s)
>>601 >配列RedimやSplit関数などは使わないようにと指示があり
配列Redimって配列も含むんじゃと・・・Redimがだめってことかもしれないけど
ただ、Dim words(100) ここ Redimが駄目で100と逃げても・・・
>>603 >>595 をよく読んでみ。
固定の大きさで配列を定義するのは、宿題のような問題ではありがち。
そもそも個定数で作らなきゃ
>>595 のような発想ができない。
Function CountWords(A)
>>605 えっと 4行目のReplaceはスペース2個です。
s = Replace(A, "□", "□□")
607 ：
605 ：2006/06/16(金) 23:07:34
ああごめん 関数名は CountWords じゃなくて MostFrequentWord だね。
コード書いちゃうのは今回の場合やりすぎじゃないか？
課題でやってる
>>584 のためにならない。
>>606 ・大文字小文字を考慮する必要がある
・ピリオドを考慮する必要がある
Replaceも使っちゃ駄目そうだが。
>>609 「単語（半角スペースで区切られたそれ以外の 文字の塊）」
にピリオドは含まれないのかな？
記号は文字じゃないだろって言われればそんな気もするけど
あとvbTextCompareで大小無視してます。
>>608 ごめんなさい。はなから役に立とうとは思っていません。
>>610 大文字小文字は勘違い。スマソ。
単語は普通（つっこみ付加）、ピリオドやセミコロンなどの区切り文字は入れない。
配列使わないでやってみた
Function MostFrequentWord(A As String) As String
改行多すぎるって言われたから、無用な変数初期化省いてある。
遊びで作ってみたけど、VBってやっぱりプログラム書き難いな
616 ：
615 ：2006/06/17(土) 00:19:51
'===================
617 ：
615 ：2006/06/17(土) 00:20:28
'===================
'===================
ポイントだけ三行でまとめられないか
Collectionはさすがに使っちゃ駄目だろ。
当方SSTabを使っているのですが、テスト環境で
>>620 駄目って書いてないのならOKでしょ。
よっぽど馬鹿な教師でなければ高得点くれるだろ。
>>621 ちゃんとインストーラでインストールしたの？
>>623 動かない環境の方に、ﾃﾞｨｽﾄﾘﾋﾞｭｰｼｮﾝｳｨｻﾞｰﾄﾞで作って渡しても、ダメでした。
なお、他の環境（しかも同じくＸＰ）では何もせずに正常に動作してるみたいです。
ますます謎。
検索するといくらでも解決法がみつかるようだけど。。
SSTabってVB2.0だぞ
SSTabを使わない仕様に変更しました。
今テストしているのですが、今度は純粋にハングするようになったとのことです。
>>625 本当にありがとうございました。
628 ：
585 ：2006/06/17(土) 16:39:16
585です。
629 ：
585 コ-ド１ ：2006/06/17(土) 16:45:30
>585です。続きです。
630 ：
585 コ-ド２ ：2006/06/17(土) 16:49:29
For j = 1 To CountWords(A)
>>624 ＸＰ上でＶＢ６は動作保障されてないよ。
ＭＳのサイトでは「一部不具合はあるが、動く」って書かれてるけど、
ＭＳの動作保障なんて全くアテにはなりませんから。
632 ：
585 コ-ド３ ：2006/06/17(土) 16:52:22
For m = 1 To CountWords(A)
うん、Redim使えないのは変だと思ってた。
634 ：
585 コ-ド３について ：2006/06/17(土) 16:55:56
632 は 一応 その頻出単語の回数の多い順に並べ替えたつもりです
635 ：
585 ：2006/06/17(土) 17:00:04
>633
しかし、今更VB6を選択する教師ってのもな。
ヒント：excel
638 ：
デフォルトの名無しさん ：2006/06/17(土) 17:31:04
アルファベット"a"～"z"が順に格納されている英字配列の 表記の仕方を教えてくだ
Print a(0),a(1),...,a(25)
640 ：
デフォルトの名無しさん ：2006/06/17(土) 20:06:30
>639
表記の意味を教えてください
a(i)=chr(97+i)
>>638 こんな感じ？
Dim i As Integer
Dim strAlpha() As String
For i = 0 To 25
ReDim Preserve strAlpha(i)
strAlpha(i) = Chr(i + 97)
Debug.Print strAlpha(i)
Next i
644 ：
デフォルトの名無しさん ：2006/06/17(土) 20:32:30
>642
VBSではGoToって使えないんですか？
じゃあどうやって構造化するんだ
構造化って何ですか？
簡単に言えば、Gotoをなくすことです。
スパゲティ簡単でいいんだけどなぁ
アセンブラなんかJUMPの嵐だもんな
じゃあ問題なくVBSで構造化できますね！
>>どっかから-
>>654 なにこのわかりやすい自演
ループがネストになっているときのエラー脱出はGoToを使うのが正しい
VB6での事で質問なんだが
その前に型名が必要な理由を聞こうか。
>>658 特に理由は無いんだが．．．
AddとかItemとかのメンバー持ってるから 何か型があるのかと思っただけ
そういう風に論理的に整合的な解釈ができないからVBはウンコ言語だって
Form.Controls は Control 型？かなあ。
言語環境は VBA 6.4 です。
>>664 無い。
もっと具体的にやりたいことを書けば、何かアドバイスできるかも試練。
>>664 何をやりたいかは何となく分かるが、それをやらなければならない設計がおかしい。
それに、「Microsoft Script Control」を使わない理由も。
667 ：
デフォルトの名無しさん ：2006/06/18(日) 15:28:03
GetUserNameを使ってWindowsのログインユーザ名を知ることができますが
教授 ×
教授でもOK
教授でもOK ×
教授でもOK
672 ：
デフォルトの名無しさん ：2006/06/18(日) 16:29:13
コ-ディングの基礎を説明しているサイト教えて下さい!
教示とか教授とか使い慣れない敬語は使わずに、普通に教えてくださいじゃだめなのか。
>>672 そういうのはプロジェクト毎に決まってるよ。
675 ：
デフォルトの名無しさん ：2006/06/18(日) 17:40:45
>>674 その決まりがわからないのですよ。
VBでの決まりを教えて下さい。
又は、サイトを
逆切れきたよ
別に逆ギレはしてないだろｗ
>>675 「コーディング規約」とかで検索してみた？
役に立つかは知らないが
君がプロジェクトリーダーなら話は別だが趣味でやってるなら自分のセンスで書けばどう
>>675 だからプロジェクト毎に決めるんだよそれは。
自分だけの趣味プログラムなら、自分が決めればいい。
VBなんだからインデントのやりかたなんて決まってくるだろ。
個人的には関数内の全行を一律で一段インデントした上で、
っていうかVBじゃCみたくインデントの流儀で論争になったりしないでしょ？
実際迷うことあるか？w
{}もifのぶら下がりの問題もないのに。
だから質問者が釣りでなくマジで聞いてるなら、回答としては
そこらにゴロゴロ転がってるサンプル眺めてそのとおり真似しろ、でいいでしょ。
>>683 みたいになんでもバカ正直に回答すりゃいいってもんじゃないと思うけど
つーか、いまからVB始める気かよ
>>682 じゃあそのプロジェクトごとに違うというルールの例を２，３あげてもらおうか。
>>686 インデントが３バイトか４バイトか、とか、変数名の付け方とか、
逆に全てのプロジェクトで同じ項目なんて殆どないと思うが。
バ、バイト？w
脳内プロジェクト乙。
>>689 １バイト空白が何文字分か、って事だろ。
13歳の言うことなんかにかかわらないほうがいいよ。
693 ：
遅いが、これはどう？ split、Replaceだけ別で実装 ：2006/06/19(月) 16:18:48
Private Sub Command1_Click()
何だ？急にコードだけ・・・
695 ：
デフォルトの名無しさん ：2006/06/19(月) 18:14:11
accessの質問なんですけど、
697 ：
693 ：2006/06/19(月) 19:41:47
>>584 のコードだよ。
変な制約無かったらどう実装するか
>>695 先頭から一文字一文字取り出して比較すればいい。
699 ：
デフォルトの名無しさん ：2006/06/20(火) 09:59:50
誰か教えてくだされ、、
Len(Command$)
702 ：
デフォルトの名無しさん ：2006/06/20(火) 10:25:44
ありがとうございます！
703 ：
デフォルトの名無しさん ：2006/06/21(水) 22:23:35
>>703 p-codeで動くならそれでいいじゃん
707 ：
デフォルトの名無しさん ：2006/06/22(木) 09:45:12
ネイティブの最適化きってみれば？
708 ：
デフォルトの名無しさん ：2006/06/22(木) 10:31:09
レスありがとうございます。
結論からすると、とりあえず解決しました。
>>704 さん
スレ違いなので参照先で質問をすれば？ということでしょうか。
一応ログは確認してみました。
>>705 さん
今までOCXを使っていましたので。今回はAPIでということでお願いします。
>>706 さん
なぜ動かないのかが知りたかったのですが・・・
P-CODEでは確かに動いています。
>>707 さん
ご指摘のようにネイティブの最適化を切ってみました。
すると、動きました。
このAPIを使用するにあたって、最適化に関与する部分で何か不具合があるということですね。
実行順序とか勝手に変えられてるんでしょうかｗ
時間があるときに、違いをデバッガで確認してみることにします。
709 ：
デフォルトの名無しさん ：2006/06/22(木) 11:22:06
>>708 多分だけどAPIコールのときに型を厳密に言うと間違ってる部分とかがあるんじゃないの？
最適化を有効にした場合、その辺りでAPIコールが引っかかる場合が昔あった。
なんかAIPの宣言違ってるっぽい
711 ：
デフォルトの名無しさん ：2006/06/23(金) 13:41:33
>>711 Ｗｉｎ３２ＡＰＩでのＢＯＯＬは４バイトなんだけど。
713 ：
デフォルトの名無しさん ：2006/06/23(金) 17:18:38
文字数判定とIsdate関数を組み合て
>>711 Windows APIのBOOLは
>>712 の言うとおりであって、VBのBooleanとは別物。
715 ：
デフォルトの名無しさん ：2006/06/23(金) 17:49:55
>>713 文字数判定する必要なくね？
ISDATEだけでいいんじゃね？
716 ：
デフォルトの名無しさん ：2006/06/23(金) 18:11:43
>>716 vb使いの癖に偉そうにしないで下さい。
>>713 Len() じゃないの? VBの事、もう忘れてるけどw
Winampに複数のファイル名を渡す方法分かる方いらっしゃいますか？
めんどくせ
m3uをテンポラリに作って食わせるのではいかんのか？
SendMessageで何らかのアプリを操作する方法なんて､完全にVB関係ないじゃん。
725 ：
デフォルトの名無しさん ：2006/06/24(土) 17:44:48
レベルの低い質問で恐縮ですが質問させてください。
ListIndex=-1
727 ：
725 ：2006/06/24(土) 18:41:56
>>726 は私へのレスですか？
Elseの後に入れてみましたが駄目でした。
そのまま入れるだけでは駄目なんですか？ちょっと調べてみます。
有難うございました
コンボボックスのリストを再表示させたい(ドロップダウン)なら､SendMessageで出来るよ。
エスパーが必要だなw
730 ：
725 ：2006/06/24(土) 19:15:32
>>728 使い方がよく分からないのでぐぐってみます。有難うございました。
>>729 表現がおかしかったですか？反省です。
言いたかった事は、コンボボックスがデフォルトのままで選択されずに実行ボタンが
押された時にメッセージを出してもう一度選択を促したいだけなんです。
そもそもifを使うのがおかしいのですね？多分。
方法を考えます。有難うございました。
>>730 なら話は比較的簡単じゃないか。
コンボボックスのアイテムが選択されるまではボタンをEnabled = Falseにしとけばいい。
というか、そもそもそのボタンとやらは本当に必要なんだろうか
732 ：
725 ：2006/06/24(土) 19:38:17
>>731 なるほど！確かにその方法でも大丈夫です。
コンボボックスのアイテムが選択されたかどうかを判別する方法が分からない
ので調べてみます。
>>730 既に選択した状態を消したい、って事？
ちゃんと日本語で質問してくれ。
734 ：
725 ：2006/06/24(土) 20:05:35
>>733 既に選択した状態を消したい、とは考えていません。
選択されていない状態の時に「選択されてませんよ」ってメッセージを出して
ユーザーに選択をさせ直すようにしたいのです。
そんなに日本語変？
>>725 >コンボボックスがデフォルトのまま…
っていうのは、コンボを未選択状態(ListIndex=-1)にしているのか？
それとも、デフォルト状態という設定をコンボボックスにしているのかによって、
判定方法が変わってくると思うのだが…
736 ：
725 ：2006/06/24(土) 20:20:07
>>735 未選択状態って言うのは(ListIndex=-1)の状態です。
何かこれ以上続けるとスレ汚しになりそうなので(私が未熟なために)、方法も
含めて最初からやり直してみます。
レス頂いた皆さん、有難うございました。
>>734 「選択されていない状態」を知りたい、って事なのか？
ここは国語の勉強をするスレですか
本当は正しい用語があるんだけど質問する側も答える側もそれを使わないから会話がかみ合わない
そして739も実は正しい用語を知らないから､余計ややこしいw
で、本当の質問は何なの？
If a = 1 Then abc
744 ：
743 ：2006/06/25(日) 01:25:40
自己解決
VB.NETでちょっとしたテキストエディタを作っているのですが、
CInt(Math.Rnd()*f1sw)
> プログラムのミスかな
オブジェクトを流す、ねぇ・・・
一般的に言語標準の乱数発生機能は数学的に作り出す擬似乱数で乱数の種（初期値みたいな物）が同じだと同じ結果を返す
文字列で書かれた数式を、数式として扱うことはできますか？
>751
755 ：
752 ：2006/06/25(日) 20:06:39
>>753 返信ありがとうございます。
"eval"でぐぐってみました。
どうやらVB6.0では使用できない関数らしいですね(VB Script 5.0で使える？)。
書き忘れていて大変申し訳ないのですが、当方VB6.0を使用しております。
もしご存知でしたら、VB6.0でeval関数を使用する方法をお教えいただきたいです。
よろしくお願いいたします。
>>756 マジで？
外部のVBSを実行したり､WSHの公開オブジェクトを参照したり出来るのは知ってるが
VBS自体が使えるのは知らなかった。
>>757 みたいにScriptControlオブジェクトのEvalではなく､VBSのEvalを使う方法を紹介してくれ。
所ジョージさんのアタマ～
761 ：
752 ：2006/06/25(日) 21:46:25
>>756 >>757 ありがとうございます。
紹介していただいた方法を参考に、少し調べてみようと思います。
どうもありがとうございました。
758≠752か…
>>758 ぷぷぷぷぷ～～～ 『VBS Eval』でググッタラ一番上に出てきたよ～～～～～ｗｗ
Visual Basic 6.0、多分SP6、OSはWindows2000です。
>>766 早い反応ありがとうございます。
書き落としですね、すみません。
えっと、プロパティで確認しても、無効にしてあるんです。
768 ：
デフォルトの名無しさん ：2006/06/27(火) 22:35:28
教えていただきたいことがあります。
>>767 >550 みたいに追加の仕方が悪いんじゃないよねぇ？
>>765 追加する度に追加するテキストと追加後の結果を見ればわかるだろう
771 ：
765 ：2006/06/27(火) 23:07:52
>>769 いえ、indexは省略しています。
ソートによる空白の扱いが、テキストと違うのが気になっています。
数字と平仮名があつ時、数字項目に空白があった際、
＜ListView＞ ＜テキスト＞
””,あ 01,あ
"",い 01,い
01,あ 02,あ
01,い 02,,い
02,あ ””,あ
02,,い "",い
こんな風になるんです。
>>770 その通りですね……。
今手元にコードも開発環境もありませんが、確認してみます。
お客様VBAのほうおまたせいたしました
773 ：
デフォルトの名無しさん ：2006/06/28(水) 04:20:19
age
774 ：
デフォルトの名無しさん ：2006/06/28(水) 09:37:32
>>765 一つのループで追加と書き出しできないの？
775 ：
デフォルトの名無しさん ：2006/06/28(水) 14:50:47
コンボボックスでそのコンボボックスが開かれている（ドロップダウンされているといったら
そんなことを知ってどうするのかのほうが気になる
気にすんな。
>>777 まぁ少なくともフォーカスのない時は閉じてるわな。
781 ：
777 ：2006/06/28(水) 22:43:35
閉じてるときに文字列入力してEnter押したらリストの中から入力文字列を含むItemだけを抽出して
一文字入力ごとにリストがでるＡＪＡＸのほうがかっこいいのに
>>782 誰もそんな話をしてないし。
ここで未だにVB6でやってる時点で前提があるんだから。
>>781 「閉じてるときに文字列入力」って、何処に入力するか知らんけど、
テキストボックスだとしたら、入力した瞬間に閉じるのでは。
フォーカスが移動するし。
>>782 VBでやってAJAXよりも遅かったら悲惨
> VBでやってAJAXよりも遅かったら悲惨
>>786 「これの方が良い」との結論に納得するかどうかは質問者の自由だが、
「これの方が良い」と主張する自由が回答者にもある
これの方が良いのブルース
>>786 _＿ / ／
／/⌒ヽ / ／
_, - '' .i ! ／
r=＝- ´ |,,rt | / 、``＿ .┼┐
.＿. r´lｌ| | i-|_j | / | / /
＼ ￣ ` ｰ ､!＿|_|＿,,,,,,.....,,,,____ ! .!
＼ ヾ／／::::::::;;:'::::::::::;:::＼｀ヽ､_,ノ
＼ /:://::::::／:::::::::／ハ:＼ヽ i! ＼
／"￣ｦｽ::|.|:::::/:;r―＜|::/--||:::|:::| i! ＼
:::,",´／ﾄ:::|.|:::://,ｨ"ﾐｌ l/ r=ｖ||:::|l:| i!
ｲr::/ !:/~|::// ! ヒ.ﾘ L.ｌ| ||:::||! i!
|l.|::| !|i´ﾚ'|:| ､､､ ,. ､ |ﾙ:| i!
ｌl.|l::| ヾ,`!/. Fﾆﾆi / |! i!
;| ||::| 丶l 丶、 `ｰ ' ／ ,i!
;|::|.|::| l i.゛"´ √と"Y
ｌ|::|.|ﾉ _ノ __ _t--､/ (二` .|
|ﾚ ｒ"￣!i 〈 ⊂_｀ |
｛ .ﾉ`ー-=ョ≒ｔ＝＼ゝ /
>>786 なんなんだ、この馬鹿は。
読んでてムカムカした。
はっ、釣り？
言ってる事は間違いではないと思う。
「認めようね」でもうブチギレですよ
>>788 それは786が言ってることと同じだよ。
786は､回答者にも出された条件に合わない方法を主張する自由はあるが､
決定する自由は無いって言ってるだけだし。
Form1のリストボックスを右クリック
それって腐った仕様を押し付けられるデスマプログラマのことを言ってるのか
>>795 モーダルは本当に不具合だらけだから、使わないのが常識。
798 ：
777 ：2006/06/30(金) 12:04:33
>>784 説明不足ですみません、「閉じてるときに文字列入力」というのは
コンボボックスに文字列を入力ということです。
799 ：
デフォルトの名無しさん ：2006/06/30(金) 13:02:41
>>777 Enterなんか使わずにドロップダウンしたら入力されている
文字列の含まれるリストを表示するほうがよいのでは
>>800 それでもよいのですが、ドロップダウンしたときに発生するイベントがないんですよね。。。
あ、すみません、ぼけてました。ＤｒｏｐＤｏｗｎイベント思いっきりありました・・・・
>>799 毎回毎回不可思議な現象に巻き込まれるが、
結局何も分からないままほったらかしに・・・
どうせ自分が理解してないだけだろ。
806 ：
デフォルトの名無しさん ：2006/07/01(土) 12:55:00
すみません。今アクションゲームを作っているものですが、先日は大変お世話になりました。
前世で一緒に闘った仲間を探しています。
808 ：
デフォルトの名無しさん ：2006/07/01(土) 17:21:30
>>806 です。書き忘れすみません。
ＨｉｔｏとＢｌｏｃｋは、Ｉｍａｇｅを使っています。
>>808 お前はVB使うな。そしてゲーム作成板へ行け。
>>806 「AfterJump」イベントと「BeforeOnBlock」イベント使えばいけると思うよ
Hito.Left = Block.Left
いしのなかにいる
813 ：
デフォルトの名無しさん ：2006/07/02(日) 14:24:59
>>806 です
ありがとうございます。
やってみます。
814 ：
_ ：2006/07/03(月) 07:29:30
Inet使ってHTTP通信を行っているんですが、
>>814 socketのAPI使ったらいいんじゃない？
817 ：
デフォルトの名無しさん ：2006/07/03(月) 23:10:27
>815
ﾅｲｱﾙ厨って定期的に湧いてくるのなw
ちゃんと答えでてるし。
>817
いい質問のあとでアホなこと聞いてすみませんが
>>823 MsgBox を表示したら、それを閉じる迄
コードは其処で止まるんだが。
>>823 Main.vbs Msg.vbs
処理開始
├───起動─→msgbox "処理中"
│
↓
処理完了
├───通知─→（メッセージボックス閉じる）
↓ ↓
終了 終了
意地でも１ファイル内で済ませたいなら知らん
作成したexeファイルに引数をつけてバッチファイルとして実行したいのですが
command
>>827 それはどこでやればいいのでしょうか？
重ねてソースコード上でどのように書けばいいのかと
バッチファイル自体はどうやって作るかも教えて頂けるとありがたいです。
>>824 >>825 ありがとうございました。確かにそうですよね
ですが私はメッセージボックス閉じる方法すら判らない厨でして。。。
ぐぐってきます
>>830 すいません。バッチファイルについてはスレ違いでした。
もう1つ、引数として何が指定されたかを
VBのソースコード上でどのように判断すればいいかわからないのです。
>>831 答えてもらってるんだから少しは自分で調べろよ
StringやSpaceの使い方で気になったんだけど
質問する側もエスパーじゃないとダメなの？ このスレって。
>>834 普通即値なんて使わないでしょ。
「" "」が必要だとして、その３バイトの空白には
必ず意味がある筈なんだから。
そういう意味では、Space$(893) も失格。
この「８９３」という値には意味がある筈なので。
837 ：
デフォルトの名無しさん ：2006/07/04(火) 19:43:14
ハードコーディングすんな
840 ：
817 ：2006/07/04(火) 20:47:07
>>822 Sleep取りながらループ回し､有る一定時間readyState=4にならなければ､という処理をしろというなら
その結果が
>>817 で書いた｢(10分以上待ったが反応無し)｣であり､
実際には10分も必要なく数秒でじゅうぶんだけど､普通に取得できる場合は1秒以下で処理が終わるため
例え1回数秒でも処理回数が多くなると膨大な時間になり､やはり
>>817 で書いたように
そういう処理に時間の掛かる方法は避けたいです。
通常1秒以下で取得できるなら､1秒以上をdat無しと判断すれば良いと言うかも知れませんが
鯖が重い場合は正常取得に1～3秒掛かる場合もあるので､最低5秒くらいは待たないと正しい判断は出来ないと思われます。
>>822 の回答がそういう意味じゃないなら､もう少し詳しく教えてください。
また､上記のような解釈でいいのなら､別な回答をお待ちします。
>817
>823
>>842 ありがとうございました。
ＶＢＳではどうやら自分デザインは出来ないみたいなんですよ
今更とか言われてるけどＶＢ覚えてみようかな
844 ：
817 ：2006/07/05(水) 07:04:38
>>841 そういった方法だと､
｢待てる限界時間｣を基準にすると､鯖が重いときに正常取得出来ず､
正常取得できる時間を基準にすると､｢待てる限界時間｣を越えてしまうという話です。
datが無いなら無いで､きちんとStatus=404なりなにかを取得出来る方法を探してます。
845 ：
834 ：2006/07/05(水) 10:22:01
>>836 普通に即値使うこともあるんだよね
バカでごめんよ
>>842 Constするべきならそうするけど
たった一つのプロシージャ内で、そこでのみ必要だよ、とかいった場合
893ものスペースはベタ打ちせずにSpace$(893)て書くけど
たった3、4のスペースだった場合は、どうなのかなと
>>845 そのコードを死ぬ迄あんたがメンテするなら好きに書けばいい。
>>845 たった、３、４でなくてそのスペースにはどういう意味が有るのかが重要
昨日の自分は別人と考えてプログラムを作る習慣をつけろ
848 ：
834 ：2006/07/05(水) 12:12:39
>>845 うん
>>847 意味・・・単なるラベル表示のインデントだとか
要するに、そこに"000"かString$(3,"0")かを記述しなきゃいけない場合に、
あなたならどっち使う？
ってことなんだけどさ
それでもそこだけのためにConst準備しとくんだ、とか
絶対そんな状況にならないぞ、とかって人はスルーしてくれ
849 ：
デフォルトの名無しさん ：2006/07/05(水) 13:01:15
つうか、コードのその箇所を探すっていう手間が理解できない人には何言っても駄目。
850 ：
834 ：2006/07/05(水) 13:49:06
>>849 考えすぎだと思う
まああんましイライラしないでくれ
>823
852 ：
デフォルトの名無しさん ：2006/07/05(水) 16:45:29
Constだの
頭の悪そうな質問をしてくださいスレなくなったと思ったらここか
854 ：
817 ：2006/07/05(水) 20:52:44
>>851 はい､最初から｢処理に時間の掛かる方法は避け｣て
｢datの存在の有無を直接判断できる方法｣が知りたいと書いております。
>>851 さんの｢>817｣はおそらく
>>844 宛てだと思われますが
自分としては､条件を後出ししたわけではなく､こういう理由で
最初書いた条件に合いませんと書いただけのつもりなのですが。
具体的にどの位の時間までOKか書かなかった非は認めますが､
｢上記を含め｣の｢上記｣に当たる方法が､正常にヘッダを取得できた場合よりは遅いとは言え
鯖が重くなければ0.5秒以下で終わるようなものなので､それより速い方法を探してるという意味で書きました。
引き続き宜しくお願いします。
最初のカキコでVBSの質問だって書いてるのに､DoEventsとか出してくる
質問させていただきます。
>>856 U = 0
For i = 1 To T
S = S * Exp(...)
If S < K Then
U = 1
EndIf
Next i
u = 0;
煽りながらミスすると恥ずかしいだけだぞｗ
うーん857も858もうまくいかない・・・
どううまくいかないのかかけ。
858ので実行すると構文エラーになります。
書き忘れました、
エスパー同士勝手にやってろ
857ので実行すると、目的関数である
あーほ。お前もうくんな。
どうせ宿題だろ。
格好は無理でもああいう落ち着いた話し方をしたいとかは思った
華麗に誤爆
十分ヒントにはなるはずの情報を活用する頭がないならあきらめろ。
875 ：
デフォルトの名無しさん ：2006/07/06(木) 15:27:04
6桁の数値から、一見不規則な6桁の数値に変換して
適当にXOR
って6桁にならねーな、はは
>>875 元の数を全部配列に記憶しておき、適当な乱数で６桁に変換すればいい。
元に戻すのは、配列の当該位置を参照するだけ。
880 ：
875 ：2006/07/06(木) 16:30:47
ありがとうございます。ですが・・・
>>878 可逆でなくなったり、６桁以上になってしまいます。
>>879 元の数は0～999999すべて発生するため
配列の確保や変換（シャッフル）の時間に問題が発生します。
XORでいいじゃん。
882 ：
デフォルトの名無しさん ：2006/07/06(木) 18:02:51
Visual Studio 6.0 を Windows Xp Professional にインストールしようとしたら、途中で止まってしまいます。
>>875 フォームに
textbox * 2
commandbutton * 2
はって、以下のコード張る
Dim a As Long
Dim b As Long
Dim tmp As Long
Dim i As Long
Private Sub Command1_Click()
tmp = Int(Text1.Text)
Call Randomize(tmp)
a = Int(Rnd(0) * 100000)
End Sub
Private Sub Command2_Click()
For i = 0 To 1000
DoEvents
Call Randomize(i)
b = Int(Rnd(0) * 100000)
If a = b Then
DoEvents
Text2.Text = i
Exit For
End If
Next i
End Sub
おっと
886 ：
デフォルトの名無しさん ：2006/07/06(木) 18:21:43
>>883 よろしくお願いします。
C:\Program Files\Microsoft Visual Studio\Common\Tools\VS-Ent98\Vanalyzr\VALEC.EXE
でユーザが取得できないというエラーでした。
その時はＣＤが１枚目で途中終了してしまいました。
ネットに接続したら上手く行くのでしょうか？
888 ：
デフォルトの名無しさん ：2006/07/06(木) 18:32:54
>>887 ありがとうございます。
明日会社に出てから、さっそくやってみます。
htmをテキストファイルとして取得して
W3getとかのヘルプを読む
>>884 tmp の値により a は一意にならないから
a から元の値を求めることはできない。
892 ：
デフォルトの名無しさん ：2006/07/07(金) 13:10:24
vbsで質問です。以下のプログラムを書きました。
>>892 chk = 5
if ((0 <= chk) Or (chk <= 10)) then
msgbox "正解"
else
msgbox "違う"
end if
ほとんど正解
896 ：
892 ：2006/07/07(金) 14:12:30
アルファベットを入れた時もNGにしたいのですが、どうやれば良いですか？
897 ：
デフォルトの名無しさん ：2006/07/07(金) 14:27:10
○前提１
>>897 リネーム処理なんてディレクトリエントリを書き換えるだけなので一瞬。
リネーム中は、そのファイルに対して何も処理は出来ない。
また、そのファイルが処理中なら、リネームは出来ない。
899 ：
デフォルトの名無しさん ：2006/07/07(金) 15:36:54
>>898 ありがとうございます
>リネーム処理なんてディレクトリエントリを書き換えるだけなので一瞬。
ですよね？ただ、上にそう言っても、
「一瞬だろうが0ではないから、そのタイミングで「LOG.txt」に対する書込みが来たらどうするんだ」
とか言って納得しないんですよ。
(仮にそのタイミング「LOG.txt」がロック状態だとしたら欠落するから)
MSか何かその辺りの仕様の記されたものってありますかね？（今のトコみつからない
リネーム ■ ■ （リネーム2回
ログ書き ■■■ ■
CPUの割当てがこうなら間違いないと思うんですけど
リネーム ||||| ||||| （リネーム2回
ログ書き ||||||||||||||| |||||
こんな感じだとしたらリネーム中のファイルの状態はどうなっているのか
>>899 ディレクトリに数千～数万ファイルあるとその書き込みにも数秒かかる(マジで)
あと、リネーム時のロック状態はネットワーク上のファイルとローカルファイルシステムでも動きが違う
↑なので
902 ：
デフォルトの名無しさん ：2006/07/07(金) 15:51:57
>>900 同一フォルダ内には基本一か月分(30ファイル)です。
あって精々100ファイル程度かと
ファイルはローカルです。
903 ：
デフォルトの名無しさん ：2006/07/07(金) 15:53:52
>>901 「wLOG.EXE」は既製品なので手を加えられないんですorz
>>899 書き込み中のファイルはリネームなんて出来ない。そんなの数行ですぐ試せるだろ。
逆にリネーム中のファイルはオープン出来ない。そんなの数行ですぐ試せるだろ。
莫迦な「上」には昔本当に苦労したので、その辛さはよぉーーーーーーーーーーーく分かります。
めげないで頑張ってね。
ちなみに私の場合、例えばあるウィンドを開いていて、次に別のウィンドを最大化で開き、
その最大化したウィンドを最小化してアイコンにした場合、さっきのウィンドが下から現われるのは
お前のバグだ、とか色々言われました。
そんな「障害票」を１００枚以上書かされたな。
905 ：
デフォルトの名無しさん ：2006/07/07(金) 16:00:11
>>904 > 書き込み中のファイルはリネームなんて出来ない。そんなの数行ですぐ試せるだろ。
はい、実験済みです。
> 逆にリネーム中のファイルはオープン出来ない。そんなの数行ですぐ試せるだろ。
これが実験できないんですよ、
リネームは「Name "LOG.txt" as "WORK.txt"」でやってるんですけど、
これが一瞬でおわるので、どうしたものやら…
Name "LOG.txt" as "WORK.txt"
open "LOG.txt" for append as #FN
debug.print "open"
close #FN
これじゃ意味ないですよね？どうしたらいいでしょうか？
> 莫迦な「上」には昔本当に苦労したので、その辛さはよぉーーーーーーーーーーーく分かります。
> めげないで頑張ってね。
> ちなみに私の場合、例えばあるウィンドを開いていて、次に別のウィンドを最大化で開き、
> その最大化したウィンドを最小化してアイコンにした場合、さっきのウィンドが下から現われるのは
> お前のバグだ、とか色々言われました。
> そんな「障害票」を１００枚以上書かされたな。
それはまた…
お互い苦労しますねｗｗ
質問は簡潔に書け。話はそれからだ。
>>905 「AAA.Txt ←→ BBB.Txt」とかでひたすらリネームし続けるプログラムを動かしつつ、
その両方のファイルをオープンして何か書いて閉じ続ける別のプログラムも動かせ。
908 ：
デフォルトの名無しさん ：2006/07/07(金) 17:26:20
>>907 ・「LOG.txt」から「WORK.txt」にリネームして、「WORK.ｔｘｔ」を削除しつづけるプログラム
・「LOG.ｔｘｔ」を追記モード(append lock read write)で開いて、書いて、閉じるプログラム
上の二つを作って試したところ、
追記に失敗しているケースが多発しました。
要はファイルリネーム中は、ファイルに追記できないということですね。
そうすると
最初の前提１の
※上述のように、「LOG.txt」がロック中「wLOG.EXE」は書込みを行ってくれませんが、
「LOG.txt」には"絶対に全てのログ"を書込むようにしたい。
これは不可能ということになるのかな？
既製品で修正できないって自分で言ってるんだから不可能だろ
>>897 経緯が良く分からないので疑問にだけ答える。
> ・リネーム処理はファイル状況によって処理時間に違いがあるのでしょうか？
> 10KBと1GB、あるいは無数に断片化している場合など、どうなるのでしょうか？
リネームはファイルのメタデータに対する更新なので、ファイルサイズや
ファイル本体の断片化などは関係ない。
FATもNTFSも同様。
> ・リネーム「Name "LOG.txt" as "WORK.txt"」の処理中のファイルの状態はどうなるのでしょうか？
> ロック状態になるのでしょうか？
ファイルに対するアクションは、ファイルシステムがキューイングするので、
通常は、アプリケーションから見れば、「リネームされていない状態」か、
「リネームされた状態」のどちらかしかない。
「通常でない」場合というのは、そのアプリケーションが、物理ディスクの読み書きをする
アプリケーションの場合。
・追記に失敗しているというはどこから分かるの？
914 ：
デフォルトの名無しさん ：2006/07/07(金) 23:18:34
>>910 「WORK.txt」は解析処理後に削除するので、試験プログラムでも削除。
「LOG.txt」-リネーム→「WORK.txt」-解析処理→「WORK.txt」削除 の手順。
>>911 ありがとうございます。
「通常でない」場合は、「リネームされていない状態」「リネームされた状態」の他の状態があるとうこと？
…いや、ちがうか
>>913 「wLOG.EXE」が「LOG.txt」に書き込むときに、
「書き込むことができません。」っていうエラーが吐かれてましたので
>>914 >「通常でない」場合は、「リネームされていない状態」「リネームされた状態」の他の状態があるとうこと？
通常のアプリケーションから見るとリネームされているが、ディスクには書き込まれてない状態
がありうる。Windowsは、ファイルのキャッシュだけでなく、メタデータも遅延書き込みを行う。
単なるアプリであれば気にする必要はない。
そもそも、そんな事はアプリ側で何も気にせずガンガン処理すれば、ＯＳが全てうまくやってくれる筈だが。
>>916 wLOG.exeがどのような処理シーケンス（API呼び出し）でファイルに書き込んで
いるのかがわからなければ、そうはいえない。
>>914 そもそも、内部処理の仕様がわからないwLOG.exeを相手にした解析をするので
あれば、wLOG.exeが起動中に勝手にリネームしたり削除したりするのが間違い。
rLOG.exeは、起動単位ごとに、LOG.txtのどこからどこまでを解析したかを記憶
しておき、次回はその続きから解析するようにすべき。（シークする）
例えばUnixのデーモンプロセスなどは、ログファイルを切り替える通知を外部から
受け付ける機能を初めから実装している。wLOG.exeがそのような機能を持って
なくて、なおかつ内部構造が不明なのであれば、上記のような方法を取るしかない。
918 ：
デフォルトの名無しさん ：2006/07/08(土) 00:34:14
>>915 Windowsの正規手順を無視したディスクアクセスってことかな？
そんなアプリあるの？？
>>916 そう思ってましたｗ
でも処理ぶん回す試験PG作ったら何かエラーでたんですよorz
>>917 「ログファイルを切り替える通知を外部から 受け付ける機能」
は持っていなさそうなので、
> rLOG.exeは、起動単位ごとに、LOG.txtのどこからどこまでを解析したかを記憶
> しておき、次回はその続きから解析するようにすべき。（シークする）
の方法にするとすると、
LOG.txtの読み込みはシーケンシャルリードでは多少時間が掛かる…
(10M超のファイルで全行ループで1.数Secかかった。これはちょっとかかり過ぎ。
ランダムアクセスが可能かどうか、調べてきます…(やったことないもんで
>>918 > Windowsの正規手順を無視したディスクアクセスってことかな？
そういうこと。たとえばデフラグとかがそういうものに該当する。
920 ：
デフォルトの名無しさん ：2006/07/08(土) 00:40:17
んー、ログが固定長じゃないから厳しいのかな・・・？
>>918 >Windowsの正規手順を無視したディスクアクセスってことかな？
>そんなアプリあるの？？
別に正規手順を無視しているわけではない。Windowsのキャッシュマネージャと
ファイルシステムを介さずにディスクにアクセスするようなアプリだ。
具体的には、Win32APIのCreateFileで直接Volumeをオープンするようなアプリ。
ドラック＆ドロップしたテキストを指定したテキストと結合する様にしたいのですが、
>>923 Shell "cmd /k copy /b " & Data.Files(1) & " + b.txt c.txt", vbNormalFocus
925 ：
デフォルトの名無しさん ：2006/07/08(土) 11:49:47
>>921 ロックされてるファイルをOpenしようとしたときと同じエラーメッセージだった
926 ：
デフォルトの名無しさん ：2006/07/08(土) 11:51:24
固定長じゃないテキストログにランダムアクセスする方法ってありますかね？
そりゃインデックスでもなけりゃむりだろ。
ﾅｲｱﾙ厨w
またﾅｲｱﾙ厨厨か。
速度求めるんなら、そこだけDLLにすりゃいいんじゃね？
多分、速度じゃなくて
>>891 tmpの値により一意になるはずなんだけど・・・
俺の環境じゃなる
934 ：
デフォルトの名無しさん ：2006/07/09(日) 12:01:56
>>928 どんな手法がありますか？
Open～for Randomじゃ無理っぽいんですけど
>>934 いや 無理だよ
長さが変動する以上 ランダムアクセス じゃ無理
テキスト丸ごと読み込んで 先頭から解析するのが 一番簡単かも
936 ：
デフォルトの名無しさん ：2006/07/09(日) 13:53:32
ﾅｲｱﾙ厨じゃないけど、単にランダムアクセス、とういことならそれは可能でしょ。
言ってることはそのとおりだけど、
いや、レコードなんか意識する必要ないんだって。
939 ：
デフォルトの名無しさん ：2006/07/09(日) 15:14:59
そういう話じゃないと思うんですが。。
>>939 いやいやそういう話でしょ。
10MBのファイルを処理した後に20MBのファイルを処理するときに10MB分
読まなきゃならない。次に30MBのファイルを処理するときに20MB分よまなきゃ
ならない。
そうするんじゃなくて、rLOG.exeは常に解析対象ファイルの初めから処理する
ように作っておいて、処理対象のファイルは別途切り出せって話。
で、切り出したファイルの解析は、固定長のログじゃないなら、行読み込みで
えーっと、ですからそれはランダムアクセスと等価（ただしリードオンリー）
いったい何がしたいのかは
>>926 に聞いてみるしかないんじゃないの？
質問者自身が、自分が何がやりたいのか理解してなくて
>>926 データベース使えば簡単なんじゃないの？
freeのだったら、MySQL、PostgreSQL、SQLite、MS SQL 2005 Express
有料のものなら規模に応じて、Access、桐、Oracle
あとはVBとかで好きに加工すればいいでしょう
え？
>>926 =
>>897 でしょ。
何やりたいかは本人も良く分かってるし、アドバイスしてる奴も一部を除いてよく分かってるでしょ。
実は全く関係ない奴が単発質問しただけってオチか
951 ：
デフォルトの名無しさん ：2006/07/09(日) 19:24:40
実は、も何も文面だけ見れば全く別の無関係な質問、
何で同じ奴の質問だと決め付けてるのかサッパリ分からん。
953 ：
926 ：2006/07/09(日) 19:49:40
>>926 =
>>897 です。 色々議論ありがとうございます。
897の疑問と926の疑問は別ですけど、
897の問題からの派生で926の質問があります。(経緯は>>897-
>>926 のログを…
また、926は、
>>937 の言うように、任意レコードへのランダムアクセスのつもりで言ってます。
>>932 信頼性を優先し、ある程度の速度も欲してます。
上の方にも書いてますけど、10M超のファイルで1.数Secかかってます。
これをせめて0.5Sec以下にもっていきたい。
>>938 この手法は興味深いので、ちょっと検討してみたます
>>947 まあ、「wLOG.EXE」がDBでインターフェースとってくれればいいんでしょうけど、
それは無理なので…
無理と決め付ける人間に進歩はない
文章長くて適当に流し読みしかしてないけど、
>>953 根本的なところの指摘なんだけどさ、例えば5秒おきに10MBのログを解析するって、
1行80byteだとすると1秒あたり25000行の解析になるんだよ。
VBで大丈夫なの？
あー、もういいじゃん、
>>926 も再登場したわけなんだから
質問を簡潔にまとめてくれよ。
963 ：
926 ：2006/07/09(日) 23:53:21
>>958 1日最大(？)40000行くらいいくログで、
その内処理が必要なのは20000行弱(1行の処理は0.23Secくらいかかる)
それで、40000行くらいの中から、処理対象行数を走査するのに1.7Secくらい掛かりました。
タイマーは3秒～5秒を想定しているので、いちいち頭から読むのはかかり過ぎかなと…
>>955 どういう方法がいいでしょうか？
あー、5秒おきに起動するんじゃなくて、5秒ごとに解析したいわけね。
965 ：
デフォルトの名無しさん ：2006/07/10(月) 00:35:03
>>964 readモードでOpenしっぱなしにするって言うことですか？
ログの読み込みは
do until EOF(fileno)
line input #fileno strline
loop
ッテ感じでやってますけど、これを定期的にコールする？
967 ：
デフォルトの名無しさん ：2006/07/10(月) 09:07:03
>>966 いや、それじゃないｗｗ
例えで「ｗLOG.EXE」っていってるだけｗ
968 ：
デフォルトの名無しさん ：2006/07/10(月) 13:32:46
はじめまして。
969 ：
875 ：2006/07/10(月) 13:47:51
>>968 筆算をプログラム化する
途中で同じ数値になったら循環小数にする等の処理を加える
x = 10
For i = 1 To 50
. Debug.Print x \ 7;
. x = (x Mod 7) * 10
Next i
>>965 そのdo ～ loop内に解析処理そのもの、あるいは読み込んだログを
メモリ上に保存するのなら、その通りだ。
971 ：
デフォルトの名無しさん ：2006/07/10(月) 15:11:00
>>970 Open FilePath For Input As #intFileNo
Do Until EOF(intFileNo)
Line Input #intFileNo, strLine
'対象行判定
Loop
Close #intFileNo
って感じでやってますけど、
そもそもreadモードでOPENしっ放しができない…
OPEN中に書き込もうとするとエラーになる。
>>964 の意味を下のように解釈したんだけど、違うのかな？？
<<メイン>>
①起動 ファイルオープン
②タイマー開始 <<Read処理>>
③終了 ファイルクローズ
<<Read処理>>
Do Until EOF(intFileNo)
Line Input #intFileNo, strLine
'対象行判定
Loop
EOFで処理終了。
次回<<Read処理>>コール時は、
前回EOF位置からLineInputが開始される。
972 ：
デフォルトの名無しさん ：2006/07/10(月) 15:18:24
>>964 > んじゃ、起動しっぱなしにしとけば？
> そうすりゃ先頭からシークする必要ない。
これの意味が分からない。
「ｒLOG.EXE」は起動しっ放しです。タイマーで数秒置きに解析処理を実行します。
ファイルOPENしっ放しだと「wLOG.EXE」がログを落としてくれないので、都度Closeしなきゃならない。
そうするとシークする必要があるような気がする。
どうやったらシークを省いてダイレクトに増分から読み込めるのでしょうか？？？
もういっそのことさ、Cで一行読み込んでくれるDLL書きなよ。
>>972 >ファイルOPENしっ放しだと「wLOG.EXE」がログを落としてくれない
そんな重要なことは最初に書けよ。
だったら処理対象範囲のログを切り出すしかないだろ。
いや、切り出すためにファイルをオープンしたら、その間も
だから最初にいったろ
ええ？VBのOpen For Inputステートメントって、書き込み権の排他ロックも
978 ：
デフォルトの名無しさん ：2006/07/10(月) 16:56:44
>>974 ファイルロック中はダメっていうのは試験済みで
>>897 で書いてますけど、
「Open FilePath For Input As #intFileNo」 でダメっていうのは今日試験したので…
「Open FilePath For Input As #intFileNo」で開いたファイルを
メモ帳で更新すると更新できるので、Readモードでは開けているってことかな？
ただ、
>>971 の目論見は不可能だったので、どのみちダメか…
>>973 >>975 やっぱ、切り出すためのOPENでも一緒ですかね
実運用の頻度+αで、リネームでの書き込みエラー発生をもう少し調べてきます。
OPENよりはリネームのが早いと思うので…
979 ：
デフォルトの名無しさん ：2006/07/10(月) 16:58:49
>>977 ごめんなさい。使ってたエディタ(EmEditorF)が悪かったみたい。
メモ帳ではOPEN中の更新できた。
>>977 デフォルトがLock Read Writeじゃなかった？
>>980 えええええ？
書き込み権のみならず、読み込み権の排他ロックまで獲得しちゃうの？
なんだそりゃ。
982 ：
926 ：2006/07/10(月) 17:19:14
ランダムアクセスじゃないけど、読込位置の取得は
Open For Binary は試してみたの?
984 ：
926 ：2006/07/10(月) 17:32:05
Open FilePath For Input Access Read Shared As #intFileNo
だからCから試してみろと何度言ったら（ｒｙ
なんでFSOとかAPI使わねえんだ？
987 ：
デフォルトの名無しさん ：2006/07/10(月) 17:59:13
>>985 ファイルIOくらいなら書けると思うけど、Cは経験浅いので。
あとなるたけVBでやりたい。
>>986 FileSystemObjectは分かるけど、APIはどんなのあるか知らないのです。
けど、FSOにしてもAPIにしてもOpenステートメントと違うのかな？？
書き込みでLock Readしてるだけの話だが既製品で修正できないって
>>987 OpenFile ってそのものの名前のＡＰＩがあるよ。
これなら、非常に細かく制御出来る。
990 ：
デフォルトの名無しさん ：2006/07/10(月) 21:01:32
>>985 #include <stdio.h>
int main(int argc,char *argv[]){
FILE *fp;
char line[256];
char c;
if(argc!=2){
exit(1);
}
if((fp=fopen(argv[1],"r"))==NULL){
exit(1);
}
printf("%s開きました\n",argv[1]);
printf("終了しますか？\n");
scanf("%c",&c);
fclose(fp);
return(0);
}
とりあえず、こんなんで試したけど。ダメだったよ。
open中はログ書けない。
>>988 のいう通りかな。
こっち方面では諦めるしかないのか…
ウィンドウを最前面にしたいのですが、アクティブにはしたくありません。
ﾜﾛｽｗ
993 ：
デフォルトの名無しさん ：2006/07/11(火) 02:09:43
ExcelのVBAについて質問。
空シート印刷してどうするの
だな
998 ：
デフォルトの名無しさん ：2006/07/12(水) 05:19:38
そんなことより次スレ立ててくれ
999 ：
デフォルトの名無しさん ：2006/07/12(水) 10:17:03
だが断る
1000 ：
デフォルトの名無しさん ：2006/07/12(水) 10:18:22
.,。 ,。
1001 ：
１００１ ：
Over 1000 Thread このスレッドは１０００を超えました。