(現在 過去ログ40 を表示中)

HOME HELP 新規作成 新着記事 トピック表示 ファイル一覧 検索 過去ログ

[ 最新記事及び返信フォームをトピックトップへ ]

■6155 / inTopicNo.1) 　スペースを全て削除したい
  ▼■
□投稿者/ 真奈美 -(2010/12/01(Wed) 09:09:10)
    2010/12/01(Wed) 09:10:02 編集(投稿者)

    ファイル内の各項目にあるスペースを全て削除したいです。
    1項目ずつでしたら#trim([項目名],4)で削除できるのは知っていますが
    項目数が沢山あるので、一括で削除できると助かるのですが
    良い方法はないものでしょうか？

    アドバイスよろしくお願いいたします。
引用返信 [メール受信/OFF] 削除キー/
■6156 / inTopicNo.2) 　Re[1]: スペースを全て削除したい
□投稿者/ 通りすがり -(2010/12/01(Wed) 12:27:15)
    走り書きで検証してないので、バックアップデータで試して、十分理解して、その後に実使用してね

    var 文字列{&Fname}
    　ファイル名入力 &Fname
    　表 &Fname
    　call DelateAllSpace()

    Proc DelateAllSpace()
    　var 整数{&i}
    　for &i = 1 , #項目数
    　　if (#項目属性( &i , 2 ) = "文字列")
    　　　eval　"置換 [" + #項目属性( &i , 1 ) + "]= #trim([" + #項目属性( &i , 1 ) + "] , 4)"
    　　End
    　End
    End
引用返信 [メール受信/OFF] 削除キー/
■6157 / inTopicNo.3) 　Re[1]: スペースを全て削除したい
□投稿者/ うにん -(2010/12/01(Wed) 12:30:40)
    > 項目数が沢山あるので、一括で削除できると助かるのですが

    項目10個までなら置換メニューの「置換条件」で
    それ以上なら一括処理
    繰り返し　&秒=1,#項目数
    　置換　&秒=#trim([],4)
    繰り返し終了
引用返信 [メール受信/OFF] 削除キー/
■6158 / inTopicNo.4) 　Re[1]: スペースを全て削除したい
□投稿者/ 通りすがり -(2010/12/01(Wed) 12:36:15)
    3秒違いで被った…ゴメン
    うにんさん の方が簡潔で良いです
引用返信 [メール受信/OFF] 削除キー/
■6162 / inTopicNo.5) 　Re[2]: スペースを全て削除したい
□投稿者/ うにん -(2010/12/01(Wed) 20:06:14)
    ■No6158に返信(通りすがりさんの記事)
    > 3秒違いで被った…ゴメン
    > うにんさん の方が簡潔で良いです

    私のは文字列でない項目があるとそこでエラーになっちゃいますね。

    どうせなら、複数の置換を1コマンドで実行した方が速いでしょう。
引用返信 [メール受信/OFF] 削除キー/
■6176 / inTopicNo.6) 　Re[1]: スペースを全て削除したい
□投稿者/ eo -(2010/12/02(Thu) 23:03:57)
    パクリと言われても否定しません^^;

    変数宣言　固有,文字列{&ファイル名,&ORGファイル,&変換ファイル,&置換項目},数値{&i}
    ファイル名入力　初期値="*.tbl",&ファイル名
    &ORGファイル=#ファイル名(&ファイル名,3)
    &変換ファイル="スペース削除_"+&ORGファイル
    ファイル複写　&ORGファイル,&変換ファイル
    表　&変換ファイル
    　繰り返し　&i=1,#項目数
    　　　条件　(#項目属性(&i,2)="文字列" .and #項目属性(&i,8)="")\
    　　　　&置換項目=&置換項目+"["+#項目属性(&i,1)+"]=#trim(["+#項目属性(&i,1)+"],4),"
    　繰り返し終了
    &置換項目=#部分列(&置換項目,1,#文字数(&置換項目)-1)
    コマンド　"置換　"+&置換項目


SpaceDelate.zip/21KB
引用返信 [メール受信/OFF] 削除キー/
■6224 / inTopicNo.7) 　Re[2]: スペースを全て削除したい
□投稿者/ 真奈美 -(2010/12/10(Fri) 09:44:15)
    皆様どうもありがとうございました。
    大変助かりました！
解決済み!
引用返信 [メール受信/OFF] 削除キー/


トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

Mode/　 Pass/

HOME HELP 新規作成 新着記事 トピック表示 ファイル一覧 検索 過去ログ

- Child Tree -
- Antispam Version -