LINE公式アカウントを導入検討している自治体などが喜んで、
ソフトベンダーが泣きそうな記事ですが…
基本的に、掲題のことは完全無料でできます。
ここ、まだ完全に理解していないので、後ほど記事更新しますが、
以下URLを参考に、トークン（文字列）をゲットします。
https://developers.line.biz/ja/docs/messaging-api/channel-access-tokens/
function pullHeadlineAndSend() {
var url = 'http://www.data.jma.go.jp/developer/xml/feed/extra.xml';
var xml = UrlFetchApp.fetch(url).getContentText();
var xmlDoc = XmlService.parse(xml);
var rootDoc = xmlDoc.getRootElement();
var nsDefault = XmlService.getNamespace("", 'http://www.w3.org/2005/Atom');
var entries = rootDoc.getChildren("entry", nsDefault);
var length = entries.length;
var currentDate = new Date().getTime();
var title, updated, date, author, content;
var headlines = "";
// 最長で10分後に更新される
var past10Min = 10 * 60 * 1000;
// 10分以内に更新された東京都の気象警報のみ取得
for(var i=0; i < length; i++) {
title = entries[i].getChildText("title", nsDefault);
author = entries[i].getChild("author", nsDefault).getChildText("name", nsDefault);
content = entries[i].getChildText("content", nsDefault);
updated = entries[i].getChildText("updated", nsDefault);
date = new Date(updated).getTime();
if(currentDate - date > past10Min) continue;
if(title.indexOf("気象警報・注意報") != -1 && author === "仙台管区気象台" && content.indexOf("宮城県") != -1 ){
headlines += Utilities.formatString('[%s]\n%s\n%s\n', title, toLocalDate(updated), content);
}
}
if(headlines !=="")
{
sendPushMessage(headlines);
Logger.log(headlines);
}
}
function toLocalDate(dateString)
{
var date = new Date(dateString);
var formattedDate = Utilities.formatDate( date, 'Asia/Tokyo', 'yyyy年M月d日 HH時');
return formattedDate;
}
function testSend()
{
sendPushMessage('test message');
}
const TOKEN = 'got_token_string_ゲットしたトークンの文字列を貼り付け';
function sendPushMessage(text) {
var url = "https://api.line.me/v2/bot/message/broadcast";
var headers = {
"Content-Type" : "application/json; charset=UTF-8",
'Authorization': 'Bearer ' + TOKEN,
};
var postData = {
"messages" : [
{
'type':'text',
'text':text,
}
]
};
var options = {
"method" : "post",
"headers" : headers,
"payload" : JSON.stringify(postData)
};
return UrlFetchApp.fetch(url, options);
}
LinuxのGUIで複数タブ又は複数ウィンドウ（別セッション）で端末を開きつつ、各画面で臨機応変にサーバーにSSH接続する場合（どんな仕事だ…）、SSH接続をexpectのワンライナーでalias登録すると素早さが増しますが、躓いた部分があったので解説します。
bashでシングルクォーテーションをエスケープするには「\」＝バックスラッシュ（日本語環境では￥マーク）を使用しますが、シングルクォーテーションの中のシングルクォーテーションには使えません。aliasコマンドは、登録するコマンドをシングルクォーテーションで囲む必要がありますが、expectをワンライナーで登録する場合、その内部にシングルクォーテーションを使う場面が出てきます。
この場合、一旦シングルクォーテーションを区切る意味で、「'\'」を使用します。
bad!!
alias 'a1=expect -c \'spawn .....\''
good!!
alias 'a1=expect -c '\''spawn .....'\'''
aliasコマンドでaliasを登録した場合、別セッション（＝GUIでは端末の別タブ・別ウィンドウ）を開く場合、aliasを引き継いでくれません。別セッション立ち上げ時はユーザー・ホームディレクトリにある.bashrcを読み込むので、ここにaliasを記載しておけば事足ります。（OSによっては、.bash_aliasesへの記載が推薦されていることもあります）
しかし、
場合、.bashrcを編集するのは不適切です。そこで、aliasで登録した後、aliasの内容を.bashrcにリダイレクトしてやると、それ以降の端末起動時にも読み込ませることができます。
alias >> ~/.bashrc
前回alias登録済みで、重複があった場合、aliasのショートカットが上書きされるだけなので、.bashrcが無限増殖することはありません。
さらに、サーバー上に設定ファイルが置けない、毎回ログインするサーバーが不定の場合、alias登録から.bashrc更新までワンライナーで記載して、端末へコピペするとその後の作業が楽になります。
例として、複数のサーバーログインショートカットを作成し、.bashrcを更新するワンライナースクリプトを示します。
alias at='expect -c '\''spawn ssh -o UserknownHostsFile=/dev/null -o StrictHostKeyChecking=no username@192.168.0.1; expect "assword"; send "password\r"; interact'\''';alias ax='expect -c '\''spawn ssh -o UserknownHostsFile=/dev/null -o StrictHostKeyChecking=no username@192.168.0.100; expect "assword"; send "password\r"; interact'\''';alias >> ~/.bashrc;
これで、sshでパスワードを打っている隣の同僚を、置いてけぼりにすることができるでしょう！
ノートパソコンのキーボードや、コンパクトタイプのUSBキーボードでは、よく使うキーが、ファンクションキーと同時押しだったり、無かったりして不便なことがあります。
そこで、あまり使わないF11やF12、PageDown等を、InsertやHome等として使用する方法を紹介します。
PowerToysは、Microsoft製便利ツールの詰め合わせです。上級者向け・ベータ版のため、GitHubから手動でインストールする必要があります（リンク）。
こちらはWindows PCで、INSを殆ど使わないので、何故か特殊キーとなっているDELを割り当てて使いやすくしています。キーは何個でも割り当て可能です。
他にも、右クリックで画像縮小できるツール（画像のアップロード容量制限があるときにサッと縮小できる）があり、なかなか便利なツールです。
PowerToysのインストールが出来ないが、管理者権限がある場合（そんなことは稀ですが、GitHubへの接続を禁じている等）、レジストリを編集することでキーの入れ替えが可能です。
ただし、表記が見辛くメンテナンスが面倒なため、ベターな方法ではありません。
まず、レジストリの下記ディレクトリを探し、
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout
「新規」→「バイナリ値」で新しい値を作成して、名前を「Scancode Map」とします。ここに、バイナリ値を書き込みます。
フォーマットは、
00 00 00 00 00 00 00 00 ←固定
[num] 00 00 00 [after] [before]
[after] [before] ....
00 00 00 00 ←固定
[num]は入れ替えたい組み合わせの数ですが、最後の00 00 00 00も含めるため、
＋１の値を記入します。
[after][before]にはキー特有のコードを入力しますが、逆表記とします。
例えば、F12のコードは58ですが、00 58の逆で、58 00となります。
Page Down E0 51
Insert E0 52
F12 58
（今回使用したコードです。キーボードタイプによって変わるキーもあるので、Microsoft等のオフィシャルな情報を参考にしてください）
今回は、Shift & Insertで貼り付けを多用し、Page Downキーが無い外付けキーボードにも
対応するため、Page Down -> INS, F12 -> INS へ二つ入れ替えます。
00 00 00 00 00 00 00 00
03 00 00 00 52 E0 51 E0
52 E0 58 00 00 00 00 00
これで、Page Down / F12 が両方ともINSキーとなり、Shiftと組み合わせると貼り付けが可能となります。
Ctrl & V だとコマンドの中止となってしまうLinuxのために、INSが無いキーボードは「注」と大きく表記してほしいものですね。
前回の記事でXMLファイルを作成するPowerShellのClassを紹介しましたが、あれには重大な欠点がありました。
XML宣言は書きましたが、タグを羅列するだけで、ルートタグは特に作成しませんでした。これでも大丈夫かと思っていましたが、PowerShellやPythonのXML Parserでは、ルートタグが無いとエラーを吐いて、読み込んですらしてくれないのです（ただ、キーと値のデータを保存したかっただけなのに…）。
もう一点、文字コードも明確にUTF-8で指定しないと、PowerShellの標準はUTF-16なので、XML宣言と相違が出ることになります。
ルートタグで囲うので、データを保持するハッシュテーブルと、最後にセーブする関数を追加してクラスを再作成します。
class xmlFile
{
$values = @{};
$override = $false;
[void]SetOverride($set_boolean){
$this.override = $set_boolean;
}
[void]AddVal($key, $val){
if(!$this.values.Contains($key)){
$this.values.Add($key, $val);
}elseif($this.override){
$this.values.$key = $val;
}
}
[String]GetVal($key){
return $this.values.$key;
}
[void]SaveXml($root_tag, $save_filename){
'<?xml version="1.0" encoding="UTF-8" ?>' | Out-File $save_filename -Encoding utf8;
"<$root_tag>" | Out-File $save_filename -Append -Encoding utf8;
$this.values.keys | Sort-Object | ForEach-Object{
$set_value = $this.values.$_;
"<$_>$set_value</$_>" | Out-File $save_filename -Append -Encoding utf8;
}
"</$root_tag>" | Out-File $save_filename -Append -Encoding utf8;
}
}
関数AddValでハッシュテーブルvaluesにキーと値を追加します。変数overrideの値によって、同名キーがある場合に無視するか、値を更新します。
キーと値はハッシュテーブルに格納し、関数SaveXmlによってXML宣言とルートタグを追加して保存します。いちいち保存しなくていいようにしたかったのですが、ルートタグの追加には必須です。
文字列をそのままパイプでOut-Fileに流してやれば、ファイルに保存できます。オプション -Appendでファイルに追記、-Encodeでエンコードを設定できます。
ハッシュテーブルのkeysを、Sort-Objectを介してForEach-Objectに渡すと、キー名アルファベット昇順で処理できます。
$xf = New-Object xmlFile;
$xf.AddVal("testKey1", "testVal1");
$xf.AddVal("testKey2", "testVal2");
Write-Output $xf.GetVal("testKey1");
$xf.SetOverride($True);
$xf.AddVal("testKey1", "testVal1-1");
$xf.SaveXml("parent", "C:\myCodes\test.xml");
↓結果
class xmlFile
{
$newFile;
# ->newFileNameにしてしまいそうだが、そこはオブジェクト志向で…
xmlFile($setFileName){
$this.newFile =New-Item $setFileName -type file -Force;
Write-Output '<?xml version="1.0" encoding="UTF-8" ?>' | Add-Content $this.newFile -Force
}
add($key, $val){
Write-Output "<$key>$val<⁄$key>" | Add-Content $this.newFile -Force
}
}
$xf = New-Object xmlFile("$PSScriptRoot\test.xml");
$xf.add("testKey1", "testVal1");
$xf.add("testKey2", "testVal2");
FukushimaServer,192.168.10.2 SendaiServer,192.168.120.3 TokyoServer,192.168.1.1
grep "SendaiServer" sample_server_list.txt | cut -d , -f2
myPath = "C:/myApps/python/sample_server_list.txt"
with open(myPath, 'r', encoding='utf-8') as file:
lines = file.readlines()
for line in lines:
if line.startswith("SendaiServer"):
address = line.strip().split(",")[1]
print(address)
$finder = Select-String -Path $PSScriptRoot\sample_server_list.txt -Pattern "SendaiServer";
$address = $finder.line.Split(",")[1];
Write-Output $address;Document.Open();
wait(CONNECT);
sopen(OPEN_LOOK);
swait(3,">");
sputs("ssh SSH_Server_Name\n")
swait(3,":");
sputs("myPassword\n");
swait(3,"Do you access this server(yes/no):");
sputs("yes\n");
sclose();
Dim myShell
Set myShell = CreateObject("WScript.Shell")
myShell.Run "C:\Tool\RLogin.exe /entry Entry_Name" , 1, true
& C:\Tool\RLogin.exe /entry Entry_Name
$getProperties = @('myId', 'myNetwork');
$binding = "System.Reflection.BindingFlags" -as [type];
$word = New-Object -ComObject word.Application;
$word.Visible = $False;
$targetFolder = '\\QNAP\myData';
$docs = Get-ChildItem $targetFolder -Filter *.doc;
foreach($doc in $docs){
$Document = $word.Documents.Open($doc.FullName, $False, $True); #fileFullName, Convert Dialog, Read-Only
$customProperties = $Document.CustomDocumentProperties;
$getValues = @{};
foreach($prop in $getProperties){
$myProp = [System.__ComObject].InvokeMember('Item', $binding::GetProperty, $null, $customProperties, $prop);
$myVal = [System.__ComObject].InvokeMember('Value', $binding::GetProperty, $null, $myProp, $null);
$getValues.Add($prop, $myVal);
}
$Document.Close(0); #0:Don't save, -2:Prompt, -1:Save
$outputString = $doc.FullName + ">" + $getValues['myId'] + ">" + $getValues['myNetwork'];
Write-Output $outputString;
}
$word.Quit();
$null = [System.Runtime.InteropServices.Marshal]::ReleaseComObject([System.__ComObject]$word);
[gc]::Collect();
[gc]::WaitForPendingFinalizers();
Remove-Variable word;
\\QNAP\myData\a1.doc>500604>10.56.135.12 \\QNAP\myData\a2.doc>500607>10.56.145.12 \\QNAP\myData\a3.doc>500609>10.72.136.11
expect -c 'spawn ssh userName@serverName; expect "assword:"; send "myPassword\r"; interact'
Dim setArray, dics As New Dictionary, c As Integer
ReDim setArray(maxNum - 1)
Do While Not IsEmpty(setSheet.Cells(r, 1))
Set setArray(c) = New myClass
dics.add setSheet.Cells(r, 1).Value, setArray(c)
c = c + 1
r = r + 1
Loop
Set units = New Dictionary units.RemoveAll
df<-read.Alteryx("#1", mode="data.frame")
mkdir<-paste(df[1,1], "output", sep="")
dir.create(mkdir)
names(mkdir)<-c("outputFolder")
write.Alteryx(mkdir, 1)
Public graphSet As Dictionary
Private targetSheet As Worksheet
Public Function setSheet(mySheet As Worksheet)
Set targetSheet = mySheet
With targetSheet
Set graphSet = New Dictionary
Dim chart
For Each chart In targetSheet.ChartObjects
graphSet.Add chart.chart.ChartTitle.Text, chart.Name
Next
End With
End Function
Public Function setSourceData(GraphTitle, setRange As Range)
With targetSheet
Dim currentChart As chart
Set currentChart = .ChartObjects(graphSet(GraphTitle)).chart
currentChart.setSourceData Source:=setRange
End With
End Function
Public Function setCategoryMinMax(GraphTitle, MinScale, MaxScale)
With targetSheet
Dim currentChart As chart
Set currentChart = .ChartObjects(graphSet(GraphTitle)).chart
currentChart.Axes(xlCategory).MinimumScale = MinScale
currentChart.Axes(xlCategory).MaximumScale = MaxScale
End With
End Function
Public Sub setDataToGraph()
Dim payment, payments
payments = Array("現金", "カード", "PayPay")
'今回はグラフとデータを別にしましたが、同じシートでも可
Dim graphs As New graphInSheet
graphs.setSheet ThisWorkbook.Worksheets("graph")
Dim dataSheet As Worksheet
Set dataSheet = ThisWorkbook.Worksheets("data")
Dim region
For Each region In graphs.graphSet
Dim dataColumns As New Dictionary
Dim setRange As Range, lastRow
With dataSheet
'横軸(項目に対して固定)を設定
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
Set setRange = .Range(.Cells(1, 1), .Cells(lastRow, 1))
'各グラフに必要な項目の列を収集
dataColumns.RemoveAll
For Each payment In payments
dataColumns.Add .Rows(1).Find(region & "_" & payment).Column, Null
Next
'列からRangeの集合を作成し、グラフにセット
Dim setColumn
For Each setColumn In dataColumns
Set setRange = Union(setRange, .Range(.Cells(1, setColumn), _
.Cells(lastRow, setColumn)))
Next
End With
graphs.setSourceData region, setRange
Next
End Sub
