Jw_cad 相談室−その2 New

 Jw_cad についての相談の場としてお使いください
情報の交換には Jw_cad 情報交換室 をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください

2009年9月以前の発言過去ログのページからご覧ください。

それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。


  新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
173 / 1497     ←次へ | 前へ→

Re:一括で文字挿入の方法
 いっち  - 18/9/8(土) 14:22 -
▼はづさん:
>作図済の文字に、一括で文頭・文末に【】を入れたいのですが、いい方法がありますでしょうか?100文字くらいあるので少々めんどうです。よろしくお願いします

既にいくつかの方法が提示されている為、下記はいらないかも知れませんがつい作ってしまいました。

「TaraPad」をお使いの場合は正規表現が利用できないので「TaraPad用のツール」を作ってみました。
「TaraPadのツール」として実行する場合は、下記でも出来ます。

※文頭、文末に各一文字の括弧で作っています。
※例1 【】
※例2 《》
※例3 []
※例4 ()


「TaraPadのツールの設定方法」

【名前】
一括で文頭・文末に【】を入れる

【実行ファイル】
cmd /c wscript

【コマンドラインパラメータ】
"C:\Tool\TeraPad\Tool\brstr.wsf" %t
↑(注)スクリプトのパスは、ご自身の環境で設定してください。
 (注)Tarapadツールなので、%t を指定しています。

【作業フォルダー】
空欄

【ファイルの上書き保存】
上書き保存しない

=== brstr.wsf === (↓ この下から)

<job id="brackets">
<script language="VBScript">
Function VBScruptInputBox(deftxt)
prompt="括弧の種類を入力してください。"
title="一括で文頭・文末に括弧を入れる"
VBScruptInputBox=InputBox(prompt,title,deftxt)
End Function
</script>
<script language="JScript">
function StrBrackets(txt){
if(!txt){
WScript.Echo("キャンセルしました。");
WScript.Quit();
}
var strb=[];
strb[0]=txt.charAt(0);
(txt.length==1)?(strb[1]=strb[0]):strb[1]=txt.charAt(1);
return strb;
}
basetxt="【】"
Result=VBScruptInputBox(basetxt);
switch(Result) {
case "":
WScript.Echo("括弧の指定がありません。");
WScript.Quit();
break;
default:
ReBrackets=StrBrackets(Result);
}
objFSO=new ActiveXObject("Scripting.FileSystemObject");
objArgs=WScript.Arguments;
if(objArgs.length==0){
WScript.Quit();
}
StrFile=objArgs(0);
try{
objFile=objFSO.OpenTextFile(StrFile);
}catch(e){
WScript.Echo(e.description + "(Error No=" + (e.number & 0xFFFF) +")");
WScript.Quit();
}
ss=objFile.ReadAll().split("\r\n");
objFile.Close();
(ss[ss.length-1]=="")?(flg=1):(flg=0)
while (ss[ss.length-1]==""){ss.pop();};
objFile=objFSO.OpenTextFile(StrFile,2);
for (i=0;i<ss.length;i++){
if(ss[i].length>0){
putstr=ReBrackets[0]+ss[i]+ReBrackets[1];
}else{
putstr="";
}
if(i<ss.length-1){
objFile.WriteLine(putstr);
}
if(i==ss.length-1){
if(flg){
objFile.WriteLine(putstr);
}else{
objFile.Write(putstr);
}
}
}
objFile.Close();
</script>
</job>


引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/68.0.3440.106 Safari/537.36@KD059129055137.ppp-bb.dion.ne.jp>
・ツリー全体表示

