ころにゃんファンクラブ

120 ：山崎渉：03/01/19 03:52

（＾＾）

121 ：ころにゃん ◆lHCatKraro ：03/01/28 17:32

MIFES for Windows を使っています。

122 ：ころにゃん ◆lHCatKraro ：03/01/28 17:34

原稿用紙の枚数を計算するのに、有名な「原稿用紙カウンター」がありますが
あれはちょっと使いにくいです。

123 ：ころにゃん ◆lHCatKraro ：03/01/28 17:36

原稿用紙カウンターはべつに立ち上げないといけないし、
ファイルの保護とかの問題があるようです。
だから昨日、MIFESのマクロを使って原稿用紙の計算をすることにしました。
それで、なんとなくできました。

124 ：ころにゃん ◆lHCatKraro ：03/01/28 17:41

もし他にMIFESを使っている人がいたら、分けてあげようと思ったのです。
でも昨日聞いたらいないみたい。
でも折角なのでここに貼っておきます。

125 ：ころにゃん ◆lHCatKraro ：03/01/28 17:48

*gen-count原稿用紙換算禁則文字：、。「」『』（）

;初期化
@@lines = 0;換算した行数
@1 = 0;文字数の累計
;@2 = 1;原稿用紙での桁
;@3 = 0;getlineした文字数

if(saveas("gen-count-work.tmp")<=0)
messagebox("作業ファイルを作れませんでした。","err",MB_OK)
exit
endif
@@hfile = fopen("gen-count-work.tmp")
if(@@hfile<0)
messagebox("作業ファイルを開けませんでした。","err",MB_OK)
exit
endif

while (@3 = fread(@@hfile, @str1))>=0;行を取得する
if @3 ==0;改行だけの行の場合
@@lines++
continue
endif

@1 += @3;字数を数える
@2=19
while @3 > 20
if (@str1[@2+1] =='。')|(@str1[@2+1] =='、')|(@str1[@2+1] =='「')|(@str1[@2+1] =='」')
|(@str1[@2+1] =='『')|(@str1[@2+1] =='』')
|(@str1[@2+1] =='（')|(@str1[@2+1] =='）')

126 ：ころにゃん ◆lHCatKraro ：03/01/28 17:50

続きます。
上の書き込みの最後の三行は、改行していますけど、使う時は一行になおしてください。

127 ：ころにゃん ◆lHCatKraro ：03/01/28 17:51

@2++
@3--
continue
endif
@@lines++
@3 -= 20
@2 += 20
wend
if @3>0 then @@lines++
wend

fclose(@@hfile)
unlink("gen-count-work.tmp")
@pages = @@lines / 20
@odds = @@lines % 20
sprintf(@str1,"%d枚と%d行です(%d文字)",@pages, @odds, @1)
messagebox(@str1,"換算結果",MB_OK)
exit

128 ：ころにゃん ◆lHCatKraro ：03/01/28 17:53

おわりです。上の二つをくっつけてMIFESで「マクロのコンパイル」をやって
何かのキーに登録すると、便利でした。
改行なしで千文字以上つづくとだめです。千文字以降を切り捨てて数えます。
それと、半角文字も全角と同じに扱うので、
英単語などは普通よりも長くカウントします。
あと、カレントフォルダに作業ファイル"gen-count-work.tmp"を作ります。
複数同時に実行するとまずいかも知れません。

129 ：ころにゃん ◆lHCatKraro ：03/01/28 18:12

追加です。
タブがきえてしまったのですが、最初の行は
*gen-count　原稿用紙換算禁則文字：、。「」『』（）
と空白を入れてください。
どうもすいません。

っていうか、こんなの使わないかなー

130 ：名無し物書き＠推敲中？：03/02/13 09:40

age

131 ：ころにゃん ◆lHCatKraro ：03/02/15 15:26

あわわ。さらし上げってやつですか。

132 ：小5 ◆ccG99/kSZQ ：03/02/15 17:38

ころにゃんって意外と物知りなんだね。

133 ：ころにゃん ◆lHCatKraro ：03/02/16 21:08

