Jw_cad 相談室−その2 New

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

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

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


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

Re:一括で文字挿入の方法
 いっち  - 18/9/9(日) 6:16 -
▼R.Nさん:
R.Nさん、おはようございます。

>「TeraPad」での"正規表現・置換"には、「TpRegExp.exe」(現在公開停止)を使用させて頂いてますが
私は利用した事はありませんが、そういうツールがあった事を思い出しました。

>エディタは、「TeraPad」を使用させて頂いています。
それでしたら、スクリプトを自由に修正して頂いて、ご自身が欲しい動作にして頂いても良いですね。

>"いっちさん" の、Windowsスクリプトを「TeraPad」のツール設定で登録し、試してみました。
>外変より動作が早いように感じました。
動作確認ありがとうございます。

>エディタなら、外変を思い起こすこともなく、JWW文字コマンドから素直に移行でますので、便利かと思いました。
今更ですが、TaraPadのツールとしてスクリプトを書く場合に、注意しなければいけない点がある事に気が付きました。

外変から実行するスクリプトを書く時には、「何も書かれていないファイル」を読み込む事は無いと思いますが、TeraPadのツールとして実行する場合には、「何も書かれていないファイル」に対してスクリプトを実行させた場合も考慮するべきでした。
※但し、JWW文字コマンドから開いた場合にしか利用しないなら、問題無いと思います。

現状のスクリプトですと「何も書かれていないファイル」に対して objFile.ReadAll() を実行させると「Windows Script Host がエラーメッセージを出し終了」します。
この「エラーメッセージ」がうざい場合には、申し訳ありませんが下記のスクリプトにお差替え下さい。

=== 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);
ss=objFile.ReadAll().split("\r\n");
objFile.Close();
}catch(e){
// WScript.Echo(e.description + "(Error No=" + (e.number & 0xFFFF) +")");
WScript.Quit();
}
(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

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

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