| こんにちは、下記の一括の場合文字の中に中黒・があり、あまり 美しくないと思い、その文字以外を書き込みたいのです。 条件式を教えて下さい。 桐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
|