| こんにちは、下記の一括の場合文字の中に中黒・があり、あまり
美しくないと思い、その文字以外を書き込みたいのです。
条件式を教えて下さい。
桐9 2009a winxpです。
よろしくお願いいたします。
*書き込むハードディスクドライブ名↓ ディレクトリー名↓
call ハードディスク書込み ( """C:\"",""D:\""" , "kirisub")
proc ハードディスク書込み(str &SHD,Str &Sdir)
var Int{&Imax = #L(&SHD) - #L(#S(&SHD,",",""))+1 \
,&Iend,&Icount},str{&Spass,&Sfile = "\conv.txt" }
Eval "var Str{&Sdrive["+#STR(&Imax)+"] = {"+&SHD+"}}"
for &Icount = 1 , &Imax
&Spass = &Sdrive[&Icount] + &Sdir
if (#FSIZE( &Spass + &Sfile ) > 0 )
* 確認 &Spass+"ファイルサイズは "\
+#str(#FSIZE( &Spass + &Sfile)) + " バイトです"
call file作成(&Spass + &Sfile)
else if (#FSIZE( &Spass ) = -1 )
* 確認 &Spass+"フォルダーは存在しない"
フォルダ作成 &Spass, 終了状態 = &Iend
call file作成(&Spass + &Sfile)
else if (#FSIZE( &Spass ) = 0 )
* 確認 &Spass+"指定するファイルはフォルダです"
call file作成(&Spass + &Sfile)
else
確認 "例外の場合"
end
end
End
proc file作成(Str &Sfile)
var Int{&Iend,&Icount,&Iline=10/* 行 */\
,&Imax=20/* 文字数 */,&Istop},数値{&Nran}\
,Str{&S連結}
印字開始 &Sfile,追加, 終了状態=&Iend
for &Icount = 1 , &Iline
&Istop = 0 , &S連結 = ""
while ( &Istop < &Imax )
&Nran = #乱数(32767)+255
if (#trim(#J(&Nran),4)<>"")
&S連結=&S連結+#J(&Nran)
&Istop = &Istop + 1
end
end
印字 &S連結
end
印字終了 改頁 = しない
End
|
