Water Sunlight

軽量プログラミングの文法 - JavaScript/Python

ユーザ用ツール

サイト用ツール

トレース:
sakura-macro

差分

このページの2つのバージョン間の差分を表示します。

この比較画面にリンクする

両方とも前のリビジョン 前のリビジョン
次のリビジョン 		前のリビジョン
sakura-macro [2022/01/13 13:03]
tanaka 		sakura-macro [2022/02/01 10:31] (現在)
tanaka [visible_pack.js]
行 38: 行 38:
 // ----------------------------------------------- // -----------------------------------------------
 // １行の最大文字数を指定して改行を入れる // １行の最大文字数を指定して改行を入れる
-// 0x0Dが含まれる時は0x0Fに変換する(確認メッセージ有)+// ファイル名に.chopを付けて保存する（改行コードは入力する） 
 +// 0x0Dが含まれる時は確認メッセージ表示 
 +// [はい]：0x0D を 0x0F に変換する 
 +// [いいえ]: 何もしない 
 +// ※ 0x0D:'-'  0x0C:'+'  0x0F:' '
 // ----------------------------------------------- // -----------------------------------------------
 main(); main();
行 78: 行 82:
  // ペースト  // ペースト
  Editor.Paste(0);  Editor.Paste(0);
 +
 + // 改行コード
 + var code = parseInt(Editor.InputBox('[0]変換なし | [1]CRLF | [2]LF | [3]CR を入力して下さい。', 0));
 + if(isNaN(code)){
 + Editor.WarnMsg('改行コードの入力が無いので、ファイルを保存しません。');
 + return;
 + }
  
  // 名前を指定して保存  // 名前を指定して保存
  var fileName = Editor.GetFilename() + '.chop';  var fileName = Editor.GetFilename() + '.chop';
- Editor.FileSaveAs(fileName);+ Editor.FileSaveAs(fileName, 0, code);
 } }
 </sxh> </sxh>
行 186: 行 197:
 ===== xsort.js ===== ===== xsort.js =====
 <sxh javascript;title:xsort.js> <sxh javascript;title:xsort.js>
-TODO+// ----------------------------------------------- 
 +// 複数キーのソート 
 +// [入力方法]{開始位置}:{文字長},{開始位置}:{文字長},asc desc 
 +// ----------------------------------------------- 
 + 
 +main(); 
 + 
 +function main() { 
 + 
 + // キー 
 + var input = Editor.InputBox('{開始位置}:{文字長},{開始位置}:{文字長},asc desc'); 
 + if(!input) return; 
 + 
 + var keys = []; 
 + var inputWords = input.split(','); 
 + var orderWords = inputWords[inputWords.length-1].split(' '); 
 + if(inputWords.length - 1 == orderWords.length) { 
 + for(var i=0; i<inputWords.length-1; i++){ 
 + 
 + var words = inputWords[i].split(':'); 
 + if(words.length == 2){ 
 + var pos = 0; 
 + var len = 0; 
 + var order = ''; 
 +  
 + pos = parseInt(words[0]); 
 + len = parseInt(words[1]); 
 + order = orderWords[i]; 
 + 
 + var obj = new Key(pos, len, order); 
 + keys.push(obj); 
 + } 
 + } 
 + } else { 
 + Editor.ErrorMsg('キーの数とソート順の数があっていません。'); 
 + return; 
 + } 
 + 
 + // 行 
 + var items = []; 
 + for(var i=1; i<=Editor.GetLineCount(0); i++){ 
 + var line = GetLineStr(i); 
 + 
 + var itemKeys = []; 
 + for(var j=0; j<keys.length; j++){ 
 + itemKeys[j] = line.substr(keys[j].pos-1, keys[j].len); 
 + } 
 + 
 + var objItem = new Item(i, itemKeys); 
 + items.push(objItem); 
 + } 
 + 
 + // ソート 
 + items.sort(function(a, b) { 
 + 
 + for(var i=0; i<a.key.length; i++){ 
 +  
 + if(a.key[i] !== b.key[i]) { 
 + if (a.key[i] < b.key[i]) { 
 + return (keys[i].order.toUpperCase() == 'DESC') ? 1 : -1; 
 + } 
 + if (a.key[i] > b.key[i]) { 
 + return (keys[i].order.toUpperCase() == 'DESC') ? -1 : 1; 
 + } 
 + } 
 + } 
 +  
 + return 0; 
 + }); 
 + 
 + var sortTxt = ''; 
 + for(var i=0; i<items.length; i++){ 
 + sortTxt += GetLineStr(items[i].lineNo); 
 + } 
 +  
 + // 上書き 
 + Editor.SelectAll(); 
 + Editor.InsText(sortTxt); 
 +} 
 + 
 +function Key(pos, len, order) { 
 + this.pos = pos; 
 + this.len = len; 
 + this.order = order; 
 +} 
 + 
 +function Item(lineNo, key) { 
 + this.lineNo = lineNo; 
 + this.key = key; 
 +}
 </sxh> </sxh>
  
