ログの取り方
■ このスレッドは過去ログ倉庫に格納されています
0001おせーて！おせーて！
NGNGログが2000行たまったら一行目を消して最後の行に最新のログを追加するやつ。
そんなこつできるプログラム頂戴！頂戴！
0002おせーて！おせーて！
NGNG0003デフォルトの名無しさん
NGNG0004デフォルトの名無しさん
NGNG0005なんだ
NGNGそれもできないんだろう、おまえ。
なめてんのか。
わかりやすいように、ひらがなでかいてやったぞ。
0006デフォルトの名無しさん
NGNGログの保存にＤＢ使え。
0007名無し娘。
NGNG0008デフォルトの名無しさん
NGNGこのような駄スレは定期的に、と言っていいほどの頻度で
立てられる。春休みだから厨房が増えた、などといった
使い古された説を唱えるつもりは無いが、この現象には
何らかの理由があるはずだ。そもそも人間というものには
学習能力があるはずであり、一人の人間が駄スレを何個も、
何も学習せずに立てることはよほどの間抜けでない限り
まずありえないだろう。だからといって毎日のように
白痴的な表情でただモニタを眺めつづけるヒエラルキー
最底辺が２chデビューを果たしている、というのもいささか
納得しがたい。そうなると結論は自ずと見えてくる
――全ての駄スレは、一人の天才的な職人によって意図的に生み出されている。
理由など無い。天才は論理で動くにあらず。
0009デフォルトの名無しさん
NGNG0010デフォルトの名無しさん
NGNGopen "LOG.txt"for input as #f
for i=1 to 2000
input #f,UNKO(i)
next i
close #f
if UNKO (2000)<>"" then
call Module.main
exit sub
end if
open "LOG.txt" for output as #f
print #f,LOG
close #f
end sub
Module
public UNKO(2000) as string
public LOG as string
sub main()
for i=2 to 2000
UNKO(i-1)=UNKO(i)
f=freefile
open "LOG.txt" for output as #f
print #f,LOG
close #f
end sub
0011デフォルトの名無しさん
NGNGModule
public UNKO(2000) as string
public LOG as string
sub main()
for i=2 to 2000
UNKO(i-1)=UNKO(i)
f=freefile
open "LOG.txt" for output as #f
for i=1 to 1999
print #f,UNKO(i)
next i
print #f,LOG
close #f
end sub
0012デフォルトの名無しさん
NGNGファイルのrename（？）は使わないのか？
001311
NGNG間違ってるよ・・・。
for i=2 to 2000
UNKO(i-1)=UNKO(i)
next i ←'追加
f=freefile
open "LOG.txt" for output as #f
for i=1 to 1999
print #f,UNKO(i)
next i
print #f,LOG
close #f
end sub
このコードは時間がタップリかかると思うがな。
＞１２
renameってなんぞや？VB専門じゃないからわからない。
0014デフォルトの名無しさん
NGNG0015デフォルトの名無しさん
NGNG0016デフォルトの名無しさん
NGNG0017デフォルトの名無しさん
NGNG教えて！教えて！
0018デフォルトの名無しさん
NGNG0019デフォルトの名無しさん
NGNG-------------------------- 終了
■ このスレッドは過去ログ倉庫に格納されています