一括で文字挿入の方法 はづ 18/8/30(木) 14:46
Re:一括で文字挿入の方法 ひろし 18/8/30(木) 16:56
Re:一括で文字挿入の方法 96saka 18/8/30(木) 19:11
Re:一括で文字挿入の方法 siegel 18/8/31(金) 7:26
Re:一括で文字挿入の方法 96saka 18/9/1(土) 0:19
Re:一括で文字挿入の方法 はづ 18/8/31(金) 12:37
Re:一括で文字挿入の方法 96saka 18/8/31(金) 23:29
外部変形での文字列の取得方法 kojima 18/9/15(土) 19:25
Re:外部変形での文字列の取得方法 somem 18/9/15(土) 19:40
Re:外部変形での文字列の取得方法 kojima 18/9/16(日) 15:44
Re:一括で文字挿入の方法 R.N 18/9/1(土) 4:20
Re:文字修飾&枠の変更 R.N 18/9/1(土) 14:55
Re:文字修飾&枠の変更 はづ 18/9/3(月) 14:17
Re:文字修飾&枠の変更 somem 18/9/3(月) 23:24
Re:文字修飾&枠の変更 R.N 18/9/3(月) 23:46
Re:一括で文字挿入の方法 somem 18/9/3(月) 23:19
Re:一括で文字挿入の方法 はづ 18/9/6(木) 12:47
Re:一括で文字挿入の方法 N.Misumi 18/9/6(木) 13:57
Re:一括で文字挿入の方法 somem 18/9/6(木) 23:34
Re:一括で文字挿入の方法 はづ 18/9/7(金) 10:36
Re:一括で文字挿入の方法 P 18/9/7(金) 10:54
Re:一括で文字挿入の方法 はづ 18/9/7(金) 14:40
Re:一括で文字挿入の方法 P 18/9/7(金) 17:59
Re:一括で文字挿入の方法 somem 18/9/7(金) 22:34
訂正とお詫び somem 18/9/9(日) 17:08
gawkm115.zipダウンロード先 いっち 18/9/7(金) 18:56
Re:一括で文字挿入の方法 somem 18/9/7(金) 21:32
Re:一括で文字挿入の方法 はづ 18/9/10(月) 16:36
Re:一括で文字挿入の方法 somem 18/9/10(月) 18:48
行頭の半角スペースを削除 kojima 18/9/16(日) 13:52
レイヤグループ somem 18/9/9(日) 17:14
Re:一括で文字挿入の方法 卯之介 18/9/5(水) 9:21
Re:一括で文字挿入の方法 いっち 18/9/8(土) 14:22
Re:一括で文字挿入の方法 R.N 18/9/8(土) 23:51
Re:一括で文字挿入の方法 いっち 18/9/9(日) 6:16
Re:一括で文字挿入の方法 R.N 18/9/9(日) 14:50
Re:一括で文字挿入の方法 いっち 18/9/9(日) 16:29
Re:一括で文字挿入の方法 R.N 18/9/9(日) 18:42
Re:一括で文字挿入の方法 いっち 18/9/9(日) 19:10
Re:一括で文字挿入の方法 柳 絮 18/9/10(月) 19:58
Re:一括で文字挿入の方法 いっち 18/9/10(月) 21:15
Re:一括で文字挿入の方法 はづ 18/9/11(火) 13:00
Re:一括で文字挿入の方法 いっち 18/9/11(火) 15:06
Re:一括で文字挿入の方法 はづ 18/9/12(水) 12:59
Re:一括で文字挿入の方法 R.N 18/9/12(水) 15:40
Re:一括で文字挿入の方法 いっち 18/9/12(水) 16:44
Jw_cadにTeraPadを設定する方法 いっち 18/9/12(水) 8:28
Re:Jw_cadにTeraPadを設定する方法 はづ 18/9/12(水) 13:22
Re:Jw_cadにTeraPadを設定する方法 いっち 18/9/12(水) 16:40
TeraPadインストールについて いっち 18/9/13(木) 12:30
Re:TeraPadインストールについて はづ 18/9/13(木) 18:46
Re:TeraPadインストールについて いっち 18/9/13(木) 19:24
Re:TeraPadインストールについて はづ 18/9/14(金) 17:10
Re:TeraPadインストールについて いっち 18/9/14(金) 18:21
Re:TeraPadインストールについて R.N 18/9/15(土) 23:58
Re:TeraPadインストールについて いっち 18/9/16(日) 7:37
Re:TeraPadインストールについて はづ 18/9/19(水) 12:39
[投稿者削除]
[投稿者削除]
Re:TeraPadインストールについて Ryo 18/9/14(金) 9:46

173 / 1497     ←次へ | 前へ→
  新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
 557455
ページ:  ┃  記事番号:  

C-BOARD Moyuku v1.03b3
Jw_cad Copyright (C)1997-2016 Jiro Shimizu & Yoshifumi Tanaka