行 483: 行 583:
 // pic句のバイト数を集計 // pic句のバイト数を集計
 // PICTURE文字列がN, CR, DBはサポートしていません。 // PICTURE文字列がN, CR, DBはサポートしていません。
-// OCCURS と REDEFINES は出てきた数だけ数えます。+// REDEFINES と OCCURS は未サポートです。 
 +//  ・出現した時は警告を出します。 
 +//  ・出てきた数を数えて警告に表示します。
 // ----------------------------------------------- // -----------------------------------------------
    
行 826: 行 928:
  }  }
 } }
- + 
 +/** 
 + * オプション 
 + */ 
 +function getOption(option) { 
 + 
 + for(var index in option) { 
 + if(option[index]=='PACKED-DECIMAL' || option[index]=='COMP-3' || option[index]=='COMPUTATIONAL-3' 
 + || option[index]=='BINARY' || option[index]=='COMP'  || option[index]=='COMPUTATIONAL'){ 
 + return option[index]; 
 + } 
 + } 
 + return ''; 
 +} 
 /** /**
  * Pic配列を文字列に変換  * Pic配列を文字列に変換
行 839: 行 955:
  txt += '\t';  txt += '\t';
  txt += picArr[i].type;  txt += picArr[i].type;
 + var option = getOption(picArr[i].option)
 + if(option){
 + txt += ' ' + getOption(picArr[i].option);
 + }
  txt += '\t';  txt += '\t';
  txt += picArr[i].byte;  txt += picArr[i].byte;
行 849: 行 969:
  
  return txt;  return txt;
-} 
-</sxh> 
- 
-\\ 
-===== visualize_pack.js ===== 
-<sxh javascript;title:visualize_pack.js> 
-// ----------------------------------------------- 
-// パック10進の可視化 
-// 選択されていなかったら全範囲する 
-// ----------------------------------------------- 
- 
-var jisArr = [ 
- ['ｱ','ｻ',' ','0','@','P','`','p','ﾅ','ﾏ'], 
- ['ｲ','ｼ','!','1','A','Q','a','q','ﾆ','ﾐ'], 
- ['ｳ','ｽ','"','2','B','R','b','r','ﾇ','ﾑ'], 
- ['ｴ','ｾ','#','3','C','S','c','s','ﾈ','ﾒ'], 
- ['ｵ','ｿ','$','4','D','T','d','t','ﾉ','ﾓ'], 
- ['ｶ','ﾀ','%','5','E','U','e','u','ﾊ','ﾔ'], 
- ['ｷ','ﾁ','&','6','F','V','f','v','ﾋ','ﾕ'], 
- ['ｸ','ﾂ',"'",'7','G','W','g','w','ﾌ','ﾖ'], 
- ['ｹ','ﾃ','(','8','H','X','h','x','ﾍ','ﾗ'], 
- ['ｺ','ﾄ',')','9','I','Y','i','y','ﾎ','ﾘ'] 
-]; 
- 
-main(); 
- 
-function main() { 
- 
- var isSelected = Editor.IsTextSelected(); 
- if(isSelected == 0) { 
- Editor.MessageBox('選択されていないので全テキストを選択します。'); 
- Editor.SelectAll(); 
- } 
- 
- var colFrom = GetSelectColumnFrom(); // 選択開始桁 
- var colTo = GetSelectColumnTo(); // 選択終了桁 
- var lineFrom = GetSelectLineFrom(); // 選択開始行 
- var lineTo = GetSelectLineTo(); // 選択終了行 
- // 選択範囲の文字列取得 
- var selectText = GetSelectedString(0); 
- 
- // 最後の改行削除 
- selectText = selectText.replace(/\r\n$/, ''); 
- 
- // 改行で分割 
- var selectArr = selectText.split('\r\n'); 
- 
- Editor.CancelMode(); 
- 
- for(var i=0; i<selectArr.length; i++){ 
- 
- var change = ''; 
- for(var j=0; j<selectArr[i].length; j++) { 
- 
- var hex  = ('00' + selectArr[i].charCodeAt(j).toString(16)).slice(-2); 
-  
- var top = hex.charAt(0); // 上位 
- var low = hex.charAt(1); // 下位 
-  
- if(isNaN(top)==0 && isNaN(low)==0) { 
- change += jisArr[low][top]; 
- }else{ 
- change += String.fromCharCode(parseInt(hex, 16)); 
- } 
- } 
- 
- // 範囲選択 
- Editor.MoveCursor(lineFrom + i, colFrom, 0); 
- if(colTo == 1) { 
- Editor.SelectLine(0); 
- Editor.Left_Sel(0); // 改行を選択範囲から削除 
- } else { 
- for(var col=colFrom; col < colTo; col++) { 
- Editor.Right_Sel(0); 
- } 
- } 
- 
- // 上書き 
- Editor.InsText(change); 
- } 
 } }
 </sxh> </sxh>
sakura-macro.1642046637.txt.gz · 最終更新: 2022/01/13 13:03 by tanaka

ページ用ツール

特に明示されていない限り、本Wikiの内容は次のライセンスに従います： CC Attribution-Share Alike 4.0 International
CC Attribution-Share Alike 4.0 International Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki