VBプログラマ質問スレ（6.0以前） Part54

1 名前：デフォルトの名無しさん mailto:sage [2008/03/03(月) 23:03:01 ] ここは Visual Basic 〜6.0 の質問スレです。 質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、 「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。 VB.NETは別物なので専門スレで、VBA、APIの質問もそれぞれのスレで。 ○ 質問者の心得 　一．質問する前にMSDNやGoogle、過去ログにも目を通してみる。 　二．VBScript、インストーラーなどはこのスレでＯＫ。 　三．質問は第三者にもわかりやすいよう簡潔かつ具体的に。 　四．荒らしは相手しない。 ○ 回答者の心得 　一．答えられない質問は無駄に罵倒せずスルー。無理するな。 　二．代用法を強制しない。 　三．回答する上で必須ではない情報をむやみに聞き返さない。 　四．荒らしは相手しない。 　五．VB情報募集中。 　六．回答は質問者が理解できるよう具体的に。 MSDN Online Japan ホーム 　www.microsoft.com/japan/msdn/default.asp Visual Studio 6.0 Service Pack 6 　msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx Google 　www.google.co.jp/ ※「まず自分で調べる」クセを身につけよう。 159 名前：146 mailto:sage [2008/04/09(水) 22:56:57 ] 皆さんありがとうございます。 ListZip.vbs これでできたのですね。ありがとうございます。 しかし、これをVB6で使用できるようにできません(涙) どこかに標準モジュールないのでしょうか？ 160 名前：デフォルトの名無しさん mailto:sage [2008/04/09(水) 23:37:46 ] アホかおまえは。 普通にDLL使え。 161 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 00:19:24 ] >>117 ついでですがThenの後ろのコロンは要らないです。 >>159 VBSから標準モジュールやクラスモジュールへの移植は そう難しくないと思います。 162 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 01:07:07 ] なにこいつ 163 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 11:34:25 ] あほちゃいますか？ 164 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 11:57:45 ] pc11.2ch.net/test/read.cgi/tech/1203650042/523 165 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 11:58:36 ] だーかーらー、DLL使えって！！！ 166 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 12:29:51 ] 足し算できないやつに積分教えるようなものだ やめとけ 167 名前：デフォルトの名無しさん [2008/04/10(木) 12:57:35 ] VB6でグローバル変数を使わず、すべての関数をカプセル化することは可能でしょうか？ 168 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 13:05:01 ] できるよ。Formがグローバルなのに目をつぶればね。 169 名前：デフォルトの名無しさん [2008/04/10(木) 15:58:13 ] 複数ののCheckboxを使って、optionbuttonみたいな交互動作てできませんか？ 170 名前：デフォルトの名無しさん [2008/04/10(木) 18:39:27 ] アプリを終了してもアプリ自体がタスクに残る不具合が発生しています。 再発条件は不明ですが、不具合発生した環境があれば原因追求をどのようにするのが効率的でしょうか？ 御教授のほどよろしくお願いします。 171 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 19:05:19 ] テキストボックスに16進数の文字がある場合 それを変数に数値として代入するにはどうすればいいですか？ valやConvert関数では出来ませんでした 例　テキストボックスの文字 = 0x1234 (十進数:4660) -> 数値に変換して変数に代入 -> 4660 (数値変数) 172 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 19:10:00 ] >>170 自分でFormの変数宣言しないで、VBが用意してるForm1とかそのまま使ってるんじゃね？ あれってプロパティにアクセスしたりすると自動的にロードされるから、 たぶん終了直前に何らかのプロパティにアクセスして再ロードされたフォームがある OnLoadでブレイクでも入れておけば分かるんじゃないかね もう一つ考えられるのがオブジェクト同士の循環参照だね 173 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 19:12:20 ] >>171 頭に＆HつけてValしろ 174 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 20:36:53 ] なにこれ？ 新人みたいなアホな問いばかりじゃないか。 >>169 余裕で出来るけど？ それが何か？ >>170 終了ボタンを押して終了した気になってる系かね。 Unloadイベント中に何か別のFormなり何なり生成してないかい？ >>171 人に聞く前にMSDNくらい一人で見ようぜ。 175 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 20:49:33 ] >>173-174 それが、 0x12345678 のような 4桁以上の16進数だと型オーバーで変換が出来ません MSDNのヘルプ見てもDouble型までが限界のようです Long型のような8桁くらいの文字(16進)を数値に変換するのにはどうすればいいのかヘルプ見ながら悩んでます 176 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 20:59:50 ] >>175 どうせそんなレベルならVB6みたいな終わってる開発環境使う意味ないだろw まあLongの型指定文字を調べてみることだね。 177 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 21:00:11 ] >>175 文字列右から４文字ずつ区切ってvalして、最後にシフトするのはどうですか？ 178 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 21:18:11 ] >>176-177 CLngという型指定で変換出来ました どうもありがとう 179 名前：デフォルトの名無しさん [2008/04/11(金) 00:18:50 ] >>172 タスクマネージャーでﾒﾓﾘ使用量を確認していると、 各イベント(フォーム起動→終了→以下繰り返し等)を起動するたびに使用ﾒﾓﾘが増加していきます。 循環参照の現象でしょうか？ 180 名前：デフォルトの名無しさん mailto:sage [2008/04/11(金) 00:51:38 ] >>179 循環参照って何のことだか理解してる？ >>172 に書いてある >OnLoadでブレイクでも入れておけば分かるんじゃないかね を実行してなさそうな文章なんだけどやったの？ 181 名前：デフォルトの名無しさん mailto:sage [2008/04/11(金) 03:06:23 ] ﾌﾟﾛｸﾞﾗﾑ板は当たりがきついな 182 名前：デフォルトの名無しさん mailto:sage [2008/04/11(金) 03:09:23 ] >>179 ＞ >>172 ＞ タスクマネージャーでﾒﾓﾘ使用量を確認していると、 ＞ 各イベント(フォーム起動→終了→以下繰り返し等)を起動するたびに使用ﾒﾓﾘが増加していきます。 解放してないから 183 名前：デフォルトの名無しさん mailto:sage [2008/04/11(金) 03:09:56 ] >>181 おしえてぐーなら優しいけどな あと２ちゃんでも女子中学生にはやさしいよ 184 名前：デフォルトの名無しさん [2008/04/11(金) 06:46:11 ] つ「Unload Me」 185 名前：デフォルトの名無しさん mailto:sage [2008/04/11(金) 10:46:53 ] Using src As New FileStream(srcName, FileMode.Open, FileAccess.Read) While True readSize = src.Read(buf, 0, BUFSIZE) ' 読み込み If readSize = 0 Then MsgBox("HIT=" & hval) Exit While ' コピー完了 End If End While End Using このコードでファイル操作の処理をすると 読み込み開始から終了までのあいだフォーム全体が操作不能になります 読み込み処理中でもボタン等の操作を可能にするにはどうすればいいでしょうか？ 中断ボタンを作ってあるのですが操作不能になって機能しません 186 名前：デフォルトの名無しさん mailto:age [2008/04/11(金) 14:44:14 ] Visual Basic Version 5.0 Control Creation Edition pc11.2ch.net/test/read.cgi/tech/1204552981/18 ふと思ったんだが、↑これと↓これ組み合わせて.EXEファイルを作ることできるのだろうか？ Microsoft Visual C++ Toolkit 2003 pc11.2ch.net/test/read.cgi/tech/1109618655/ 187 名前：デフォルトの名無しさん mailto:sage [2008/04/11(金) 17:54:26 ] 上でDLL (OCX)作って、下でそれを使うEXE作るってことは可能だろうね。 そもそもなぜ今更VC++ 2003？ 事情がなければ2005でも2008でも使えばいいだろうに。 188 名前：デフォルトの名無しさん [2008/04/11(金) 19:00:08 ] >>185 つ「DoEvents」 189 名前：デフォルトの名無しさん mailto:sage [2008/04/12(土) 20:13:12 ] ComboBoxでリストから項目が選択してドロップダウン部分が消えた瞬間に任意のコードを実行したいのですが DropDownClosedやSelectionChangeCommitted その他のそれらしいイベントを設定しても 選択→ドロップダウンが消える→再度選択 としないとそのコードが実行されません どのイベントを設定すればいいでしょうか？ 190 名前：デフォルトの名無しさん mailto:sage [2008/04/13(日) 10:23:58 ] Click 191 名前：デフォルトの名無しさん [2008/04/13(日) 10:45:44 ] SAVEデータのようにバイナリデータとShift_JISの文字列が混在するファイルの 文字列部分を編集して書き戻したいのですが Dim FreeNum as Integer Dim Bin1() as Byte , Bin2() as Byte Dim strRes as String FreeNum=FreeFile Open hoge.bin For Binary As #FreeNum Get #FreeNum, , Bin1 Close #FreeNum strRes = StrConv(Bin1,vbUnicode) '本来ここでstrResを編集する Bin2=StrConv(strRes,vbFromUnicode) とした時にBin2はBin1を再現せず、バイナリデータの部分が変わってしまいます。 通常このような操作を行う場合はどのようにすれば良いのでしょうか？ お力を貸して下さい。 192 名前：デフォルトの名無しさん mailto:sage [2008/04/13(日) 18:48:40 ] >>191 それはShiftJISにしたときのバイト数えて詰め物したりでかなり面倒くさい。 結局Cランタイムのfopen系の関数をラップしたActiveXを作ってそれで読み書きさせた。 193 名前：デフォルトの名無しさん mailto:sage [2008/04/13(日) 19:14:58 ] リストボックスで選択した場所から下の項目を削除したいのですが 下のプログラムだとindexエラーが出てうまくいきません For i = ListBox1.SelectedIndex  To ListBox1.Items.Count - 1 ListBox1.Items.RemoveAt(i) Next どう対処すればいいでしょうか？ 194 名前：デフォルトの名無しさん mailto:sage [2008/04/13(日) 19:17:44 ] 後ろから削っていくとか。 195 名前：デフォルトの名無しさん mailto:sage [2008/04/13(日) 19:26:36 ] デバッグして確認したときそれぞれの値が ListBox1.SelectedIndex=2 ListBox1.Items.Count=8  (項目数=3) となっていて その状態で>>193のFOR文を実行すると i の値が2,3,4,5,6,7 とステップして ListBox1.Items.RemoveAt(i) で最後の項目まで問題なく削除出来ると思うのですが どういう訳かエラーになります 196 名前：デフォルトの名無しさん mailto:sage [2008/04/13(日) 19:28:34 ] >>195　修正 ×　(項目数=3) ○　(項目数=7) 197 名前：デフォルトの名無しさん mailto:sage [2008/04/13(日) 19:33:24 ] どういう訳かも何も、たとえばRemoveAt(10)を実行した時点で いままでItems(11)だった奴がItems(10)に繰り上がるわけだが 198 名前：デフォルトの名無しさん mailto:sage [2008/04/13(日) 20:00:32 ] >>197 当たり前のことすら理解出来てない人に 答えを教えてくれてありがとうございます 無事ちゃんと動作するコードに出来ました 199 名前：デフォルトの名無しさん mailto:sage [2008/04/13(日) 22:11:10 ] １年半後に登場するWindows7にはVB6ランタイムはサポートされますか？ 200 名前：デフォルトの名無しさん mailto:sage [2008/04/13(日) 22:59:27 ] 知らんがな(´･ω･`) 201 名前：デフォルトの名無しさん mailto:sage [2008/04/14(月) 17:37:40 ] ＶＢ６でPublicの構造体・変数の宣言可能な数（容量？）ってどの位か解りませんか？ 202 名前：デフォルトの名無しさん mailto:sage [2008/04/15(火) 12:38:32 ] VS2008のVBでラベルの背景を透明化するにはどうすればいいですか？ label1.BackColor = Color.Transparent では出来なかったです 203 名前：デフォルトの名無しさん mailto:sage [2008/04/15(火) 13:34:38 ] >>202 スレタイ読めますか？ 204 名前：デフォルトの名無しさん [2008/04/15(火) 23:42:02 ] >>201 そんなのあるんですか？ 205 名前：デフォルトの名無しさん mailto:sage [2008/04/16(水) 10:14:31 ] ループする処理の中にあるIF文をSelect文にしたら処理が倍以上かかるようになったんですが これはどうしようもないことですか？ 206 名前：デフォルトの名無しさん mailto:sage [2008/04/16(水) 11:32:45 ] >>205 条件文がわからんから、「そんなもｎ」としか答えようが無い。 207 名前：デフォルトの名無しさん [2008/04/17(木) 08:12:15 ] >>205 Selectを使うな。 Excelとのやりとりは速度が遅くなる。 Withを使うか、まとめて配列に代入してから配列を扱え。 208 名前：デフォルトの名無しさん mailto:sage [2008/04/17(木) 19:13:52 ] >>204 よほどの事が無い限り、まず制限を超える事は無いと思いますが有りました。 （コンパイル時にメモリー不足と出る） 209 名前：デフォルトの名無しさん mailto:sage [2008/04/17(木) 20:06:02 ] >>208 そりゃ単にメモリ増設すりゃ回避できるんじゃないか？ 210 名前：デフォルトの名無しさん mailto:sage [2008/04/17(木) 20:26:21 ] >>209 2GB以上アロケートできないとかないのかね？ 211 名前：デフォルトの名無しさん mailto:sage [2008/04/17(木) 22:35:50 ] ループ処理中に何かボタンおされたらループから抜けるプログラムを作りたいのですが そのボタンのsubではない　違うSub内で コントロール上のどのボタンが押されたのかを検出する方法ってありますか？ 212 名前：デフォルトの名無しさん mailto:sage [2008/04/17(木) 22:55:24 ] >>211 ループ処理の中でDoEventsと終了フラグのチェックを頻繁にやるしかない。 DoEventsを使うときは再入やら予定外の動作をはじくようにする必要がある。 213 名前：デフォルトの名無しさん mailto:sage [2008/04/18(金) 12:23:30 ] 昔、だれかが作ったソフトのメンテしてたら フォームに貼り付けたコントロールの数がオーバーしてこれ以上追加できない という状況になったときに、泣いたことはあるなｗ 214 名前：デフォルトの名無しさん mailto:sage [2008/04/18(金) 14:24:41 ] メンテだと設計方針が間違っていようが、そのまま行かざるを得ないときもあるから辛いな 215 名前：デフォルトの名無しさん mailto:sage [2008/04/19(土) 22:13:21 ] FileCopyでファイルコピーするとshift-jisで書き出したファイルがUTF-8になってしまうのですが 対象方はありますか？ 216 名前：デフォルトの名無しさん [2008/04/21(月) 21:51:25 ] VBからExcelに値を貼り付けてプレビュー表示をする処理にて 処理中は見えないようにするためVisibleをFalseにするのですが、 EXEファイルから起動するとVisibleをFalseにした段階で最背面に表示されてしますいます。 Visual Basicから起動するとプレビュー画面が最前面に表示されるのですが何故でしょう? 使っているコンポーネントはQuickPack、Farpoint SpreadSheet、InputMan Proです。 今まで別な環境で作った際はこんな現象になったことはありません。 同じコンポーネントを使っている方で克服した方はおりますか? ちなみにSetWindowPos等使わないで済ませたいです。 途中ダイアログを表示したりメッセージボックスを表示させたりするので Visual Basicで起動しているときと同じ用途で実現させたいのです。 ちょっと分かりにくいかも知れませんが宜しくお願い致します。 217 名前：デフォルトの名無しさん mailto:sage [2008/04/21(月) 22:11:38 ] コピペ君って馬鹿だな、まで読んだ。 218 名前：デフォルトの名無しさん mailto:sage [2008/04/22(火) 10:32:51 ] vb6の評価版使ってて、exeにできないんですが、 vb6.0安く売ってるところないですか？ 219 名前：デフォルトの名無しさん mailto:sage [2008/04/22(火) 12:38:09 ] >>218 なんで今時VB6？ 220 名前：デフォルトの名無しさん mailto:sage [2008/04/22(火) 12:56:29 ] >>219 だよねぇ。 Visual Basic 2008 Express がタダで手に入るこのご時世に。 221 名前：デフォルトの名無しさん mailto:sage [2008/04/22(火) 15:26:39 ] ツールバーのアイコンを大きくしてメニュー名をアイコンの下に表示させたいのですが、 どうすればいいのでしょうか？ 222 名前：デフォルトの名無しさん mailto:sage [2008/04/23(水) 01:40:48 ] >>220 それってVB6のOCXの開発ライセンスキーが付いてる？ 223 名前：デフォルトの名無しさん mailto:sage [2008/04/23(水) 13:32:21 ] >>222 お前は何を言っているんだ 224 名前：デフォルトの名無しさん mailto:sage [2008/04/23(水) 14:26:17 ] >>219 なんでVB(6.0以前)スレに居るの？ 225 名前：デフォルトの名無しさん mailto:sage [2008/04/23(水) 15:13:16 ] >>223 お前は何を聞いているんだ 226 名前：デフォルトの名無しさん mailto:sage [2008/04/23(水) 18:07:06 ] VB6で立方メートルの単位(m3)のように右上に数字を乗せる方法はないでしょうか？ またはキーワードだけでも教えていただけないでしょうか？ 227 名前：デフォルトの名無しさん mailto:sage [2008/04/23(水) 19:43:53 ] >>226 ラベルで貼っちゃダメなの・・・？ 228 名前：デフォルトの名無しさん mailto:sage [2008/04/23(水) 20:01:01 ] >>227 通常はラベルで代用するものなのでしょうか？ 229 名前：デフォルトの名無しさん mailto:sage [2008/04/23(水) 20:22:32 ] ブラウザとかリッチエディットでそういう書式指定って方法も思いつく。 ほかにもUnicodeに対応していればm³や㎥って文字が使える。 230 名前：デフォルトの名無しさん mailto:sage [2008/04/23(水) 22:17:56 ] brwWebBrowserで取得したものを htmlかテキストにして文字変数に格納する方法ないですか？ 231 名前：デフォルトの名無しさん mailto:sage [2008/04/23(水) 23:18:41 ] >218 現在VB6を新規に入手する方法はMSDNに入るしかない。 >226 上付きの3はISO 8859-1/15の0xB3にあるが…UnicodeでもU+00B3だな。 232 名前：230 mailto:sage [2008/04/23(水) 23:29:47 ] Text1.Text = Inet1.OpenURL(brwWebBrowser.LocationURL) で取得できましたが　文字バケのようになり日本語で表示されません。 フォントは明朝に設定したのですが。 233 名前：230 mailto:sage [2008/04/24(木) 00:41:02 ] RichTextBox1.Text = brwWebBrowser.Document.body.innertext これで一応できましたが 普通のTextBoxは日本語ダメでしたっけ？ 234 名前：デフォルトの名無しさん mailto:sage [2008/04/24(木) 01:34:10 ] Text1.Text = brwWebBrowser.Document.body.innertext 235 名前：デフォルトの名無しさん mailto:sage [2008/04/24(木) 10:25:48 ] VBのMAPIでメールを操作したいのですが IDやPASSの設定はサンプルにのってるのですが POP3等の設定がのっていません。 Outlookの設定に依存してるのでしょうか？ POP3設定のキーワードを教えてください。 236 名前：230 mailto:sage [2008/04/24(木) 13:46:15 ] Text = WebBrowser1.Document.body.innertext これで数百行あるものを読み込むと200行ちょっとまでしかとれてないようですが・・・ 行制限があるんでしょうか？ 237 名前：デフォルトの名無しさん mailto:sage [2008/04/24(木) 14:02:43 ] 読み終わってからにしろよ早漏 238 名前：230 mailto:sage [2008/04/24(木) 14:33:54 ] なるほど。 239 名前：デフォルトの名無しさん mailto:sage [2008/04/25(金) 10:12:47 ] 指定ファイル（テキストやCSV)の行数を取得する良い方法はありますか？      Dim i As Integer = 0      Dim sr As New System.IO.StreamReader("C:\1.csv", System.Text.Encoding.Default)       Do Until sr.Peek() = -1         sr.ReadLine()         i+=1     Loop     sr.Close() 今のところこの方法しか思い浮かびません もっと簡潔な方法があれば教えて下さい 240 名前：デフォルトの名無しさん mailto:sage [2008/04/25(金) 10:31:59 ] 何を指して良い方法と言っているのだ？ 時間？効率？ソースの短さ？exeのバイト数？ 241 名前：デフォルトの名無しさん mailto:sage [2008/04/25(金) 10:38:24 ] >>240 私が思う良い方法とはコードの短さです 今のところ>>239以外には他に思いつかなくて 242 名前：デフォルトの名無しさん mailto:sage [2008/04/25(金) 11:04:19 ] コードの短さか そんなクソの役にもたたねえ事にこだわるな！ 243 名前：デフォルトの名無しさん mailto:sage [2008/04/25(金) 13:16:01 ] >>239 とりあえずスレチだと思うのだが。 それ.NETだろ？ まぁ行数取得ならFileSystemObjectだったかTextStreamだったか忘れたが １行で取得する処理書くこと出来るよ。 ググってみ？ 244 名前：デフォルトの名無しさん mailto:sage [2008/04/25(金) 14:45:05 ] ＶＢ６（ＳＰ６）です OutBufferCountがしっかり送信バッファの値を返す設定って、何かあるでしょか？ MSComm1.Output = txdatbuf$ Text1.Text = Format(MSComm1.OutBufferCount) このよーなコードを書いて、送信開始時のバッファを確認してみても０のままだったりして困っておりまする。 送信そのものは成功しています。 MSComm1 は DTREnable=False EOFEnable=False Handshaking=0 InputMode=0 OutBufferSize=512 RThreshold=1 SThreshold=0 RTSEnabled=False になってオリマす 245 名前：デフォルトの名無しさん mailto:sage [2008/04/25(金) 14:46:39 ] ログをファイルを出力しているのですが 最新の1000行のみに維持したいのですが 何か良い方法はありますでしょうか？ 246 名前：デフォルトの名無しさん mailto:sage [2008/04/25(金) 15:17:27 ] 良い方法？ 1000行固定というクソ仕様をやめてしまえ 247 名前：デフォルトの名無しさん mailto:sage [2008/04/25(金) 15:23:28 ] 全部読んで１行捨てて書き出して、最後に今のログ１行書いたら駄目なのか？ 248 名前：デフォルトの名無しさん mailto:sage [2008/04/26(土) 02:44:34 ] WebBrowserコントロールを使って そのWebの書き込みテキストボックスから書き込みする方法ありますかね？ 249 名前：デフォルトの名無しさん mailto:sage [2008/04/26(土) 11:30:44 ] >247 内部バッファならともかく、ファイルでそれはないだろ。 250 名前：デフォルトの名無しさん mailto:sage [2008/04/26(土) 11:59:13 ] >>249 ならどうしたらいいのか書けよカス 251 名前：デフォルトの名無しさん mailto:sage [2008/04/26(土) 12:03:03 ] >250 >246 252 名前：デフォルトの名無しさん mailto:sage [2008/04/26(土) 12:55:00 ] お前の能力では出来ないって事か 253 名前：デフォルトの名無しさん mailto:sage [2008/04/26(土) 14:18:36 ] ↑こんな奴がいるから糞ソフトが無くならんのだよな 254 名前：デフォルトの名無しさん mailto:sage [2008/04/26(土) 15:53:23 ] ↑その糞ソフトすら書く方法を知らないカス 255 名前：デフォルトの名無しさん mailto:sage [2008/04/26(土) 16:03:32 ] 何が問題なのか理解してないようだ 中国人の外注のほうがマシに思える 256 名前：デフォルトの名無しさん mailto:sage [2008/04/26(土) 16:06:07 ] >>249 お前というやつは・・・。 いきなり上書きしたら、 書き込みの途中でエラーが出たら ログが壊れるだろ・・・。 257 名前：デフォルトの名無しさん mailto:sage [2008/04/26(土) 16:21:52 ] >>255 うむ 中国人に「最新の1000行のみに維持したい」って言えば ちゃんと作ってくれるだろうな 258 名前：デフォルトの名無しさん mailto:sage [2008/04/26(土) 23:45:53 ] TextStream使えば？ ・ReadAll()で全行読み込み(なかなか高速) ・Sprit()で改行文字をKeyに配列化 ・UBound(配列)>=999の場合は、配列にする前の文字列からInStrRevで改行文字探して見つかった位置-1までを取得 ・先頭に新しいログ文字列追加 ・で、書き出し みたいな 259 名前：デフォルトの名無しさん mailto:sage [2008/04/26(土) 23:49:36 ] >>256 書き込みの途中って？ 例えばどんなエラーがある？

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef