(*´д`*)ｱﾊｧ… VB初心者質問スレ Part21

このエントリーをはてなブックマークに追加
952 ：デフォルトの名無しさん：03/02/27 10:02
ネットワークドライブに接続して、そこのフォルダにDIRしたら、
そのままつかんじゃって切断できません。なにかうまい方法はありますか？
953 ：デフォルトの名無しさん：03/02/27 10:37
>>947
下

>>952
Dirの使い方間違ってるかFSOで代用する
954 ：デフォルトの名無しさん：03/02/27 10:43
>>947
ウソついた。上。
暗黙の型変換について調べることをオススメする。
955 ：947：03/02/27 11:02
>>954
VBの中で何かが起こってるんですね。ありがとうございます。
956 ：デフォルトの名無しさん：03/02/27 12:01
フォルダ階層を順に追っていって、あるフォルダの中にある
すべてのフォルダ・ファイルにアクセスするにはどうしたらいいでしょうか。
色々試行錯誤してはみたのですが、どうもうまくいきません。
957 ：デフォルトの名無しさん：03/02/27 12:17
>>956

再起検索しる。

sub hoge(pathHoge)

　　a=Dir(pathHoge)
　　Do While a <> ""
　　　　aの値を配列にでも格納しる
　　　　a = Dir()
　　Loop

　　For 配列の中身
　　　　Call hoge(配列(i))
　　Next
End Sub

みたいな感じ。

間違っても、Dirで列挙している最中に再帰呼び出ししてはいけない。
Dir関数が腐るぞ(笑
958 ：828：03/02/27 12:23
どうよ？ >>828
959 ：デフォルトの名無しさん：03/02/27 12:43
>>958
SQLのスレ逝け
960 ：817：03/02/27 12:55
>>884
ﾏｼﾞﾃﾞｽｶΣ(゜д゜|||)

Oracleスレはだれも反応しないし
ネット漁っても引っかからないし・・・

(´･ω･｀)ﾓ ｳ ﾀﾞ ﾒ ﾎﾟ
961 ：デフォルトの名無しさん：03/02/27 16:20
VBからCで作ったDLLのDllMainを呼び出すにはどうしたらいいのですか？
962 ：デフォルトの名無しさん：03/02/27 16:28
>>961
Declare か　LoadLibrary
963 ：961：03/02/27 16:32
>>962
DllMain(HINSTANCE hDLL, DWORD dwReason, LPVOID lpReserved)
呼び出す時にこの引数の中に何も入れたくないんですけど無理ですか？
964 ：デフォルトの名無しさん：03/02/27 16:43
カンマ区切りの行ファイルがあって、そこからカンマを抜きにしたデータを
1つずつ取り出すにはどうしたらよいでしょうか?
965 ：962：03/02/27 16:57
>>963
どっかでみたような質問だな

引数に何も入れたくないってことは全部値0でってことか？
DllMainがエントリポイントである限り無理だと思われ。

何でそんなことがしたいわけ？
966 ：デフォルトの名無しさん：03/02/27 16:58
>>964

Dim arrayHoge() As String

arrayHoge = Split("hoge,hoe,hanyan", ",")

For i = 0 to Ubound(arrayHoge)
　　Debug.print arrayHoge(i)
Next
967 ：964：03/02/27 17:12
>>966
ありがとうございます
968 ： ◆HLRHHB4j46 ：03/02/27 17:59
アドレスwww.uploader/forlder001/にファイルをアップしてみた。
というカキコミから
www.uploader/forlder001/
だけを抜き出すにはどのような正規表現を使えばいいの？
当方InStr関数とかは使えるけど正規表現はｻﾊﾟｰﾘ。
969 ：デフォルトの名無しさん：03/02/27 20:17
「www.uploader/forlder001/にファイルをアップしてみた。」
というアドレスだったらどうする？
970 ：968 ◆HLRHHB4j46 ：03/02/27 20:24
>>969
全角文字列・/を含んだ半角文字列・全角文字列
という1行から/を含んだ半角文字列を抜き出すアルゴリズムがほしいのよ。
だから
「www.uploader/forlder001/にファイルをアップしてみた。」
というアドレスは無視。
ちなみに
upSHITEMITAYO----------KOKONI-----www.uploader/forlder001/
というようなのもupSHITE〜001/まで抜き出してしまってもかまわない。
とにかく/を含んだ半角文字列はアドレスである確立が高いのでそこを抜き出したい。
971 ：デフォルトの名無しさん：03/02/27 20:25
まぁ、普通はURLとして不正な文字があるかどうかチェックだな。
２バイトURLは見なかったことにする。

w+\...+\/.+[^!#-;=?-~]
ってな感じかなぁ。試してないけど。
972 ：968 ◆HLRHHB4j46 ：03/02/27 20:34
>>971
Dim myStr as String
myStr="www.uploader/forlder001/"
myStr2="アドレスwww.uploader/forlder001/にファイルをアップしてみた。"
'だとすると、
If myStr = (w+\...+\/.+[^!#-;=?-~](myStr2)) then
form1.caption="アドレス抽出しました。"
End if
'のように正規表現は使うわけ？

正規表現の書き方は今日教えてもらった
w+\...+\/.+[^!#-;=?-~]
をコピペして使ってみるけど
正規表現の使い方がわからないのだ。
973 ：968 ◆HLRHHB4j46 ：03/02/27 20:36
つまり、
myStr2="アドレスwww.uploader/forlder001/にファイルをアップしてみた。"
に対してどうやって正規表現を使ったら
"www.uploader/forlder001/"
が出てくるのだろうか？
974 ：デフォルトの名無しさん：03/02/27 20:50
「半角文字列を抜き出すアルゴリズム」
　規定した文字列で連続するもの毎に配列に入れる処理
　IN　"つまりYouはこうEたい訳だ、「となりのuploader/forlder001/ってかっこEeeee」"
　OUT　You E uploader/forlder001/ Eeeee
「アドレスかどうか判定する処理」
　文字列 like "*.*/*" 程度でいいのかどうか・・
975 ：968 ◆HLRHHB4j46 ：03/02/27 20:56
>>974
そんなことより速戦的な使い方のソースをクレよ。
たぶん
Set mySeiki = 正規表現オブジェクト
みたいな感じで宣言すると正規表現が使えると思うんだよね。
976 ：デフォルトの名無しさん：03/02/27 21:08
>>975 そうか、がんばって探しな
977 ：968 ◆HLRHHB4j46 ：03/02/27 21:09
>>976
自分で探した方が早いなんてなんてスレだっ
978 ：デフォルトの名無しさん：03/02/27 21:10
>>968
「set 正規表現 オブジェクト」でgoogleしたら
すぐにヒットしたけど？
979 ：デフォルトの名無しさん：03/02/27 21:10
>そんなことより速戦的な使い方のソースをクレよ。
あはははははははははははははははははははははははははははははははは。
てめーで検索しろよ、間抜け野郎！

ここで探せ：
http://www.google.co.jp/search?q=vb+regexp&ie=UTF-8&oe=UTF-8&hl=ja&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja
980 ：968 ◆HLRHHB4j46 ：03/02/27 21:11
>>978
検索結果をこちらに貼り付けたまへーくるしゅうない
981 ：968 ◆HLRHHB4j46 ：03/02/27 21:12
>>979
regexp
を見て、そうだ！そんな感じだった！と思い出した。
なかなかドキっとしたぞ。えらいえろい
982 ：デフォルトの名無しさん：03/02/27 21:12
最悪の質問者だな…
丸投げｲｸﾅｲ
983 ：デフォルトの名無しさん：03/02/27 21:15
>>968 ◆HLRHHB4j46
思い出したんじゃなくて、今知ったんだろｗ
984 ：968 ◆HLRHHB4j46 ：03/02/27 21:22
>>983
まったく知らなかったんなら正規表現という言葉自体知らないはずだろ。まあ多少の記憶のひっかかりはあった。
無事正規表現使用の見通しもたったところで、この話題はここでピタッと終了〜。
985 ：デフォルトの名無しさん：03/02/27 21:24
性器表現ってなんでしか？
986 ：名無しさん＠そうだ選挙にいこう：03/02/27 21:29
>>985
あー、やっちゃったね。
987 ：デフォルトの名無しさん：03/02/27 22:26
なんで関数(FUNCTION)と手続き(PROCEDURE)に分けているんでしょうか・・・
988 ：デフォルトの名無しさん：03/02/27 22:27
フォルダの中にあるファイルを更新日時順にソートしてそのファイル名
をテキストファイルに書き出したいのですが、なにかいい方法はありま
すでしょうか？
よろしくおねがいします。
989 ：デフォルトの名無しさん：03/02/27 22:41
6.0のWebBrowserは．ｎｅｔでは何て言うのでしょうか？
990 ：デフォルトの名無しさん：03/02/27 22:43
>>989
それをなんで6.0の方のスレで聞く？
991 ：デフォルトの名無しさん：03/02/27 22:47
>>990
どこにも6.0のスレとは書かれていない罠。
ところで次スレは？ないなら立てるけど。
992 ：デフォルトの名無しさん：03/02/27 22:49
>>990
6.0なのココ？
993 ：デフォルトの名無しさん：03/02/27 22:55
>>988
ファイル一覧を取得し、ファイル名と更新日時を配列に突っ込む。
ユーザー定義型の配列か、二次元配列を使え。

んで、その配列をソートしる。
件数少ないならバブルソートでも充分だろ。


激しく手抜きしたいなら、Sorted = True にしたListBoxを用意して、
List1.AddItem Format(FileDateTime(ファイル名),"yyyymmddhhnnss") & ファイル名
っつー手も無いこともない。
書き出す時はForで回して、
　　Print #1, Mid(List1.List(i),15)
とかやる。

…ま、本気で手抜きする時以外は勧めないが。
994 ：990：03/02/27 22:55
や、少なくとも.netよりは近いだろうって事で。



↓次スレよろ。
995 ：デフォルトの名無しさん：03/02/27 22:57
>>989なんですが答えてもらえないのでしょうか？
996 ：デフォルトの名無しさん：03/02/27 23:00
Dim 1000() As Integer
997 ：デフォルトの名無しさん：03/02/27 23:00
Set 1000=ALL
998 ：デフォルトの名無しさん：03/02/27 23:01
1000か？
999 ：デフォルトの名無しさん：03/02/27 23:01
1000！
1000 ：デフォルトの名無しさん：03/02/27 23:01
999！
1001 ：１００１：
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。