フフフ…

134 ：♪♪♪ころにゃん♪♪♪ ◆5Kj9EAvOZQ ：03/04/09 21:23

νガンダムは伊達じゃないっ！！

135 ：♪♪♪ころにゃん♪♪♪ ◆5Kj9EAvOZQ ：03/04/09 21:24

うおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおお

136 ：♪♪♪ころにゃん♪♪♪ ◆5Kj9EAvOZQ ：03/04/09 21:25

地球を休ませようだなんて！！
それはエゴだよ！！

137 ：名無し物書き＠推敲中？：03/04/09 21:29

死ね、偽者に用はない。
消えろ、カス野郎。
どうせ引き篭もりなんだろう？

138 ：♪♪♪ころにゃん♪♪♪ ◆5Kj9EAvOZQ ：03/04/09 21:32

重力に縛られた愚民どもが！！

139 ：名無し物書き＠推敲中？：03/04/09 21:35

必死だなｗ

140 ：♪♪♪ころにゃん♪♪♪ ◆5Kj9EAvOZQ ：03/04/09 21:37

死ね。手首切って死のうと思ったら間違えて首切ってやっぱり死ね。

141 ：名無し物書き＠推敲中？：03/04/09 21:38

必死だなｗ　

142 ：♪♪♪ころにゃん♪♪♪ ◆5Kj9EAvOZQ ：03/04/09 21:44

死ね。風呂で滑って金玉潰して死ね。

143 ：名無し物書き＠推敲中？：03/04/09 21:45

必死だなｗ

144 ：♪♪♪ころにゃん♪♪♪ ◆5Kj9EAvOZQ ：03/04/09 21:46

ごめん、盛り上がってるところ。ちょっと風呂はいって来るよ。

145 ：名無し物書き＠推敲中？：03/04/09 21:47

偽　　者　　は　　逃　　げ　　出　　し　　た

146 ：♪♪♪ころにゃん♪♪♪ ◆5Kj9EAvOZQ ：03/04/09 22:30

死ね。偽者の偽者が本物とは限らないから死ね。

147 ：名無し物書き＠推敲中？：03/04/12 10:41

プ

148 ：工藤伸一 ◆H/j1HkWi6c ：03/04/13 21:01

>>ころにゃん
ショートショートは書いてますか？

149 ：名無し物書き＠推敲中？：03/04/13 21:04

ここのスレに生息しているころにゃんはホンモノのころにゃんだよ。
ショートショートを書いているのは偽者のころにゃんだよ。
あんまり勘違いしないほうがよろしいかと。

150 ：♪♪♪ころにゃん♪♪♪ ◆5Kj9EAvOZQ ：03/04/14 01:02

>>工藤

ショート×2書いてるよ。
今考えてるのは平野啓一郎ネタだから現代には無理らしいｗ
素人投稿くらいで波風立てたくないしね。
それより工藤は100枚くらいなら書けるんでしょ？
それ以上は未知だとか聞いたよ。
漏れは文学界に応募しようと思うんだけど、
100枚で収まるか検討中。
妥協したくない本当に大切な内容だから、
慎重にいこうと思ってる。
だからしばらく２ちゃんねる自粛するよ。

151 ：名無し物書き＠推敲中？：03/04/15 17:36

偽者うぜー

152 ：名無し物書き＠推敲中？：03/04/16 00:03

工藤の周囲には変なキャラがあつまるな。

153 ：山崎渉：03/04/17 13:09

（＾＾）

154 ：名無し物書き＠推敲中？：03/04/18 22:48

ちゃぱつでしか　勝負できない　ブス。

155 ：山崎渉：03/04/20 01:37

　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）

156 ：ころにゃん ◆lHCatKraro ：03/04/21 21:06

　（　・∀・）　　　|　|　ｶﾞｯ
　と　　　　）　　 |　|
　　Ｙ　/ノ　　　人
　　　 /　）　　 < 　>__Λ∩
　＿/し'　／／. Ｖ｀Д´）/
　（＿フ彡　　　　　　　/ 　>>155