iInfo 資訊交流

Python TA-Lib 套件建置安裝

2023-08-24T23:27:00.005-07:00

Ta-Lib 是一個 Python 金融套件，主要用來計算金融數據指標與K線型態的套件，該套件安裝上有分成使用 whl 包安裝 https://www.lfd.uci.edu/~gohlke/pythonlibs/#ta-lib 安裝與透過 C++ 自行建置套件的方式2種，但對於 Windwos 的使用者來說自行建置的方式相對不友善，以下將介紹如何在Windows環境上自行建置 Ta-Lib 套件與安裝。

在 Windows 上，若直接下 pip install ta-lib 是無法進行安裝 ta-lib 套件，原因缺少相關Visual Studio 2015 的編譯程式編譯的檔案所導致。

依據 Ta-Lib GitHub 在 Windows 環境的建置方法如：

步驟1：下載 ta-lib-0.4.0-msvc.zip 壓縮檔，並解壓縮到 C:\ta-lib，請注意這個步驟，一定要加檔案解壓縮至 C:\ta-lib，若放置他處將無法順利安裝。

步驟2：至微軟官網下載 Visual Studio Community 軟體安裝。

步驟3：安裝「使用C++的桌面開發」與「MSVC v140 - VS 2015 C++ 建置工具 (v14.00)」。

步驟4：開啟 VS2016 x64 Native Tools 命令提示字元。

步驟5：將路徑切換到 C:\ta-lib\c\make\cdr\win32\msvc，輸入 nmake 建置 ta-lib 套件。

步驟6：輸入 pip install ta-lib 進行套件安裝。

步驟7：最後輸入 python -c "import talib"，只要沒出現錯誤訊息表示成功安裝 Ta-Lib 套件。

Android Studio環境設定與問題處理

2023-06-01T23:09:00.007-07:00

近期工作又需要再使用Android Studio，在執行專案後模擬器都無法正常，移除重裝了好幾次，最後似乎看到了解決的曙光，將過程整理與記錄下來，方便之後在遇到相同問題時可以解決。

下載 Android Studio

下載最新版的 Android Studio

連結：https://developer.android.com/studio

若因為專案需求要下載舊版Android Studio

連結：https://developer.android.com/studio/archive?hl=zh-tw

安裝Android Studio後的環境變數設定

JDK環境變數

JDK下載：https://www.oracle.com/tw/java/technologies/downloads/
Windwos上環境變數設定

Android SDK環境變數

變數名稱：ANDROID_SDK_HOME
變數路徑：C:\Users\Amin\AppData\Local\Android\Sdk
Windwos上環境變數設定

path下新增環境變數

變數路徑：
%JAVA_HOME%\bin
%JAVA_HOME%\jre\bin
%ANDROID_SDK_HOME%\platform-tools
%ANDROID_SDK_HOME%\tools
Windwos上環境變數設定

修改模擬器設定~/.android/avd/[[name of your avd]].avd/config.ini

disk.dataPartition.size = 512M
fastboot.forceColdBoot = yes
fastboot.forceFastBoot = no

發生 INSTALL_FAILED_NO_MATCHING_ABIS 錯誤

The application could not be installed: INSTALL_FAILED_NO_MATCHING_ABIS
Installation failed due to: 'INSTALL_FAILED_NO_MATCHING_ABIS: Failed to extract native libraries, res=-113'

解決方式：在app的build:gradle中添加以下內容

新書出版：Python x Excel VBA x JavaScript｜網路爬蟲 x 實戰演練

2021-03-17T19:44:00.011-07:00

感謝長期關注部落格的朋友們，小弟預計在 2021/3/26出版第二本書《Python x Excel VBA x JavaScript｜網路爬蟲 x 實戰演練》，距離第一本書《Excel VBA 實戰技巧｜金融數據x網路爬蟲》快2年了。
若您喜歡本書第一本書《Excel VBA 實戰技巧｜金融數據x網路爬蟲》的內容，那這本書《Python x Excel VBA x JavaScript｜網路爬蟲 x 實戰演練》您也不能錯過，這本書結合了Python、Excel VBA、JavaScript內容，是非常值得研讀與學習的爬蟲書籍。

如果大家喜歡小弟寫的書籍，請用「新台幣」讓它下架，按讚、分享及留言，並在購書網頁按讚，讓更多人知道這本書存在，因為真的太超值了，謝謝。

天瓏
https://www.tenlong.com.tw/products/9789865027698

博客來
https://www.books.com.tw/products/0010887169

金石堂
https://www.kingstone.com.tw/basic/2014713613240

MOMO
https://www.momoshop.com.tw/goods/GoodsDetail.jsp?i_code=8696355

碁峰圖書
http://books.gotop.com.tw/v_ACD020100

Google、Facebook、Line OAuth 實做登入操作 (4) - 將 Google Login 加入到 Android app

2021-03-12T00:28:00.011-08:00

今天 Login 進度到如何在 Android 上加入 Google Login ，一樣手把手一步一步操作。
步驟1：在Android Studio 建立App「GoogleLogin」，在 MainActivity.java 輸入以下程式碼。

package com.amin.googlelogin;

import androidx.appcompat.app.AppCompatActivity;
import android.content.Intent;
import android.os.Bundle;
import android.util.Log;
import android.view.View;
import com.google.android.gms.auth.api.signin.GoogleSignIn;
import com.google.android.gms.auth.api.signin.GoogleSignInAccount;
import com.google.android.gms.auth.api.signin.GoogleSignInClient;
import com.google.android.gms.auth.api.signin.GoogleSignInOptions;
import com.google.android.gms.common.Scopes;
import com.google.android.gms.common.SignInButton;
import com.google.android.gms.common.api.ApiException;
import com.google.android.gms.common.api.Scope;
import com.google.android.gms.tasks.Task;

public class MainActivity extends AppCompatActivity {
    private SignInButton signInButton;
    private static final int RC_SIGN_IN = 1;

    //https://stackoverflow.com/questions/47437678/why-do-i-get-com-google-android-gms-common-api-apiexception-10
    @Override
    protected void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.activity_main);

        // 設定 Google 登入 Client
        GoogleSignInOptions gso = new GoogleSignInOptions.Builder(GoogleSignInOptions.DEFAULT_SIGN_IN)
                .requestScopes(new Scope(Scopes.OPEN_ID), new Scope(Scopes.PLUS_ME))
                .requestIdToken(getString(R.string.default_web_client_id))
                .requestProfile()
                .requestEmail()
                .build();

        final GoogleSignInClient mGoogleSignInClient = GoogleSignIn.getClient(this, gso);
        SignInButton signInBtn = findViewById(R.id.login_button);
        signInBtn.setOnClickListener(new View.OnClickListener() {

            private void signIn() {
                Intent signInIntent = mGoogleSignInClient.getSignInIntent();
                startActivityForResult(signInIntent, RC_SIGN_IN);
            }

            public void onClick(View v) {
                switch (v.getId()) {
                    case R.id.login_button:
                        signIn();
                        break;
                }
            }
        });
    }

    //https://developers.google.com/android/reference/com/google/android/gms/auth/api/signin/GoogleSignInAccount
    @Override
    public void onActivityResult(int requestCode, int resultCode, Intent data) {
        super.onActivityResult(requestCode, resultCode, data);

        if (requestCode == RC_SIGN_IN) {
            // The Task returned from this call is always completed, no need to attach a listener.
            Task<GoogleSignInAccount> task = GoogleSignIn.getSignedInAccountFromIntent(data);

            handleSignInResult(task);
        }
    }

    private void handleSignInResult(Task<GoogleSignInAccount> completedTask) {
        try {//代表有成功
            GoogleSignInAccount account = completedTask.getResult(ApiException.class);

            // Signed in successfully, show authenticated UI.
            Log.d("GoogleLoginlog", "DisplayName : "  + account.getDisplayName());
            Log.d("GoogleLoginlog", "GivenName : "  + account.getGivenName());
            Log.d("GoogleLoginlog", "FamilyName : "  + account.getFamilyName());
            Log.d("GoogleLoginlog", "Email : "  + account.getEmail());
            Log.d("GoogleLoginlog", "Id : "  + account.getId());
            Log.d("GoogleLoginlog", "idtoken : "  + account.getIdToken());
            Log.d("GoogleLoginlog", "PhotoUrl : "  + account.getPhotoUrl());

            Intent it = new Intent(this, showinfo.class);
            it.putExtra("displayname", account.getDisplayName());
            it.putExtra("givenname", account.getGivenName());
            it.putExtra("familyname", account.getFamilyName());
            it.putExtra("id", account.getId());
            it.putExtra("idtoken", account.getIdToken());
            it.putExtra("email", account.getEmail());
            it.putExtra("photourl", account.getPhotoUrl().toString());
            startActivity(it);
        } catch (ApiException e) {//代表沒成功
            // The ApiException status code indicates the detailed failure reason.
            // Please refer to the GoogleSignInStatusCodes class reference for more information.
            Log.w("TAG", "signInResult:failed code=" + e.getStatusCode());

        }
    }
}

在 activity_main.xml 添加

     <com.google.android.gms.common.SignInButton
        android:id="@+id/login_button"
        android:layout_width="246dp"
        android:layout_height="75dp"
        app:layout_constraintBottom_toBottomOf="parent"
        app:layout_constraintEnd_toEndOf="parent"
        app:layout_constraintHorizontal_bias="0.496"
        app:layout_constraintStart_toStartOf="parent"
        app:layout_constraintTop_toTopOf="parent"
        app:layout_constraintVertical_bias="0.453" />

步驟2：新增「showinfo」的 Empty Activity，在 showinfo.java 輸入以下程式碼。

package com.amin.googlelogin;

import androidx.annotation.NonNull;
import androidx.appcompat.app.AppCompatActivity;
import android.content.Intent;
import android.os.Bundle;
import android.view.View;
import android.widget.Button;
import android.widget.TextView;
import android.widget.Toast;
import com.google.android.gms.auth.api.signin.GoogleSignIn;
import com.google.android.gms.auth.api.signin.GoogleSignInClient;
import com.google.android.gms.auth.api.signin.GoogleSignInOptions;
import com.google.android.gms.tasks.OnCompleteListener;
import com.google.android.gms.tasks.Task;

public class showinfo extends AppCompatActivity {

    private Button logoutBtn;
    GoogleSignInClient mGoogleSignInClient;

    @Override
    protected void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.activity_showinfo);

        GoogleSignInOptions gso = new GoogleSignInOptions.Builder(GoogleSignInOptions.DEFAULT_SIGN_IN)
                .requestEmail()
                .build();

        // Build a GoogleSignInClient with the options specified by gso.
        mGoogleSignInClient = GoogleSignIn.getClient(this, gso);

        final Button m_button  = (Button) findViewById(R.id.button);
        m_button.setOnClickListener(new Button.OnClickListener(){
            @Override
            public void onClick(View v) {
                Intent it = new Intent(showinfo.this, MainActivity.class);
                startActivity(it);
                finish();
            }
        });

        logoutBtn = findViewById(R.id.logoutBtn);
        logoutBtn.setOnClickListener(new View.OnClickListener() {
            @Override
            public void onClick(View v) {
                signOut();
            }
        });

        TextView result = null;

        Intent intent = getIntent();
        String displayname = intent.getStringExtra("displayname");
        result = (TextView) findViewById(R.id.displayname);
        result.setText("使用者displayname : " + displayname);

        String givenname = intent.getStringExtra("givenname");
        result = (TextView) findViewById(R.id.givenname);
        result.setText("使用者givenname : " + givenname);

        String familyname = intent.getStringExtra("familyname");
        result = (TextView) findViewById(R.id.familyname);
        result.setText("使用者familyname : " + familyname);

        String id = intent.getStringExtra("id");
        result = (TextView) findViewById(R.id.id);
        result.setText("使用者id : " + id);

        String idtoken = intent.getStringExtra("idtoken");
        result = (TextView) findViewById(R.id.idtoken);
        result.setText("使用者idtoekn : " + idtoken);

        String email = intent.getStringExtra("email");
        result = (TextView) findViewById(R.id.email);
        result.setText("使用者email : " + email);

        String photourl = intent.getStringExtra("photourl");
        result = (TextView) findViewById(R.id.photourl);
        result.setText("圖片連結 : " + photourl);
    }

    private void signOut() {
        mGoogleSignInClient.signOut()
                .addOnCompleteListener(this, new OnCompleteListener() {
                    @Override
                    public void onComplete(@NonNull Task task) {
                        Intent intent = new Intent(showinfo.this, MainActivity.class);
                        startActivity(intent);
                    }
                });
        Toast.makeText(this, "登出成功!!", Toast.LENGTH_SHORT).show();
    }
}

在 activity_showinfo.xml 添加

   <TextView
        android:id="@+id/idtoken"
        android:layout_width="300dp"
        android:layout_height="50dp"
        app:layout_constraintBottom_toBottomOf="parent"
        app:layout_constraintEnd_toEndOf="parent"
        app:layout_constraintHorizontal_bias="0.405"
        app:layout_constraintStart_toStartOf="parent"
        app:layout_constraintTop_toTopOf="parent"
        app:layout_constraintVertical_bias="0.599" />

    <TextView
        android:id="@+id/photourl"
        android:layout_width="300dp"
        android:layout_height="60dp"
        app:layout_constraintBottom_toBottomOf="parent"
        app:layout_constraintEnd_toEndOf="parent"
        app:layout_constraintHorizontal_bias="0.405"
        app:layout_constraintStart_toStartOf="parent"
        app:layout_constraintTop_toTopOf="parent"
        app:layout_constraintVertical_bias="0.845" />

    <TextView
        android:id="@+id/id"
        android:layout_width="300dp"
        android:layout_height="40dp"
        app:layout_constraintBottom_toBottomOf="parent"
        app:layout_constraintEnd_toEndOf="parent"
        app:layout_constraintHorizontal_bias="0.378"
        app:layout_constraintStart_toStartOf="parent"
        app:layout_constraintTop_toTopOf="parent"
        app:layout_constraintVertical_bias="0.499" />

    <TextView
        android:id="@+id/familyname"
        android:layout_width="300dp"
        android:layout_height="40dp"
        android:layout_margin="10dp"
        app:layout_constraintBottom_toBottomOf="parent"
        app:layout_constraintEnd_toEndOf="parent"
        app:layout_constraintHorizontal_bias="0.378"
        app:layout_constraintStart_toStartOf="parent"
        app:layout_constraintTop_toTopOf="parent"
        app:layout_constraintVertical_bias="0.384" />

    <Button
        android:id="@+id/logoutBtn"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_gravity="right"
        android:text="登出"
        app:layout_constraintBottom_toBottomOf="parent"
        app:layout_constraintEnd_toEndOf="parent"
        app:layout_constraintHorizontal_bias="0.498"
        app:layout_constraintStart_toStartOf="parent"
        app:layout_constraintTop_toTopOf="parent"
        app:layout_constraintVertical_bias="0.049" />

    <TextView
        android:id="@+id/givenname"
        android:layout_width="300dp"
        android:layout_height="40dp"
        android:layout_margin="10dp"
        app:layout_constraintBottom_toBottomOf="parent"
        app:layout_constraintEnd_toEndOf="parent"
        app:layout_constraintHorizontal_bias="0.351"
        app:layout_constraintStart_toStartOf="parent"
        app:layout_constraintTop_toTopOf="parent"
        app:layout_constraintVertical_bias="0.264" />

    <TextView
        android:id="@+id/displayname"
        android:layout_width="300dp"
        android:layout_height="40dp"
        android:layout_margin="10dp"
        app:layout_constraintBottom_toBottomOf="parent"
        app:layout_constraintEnd_toEndOf="parent"
        app:layout_constraintHorizontal_bias="0.351"
        app:layout_constraintStart_toStartOf="parent"
        app:layout_constraintTop_toTopOf="parent"
        app:layout_constraintVertical_bias="0.159" />

    <Button
        android:id="@+id/button"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:text="返回"
        app:layout_constraintBottom_toBottomOf="parent"
        app:layout_constraintEnd_toEndOf="parent"
        app:layout_constraintHorizontal_bias="0.13"
        app:layout_constraintStart_toStartOf="parent"
        app:layout_constraintTop_toTopOf="parent"
        app:layout_constraintVertical_bias="0.049" />

    <TextView
        android:id="@+id/email"
        android:layout_width="300dp"
        android:layout_height="40dp"
        app:layout_constraintBottom_toBottomOf="parent"
        app:layout_constraintEnd_toEndOf="parent"
        app:layout_constraintHorizontal_bias="0.378"
        app:layout_constraintStart_toStartOf="parent"
        app:layout_constraintTop_toTopOf="parent"
        app:layout_constraintVertical_bias="0.713" />

步驟3：在「專案」的 build.gradle 添加「classpath 'com.google.gms:google-services:4.3.5'」。

步驟4：在「模組」的 build.gradle 添加「implementation 'com.google.android.gms:play-services-auth:19.0.0'」。

步驟5：在 AndroifManifest.xml 添加「<uses-permission android:name="android.permission.INTERNET" />」。

步驟6：點擊 Gradle > Tasks > android > signingReport，產生SHA1金鑰。

步驟7：到 Google APIs https://console.developers.google.com/apis/credentials，新增憑證服務，這一步一定要做，不然 MainActivity.java中，第62行無法成功執行。

(1) 點擊建立憑證。

(2) 點擊「Android」。

(3) 輸入建立「建立OAuth 用戶端 ID」所需資料。

(4) 最後完成建立。

最後 Build 專案。

Google Spredsheet 抓 TWN 富台期未平倉量與預估富台期契約開倉成本

2021-02-28T07:36:00.007-08:00

富台期未平倉量資料一直是投資朋友們想收集統計，筆者透過Google Spreadsheet每日自動抓取富台期未平倉量，並計算預估富台期次月契約開倉成本，藉此觀察富台期指數與外資未平倉量的動向。富台期未平倉量資料顯示如下功能：

每日下午3:00 ~ 4:00由Google排程自動更新每日富台期未平倉量資料。
每月富台期結算日後，自動計算次月的開倉成本並畫成圖。
從2020/07/20後，開始記錄每月資料並自動留存。
程式以Google Apps Script、JavaScript撰寫。

補充說明：

富台期期貨契約換倉預估成本是以結算日計算開倉預估成本，不是每天預估計算的成本。
從2020/07/20後開始記錄未平倉量資料。
資料僅就2020/07開始的上午T盤資料為主。

資料來源：新加坡交易所SGX。

免責聲明：以下內容僅供網路程式教學使用，請勿以此作為投資參考之依據，盈虧不負。

Google Apps Script 入門到進階(22) - 使用 Cheerio 協助爬蟲解析網頁

2021-02-22T22:21:00.005-08:00

1年前 Google 雲端爬蟲程式突然無法運作，加上寫書緣故就去處理，最近有空重新整理，發現原來 Google App Script 解析網頁的函數 Xml.parse 已無法再使用了，換成 XmlService.parse 又發現非常難用，需要刪除很多網頁元素，原因是 XmlService.parse 對於 XML 的規則要求格，但HTML結構鬆散，所以無法直接適用，後來捨棄 XmlService.parse。

在網路尋找中無意間發現有外部套件 Cheerio 可以用來解析HTML，經過測試確實可以在GAS環境上使用也非常方便，之後也將全面採行，以下就稍微說明相關作法。
GAS版的 Cheerio 是外國人將 Cheerio 封裝而成的函式庫，需要透過Script ID加入GAS函式庫中。

Script ID：1ReeQ6WO8kKNxoaA_O0XEQ589cIrRvEBA9qcWpNqdOP17i47u6N9M5Xh0

以下就手把手帶各位操作。
步驟1：新增 Google 試算表。

步驟2：點擊「指令碼編輯器」，開啟「App Script」編輯環境。

步驟3：點擊「資料庫」，輸入Script ID，新增「函式庫」。

步驟4：輸入程式碼，抓取「Yahoo主力進出表」。

function getStockMajor()
{
  var st = SpreadsheetApp.getActiveSpreadsheet();
  var sheet = st.getSheets()[0].clear(); 

  //連線Yahoo主力進出表
  var URL = "https://tw.stock.yahoo.com/d/s/major_2330.html";
  var source = UrlFetchApp.fetch(URL);
  var html = source.getContentText('BIG5');

  //DOM解析HTML
  const $ = Cheerio.load(html,{ decodeEntities: false });

  var table, tr, td;
  //表格資訊
  table = $('table table').eq(0);  
  tr = table.find('tr');
  td = tr.eq(0).find('td');    
  sheet.getRange(1, 1).setValue(td.eq(0).text().trim());
  sheet.getRange(1, 3).setValue(td.eq(1).text().trim());

  //表格內容
  table = $('table table').eq(1); 
  tr = table.find('tr');
  for(var i = 0 ; i < tr.length ; ++i)
  {
    td = tr.eq(i).find('td');
    for(var j = 0 ; j < td.length ; ++j)
    {
      sheet.getRange(i + 2, j + 1).setValue(td.eq(j).text().trim());
    }
  } 
}

步驟5：點擊「存檔」與「執行」按鈕。

接著就是一連串的權限設定。

最後執行的結果。

參考資料

GAS + Cheerio 分析網頁資訊寫入Google 試算表

Google、Facebook、Line OAuth 實做登入操作 (2) - 再談 Line Login

2021-02-21T07:42:00.005-08:00

前一篇 Google、Facebook、Line OAuth 實做登入操作 (1) - Line Login 介紹如何建構「LINE Login」的操作步作，過程中有部分內容因為篇幅關係沒能一次到位介紹，接著就對 LINE Login 作細部測試進行說明。
以下分別針對「USBWebserver 與 Ngrok 設定操作」、「使用Postman 測試取得 LINE Login 帳戶資訊」兩個主題做說明。

USBWebserver 與 Ngrok 設定操作

USBWebserver 伺服器在本機端建立「linelogin.html」網頁服務，透過網頁連結埠 443，對外提供 HTTPS 連結，「Ngrok.com」將實際網址「https://00a14ff8c66e.ngrok.io/」導向 USBWebserver 連結埠 443，這樣對外的服務網址「https://00a14ff8c66e.ngrok.io/linelogin.html」才能正確連接至使用者本機的網頁。

使用 Postman 取得 LINE Login 帳戶資訊
「LINE Login」串接取得帳戶資訊流程與說明如下。

取得帳戶授權碼。

透過「帳戶授權碼」取得帳戶 Token。

透過 Token 取得帳戶資訊如姓名、email。

取得帳戶授權碼
透過以下JavaScrippt程式碼抓取伺服器回傳「帳戶授權碼 code」，請注意code的有效性指有10分鐘，10分鐘後就要重新在抓新的code。

 <!DOCTYPE html>
    <html lang="en">
    <head>
        <meta charset="UTF-8">
        <meta name="viewport" content="width=device-width, initial-scale=1.0">
        <meta http-equiv="X-UA-Compatible" content="ie=edge">
        <title>LINE Login Demo</title>
    </head>
    <body>
        <button id="lineLoginBtn">LINE login</button>
        <script src='https://cdnjs.cloudflare.com/ajax/libs/jquery/3.4.1/jquery.js'></script>
        <script>
            var channel_id = "channel id";
            var channel_secret = "channel secret";
            var uri = "Https網址";
            
            //var code = ""; 
            $('#lineLoginBtn').on('click', function(e) {
                let client_id = channel_id;
                let redirect_uri = uri;
                let link = 'https://access.line.me/oauth2/v2.1/authorize?';
                link += 'response_type=code';
                link += '&client_id=' + client_id;
                link += '&redirect_uri=' + redirect_uri;
                link += '&state=login';
                link += '&scope=openid%20profile%20email';
                window.location.href = link;
            });

            var url = new URL(window.location.href);
            var code = url.searchParams.get("code"); 
            if(code != null) document.write('<br / > code : ' + code + '<br / >'); 
        </script>
    </body>
    </html>

執行後「帳戶授權碼 code」為 2nqdeDexLvgn5LTdHGPC。

透過「帳戶授權碼」取得帳戶 Token
開啟 Postman 輸入以下資訊。
方法

POST

Header

Content-Type:application/x-www-form-urlencoded

參數

grant_type:authorization_code
code:2nqdeDexLvgn5LTdHGPC
redirect_uri: Https網址
client_id:你的channel id
client_secret:你的channel secret

「Postman」測試的結果如畫面，「id_token」的內容就是帳戶的Token，也是第三步所需的參數。

注意事項：

每一組「帳戶授權碼 code」只能用「Postman」取得一次「帳戶Token」，若使用「Postman」發送第2次後就會產生錯誤。

「id_token」的內容本身就是一個 JWT 的加密結果，可透過 JWT.io 進行解密，解密的內容就是第三步的結果，。

透過 Token 取得帳戶資訊如姓名、email
Postman 輸入以下資訊。
方法

POST

Header

Content-Type:application/x-www-form-urlencoded

參數

client_id:你的channel id
id_token: 你的id_token

「Postman」測試的結果如畫面。

關於Email的取得，即使在程式碼中有設定，若使用者在授權階段選擇不同意授權存取email，也會導致無法取得email。

測試階段可以透過以下設定抓取email，到 Line Developers 後台的「Basic settings」頁籤畫面的下方「OpenID Connect」，將畫面中的內容設定完成才能取得email。

授權Email取得許可。

「OpenID Connect」設定成功後，在一次重新授權，這實可建到授權畫面多出了email選項。

發送「Postman」也可取得email。

發佈給顧客
最後在所有測試步驟就成功後，請務必確認「已發佈」開放給顧客 LINE 登入。

頁面右上角可以找到灰色「Developing」狀態按鈕，請點擊選「Publish」，接著狀態會更新為「Published」即正式發布開放。

完成發佈。

Google、Facebook、Line OAuth 實做登入操作 (1) - Line Login

2021-02-20T09:57:00.012-08:00

最近研究透過Google、Facebook、Line提供的OpenID登入，順到記錄一下所有操作內容，OpenID是一種分散式認證系統，使用者可透過一個帳號、密碼就能登入多個網站，可省去管理多組帳號、密碼。Google、Facebook兩者的驗證流程相似，但與Line不同，就先以Line Login的操作方式來說明，透過JavaScript來操作，各位朋友若有其他語言有興趣可自行轉換。

步驟1：登入 Line Developers 後台。

步驟2：點擊「Products」。

步驟3：點擊「 LINE Login」。

步驟4：點擊「開始體驗」。

步驟5：點選「Create a new provider」。

步驟6：輸入「Provider」名稱與選擇「Region」。

步驟7：填寫「Channel name」、「Channel description」內容與選擇「App types」。

步驟8：勾選「I have read and agress to the LINE Developers Agreement」與點擊「Create」

步驟9：點選「LINE Login」頁籤，這裡「Callback URL」需要一個 Https 的網址，由下面幾個步驟來建立。

步驟10：至 USBWebserver 官網下載輕量級網站伺服器軟體 USBWebserver，解壓縮 USBWebserver。

步驟11：至 ngrok 官網下載 ngrok，ngrok 是一個可以讓內網伺服器與外界溝通的服務，解壓縮 ngrok。

步驟12：啟動USBWebserver.exe，此時Apache已啟動，web 預設 port 為 8080。

步驟13：開啟「命令提示字元」切換到 ngrok 所在目錄，輸入「ngrok http 8080」，起動內網伺服器與外界溝通的服務。

此時就會產生一個 Https 的網址。

複製網址貼到 Chrome 瀏覽器的新分面上開啟測試，若成功開啟，表示 Https 網址已經串接完成。

步驟14：將 Https 網址填到步驟9「LINE Login」頁籤的「Callback URL」。

步驟15：建立 Line 授權，將以下 JavaScript 程式碼存成 linelogin.html，並到 Line Developers 後台的「Basic settings」頁籤將「Channel ID」、「Your user ID」與將 linelogin.html 與 Https 網址完整的串接在一起填入程式碼。

 <!DOCTYPE html>
    <html lang="en">
    <head>
        <meta charset="UTF-8">
        <meta name="viewport" content="width=device-width, initial-scale=1.0">
        <meta http-equiv="X-UA-Compatible" content="ie=edge">
        <title>LINE Login Demo</title>
    </head>
    <body>
        <button id="lineLoginBtn">LINE login</button>
        <script src='https://cdnjs.cloudflare.com/ajax/libs/jquery/3.4.1/jquery.js'></script>
        <script>
            var channel_id = "channel id";
            var channel_secret = "channel secret";
            var uri = "Https網址";
            
            //var code = ""; 
            $('#lineLoginBtn').on('click', function(e) {
                let client_id = channel_id;
                let redirect_uri = uri;
                let link = 'https://access.line.me/oauth2/v2.1/authorize?';
                link += 'response_type=code';
                link += '&client_id=' + client_id;
                link += '&redirect_uri=' + redirect_uri;
                link += '&state=login';
                link += '&scope=openid%20profile%20email';
                window.location.href = link;
            });

            var url = new URL(window.location.href);
            var code = url.searchParams.get("code"); 
            if(code != null) document.write('<br / > code : ' + code + '<br / >'); 
        </script>
    </body>
    </html>

步驟16：在 Chrome 瀏覽器的新分面上開啟「Callback URL」。

步驟17：點擊「LINE login」按鈕，即可見到「LINE」登入畫面，點擊「登入」按鈕。

接著出現授權許可的畫面，點擊「許可」按鈕。

最後回到原本的網頁，在網址中的「code」就是我的要取得的內容。

步驟18：將以下程式碼再加入 linelogin.html，再執行一次登入授權，取回token。

var result = $(".result");
var id_token = "";
$.ajax({
  method: "POST",
  dataType : 'json',
  url: "https://api.line.me/oauth2/v2.1/token",
  async : false,              
  data: { grant_type    : "authorization_code", 
          code          : code,
          redirect_uri  : uri,
          client_id     : channel_id,
          client_secret : channel_secret},
  success: function(data) {
    id_token = data.id_token;                 
  }
});            
if(id_token.length != 0)  document.write('<br / >id_token : ' + id_token + '<br / >');

步驟19：將以下程式碼再加入 linelogin.html，再執行一次登入授權，拿token呼API取得使用者的公開資料。

$.ajax({
  method: "POST",
  dataType : 'json',
  url: "https://api.line.me/oauth2/v2.1/verify",
  async : false,              
  data: { client_id     : channel_id,
          id_token      : id_token },
  success: function(data) {
    document.write('<br / ><br / >' + JSON.stringify(data));
  }
});

將上面所有程式碼整合起來。

 <!DOCTYPE html>
    <html lang="en">
    <head>
        <meta charset="UTF-8">
        <meta name="viewport" content="width=device-width, initial-scale=1.0">
        <meta http-equiv="X-UA-Compatible" content="ie=edge">
        <title>LINE Login Demo</title>
    </head>
    <body>
        <button id="lineLoginBtn">LINE login</button>
        <script src='https://cdnjs.cloudflare.com/ajax/libs/jquery/3.4.1/jquery.js'></script>
        <script>
            var channel_id = "channel id";
            var channel_secret = "channel secret";
            var uri = "Https網址";

            $('#lineLoginBtn').on('click', function(e) {
                let client_id = channel_id;
                let redirect_uri = uri;
                let link = 'https://access.line.me/oauth2/v2.1/authorize?';
                link += 'response_type=code';
                link += '&client_id=' + client_id;
                link += '&redirect_uri=' + redirect_uri;
                link += '&state=login';
                link += '&scope=openid%20profile%20email';
                window.location.href = link;
            });

            var url = new URL(window.location.href);
            var code = url.searchParams.get("code"); 
            if(code != null) document.write('<br / > code : ' + code + '<br / >');
            
            var result = $(".result");
            var id_token = "";
            $.ajax({
              method: "POST",
              dataType : 'json',
              url: "https://api.line.me/oauth2/v2.1/token",
              async : false,              
              data: { grant_type    : "authorization_code", 
                      code          : code,
                      redirect_uri  : uri,
                      client_id     : channel_id,
                      client_secret : channel_secret},
              success: function(data) {
                id_token = data.id_token;                 
              }
            });            
            if(id_token.length != 0)  document.write('<br / >id_token : ' + id_token + '<br / >');
            
            $.ajax({
              method: "POST",
              dataType : 'json',
              url: "https://api.line.me/oauth2/v2.1/verify",
              async : false,              
              data: { client_id     : channel_id,
                      id_token      : id_token },
              success: function(data) {
                document.write('<br / ><br / >' + JSON.stringify(data));
              }
            });
        </script>
    </body>
    </html>

到了這裡就完成透過LINE Login的認證達成登入的操作。

Excel VBA 用for + array + Run 取代判別式執行函數

2020-06-04T00:26:00.001-07:00

早上遇到群有問的一個問題，希望在能不用判別式的方式就能做到判別並執行程式，這樣的方式之前就有寫過，但這次被人提出來就簡單做一下，下圖是原本就由判別式的作法。

透過以下程式做法來做切換，以for回傳搭配亂數來運作。

Sub aa(a As Integer, b As String)
    Debug.Print "a", a, b
End Sub

Sub bb(a As Integer, b As String)
    Debug.Print "b", a, b
End Sub

Sub cc(a As Integer, b As String)
    Debug.Print "c", a, b
End Sub

Sub main()
    Dim a
    a = Array("aa", "bb", "cc")
    Randomize
    Run a(Int(Rnd() * (UBound(a) + 1))), Int(Rnd() * 100) + 1, "abc"
End Sub

執行畫面。

Excel VBA 下拉選單切換連動 (2)

2020-03-19T17:50:00.000-07:00

繼前一篇 Excel VBA 下拉選單切換連動 (1)，內容一樣是Excel VBA下拉選單選的連動，只是這是要用資料驗證中的清單功能來做，這次的功能是第一個combobox選擇年月，第二個combobox將以選到的年月顯示當年度到年底剩下的月份，依舊使用篩選 + 事件來組合。
在ThisWorkbooks加入

Private Sub Workbook_Open()
    日期產生
    第一層清單產生
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "資料顯示" Then
        If Target.Address = "$A$1" Then
            第二層清單產生
        ElseIf Target.Address = "$F:$F" Then
            If Workbooks(1).Sheets(1).Cells(Rows.count, "F").End(xlUp).Row = 1 Then
                Workbooks(1).Sheets(1).Cells(1, 2).Value = ""
            End If
        End If
        Debug.Print Target.Address
    End If
End Sub

在Module1中加入

Sub 日期產生()
    Sheets(2).Cells(1, 1) = "日期"

    For i = 2 To 13
        Sheets(2).Cells(i, 1) = Format(DateAdd("m", i - 1, DateSerial(Year(Date), 0, 1)), "ee/mm")
    Next
End Sub

Sub 第一層清單產生()
    Dim listcount1 As Integer
    
    Workbooks(1).Sheets(1).Columns(5).Clear
    
    With Workbooks(1).Sheets(2)
        .Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Workbooks(1).Sheets(1).Range("E1"), Unique:=True
    End With

    With Workbooks(1).Sheets(2)
        .Range(.Cells(2, "A").Address, .Cells(Rows.count, "A").End(xlUp).Address).Name = "日期1"
    End With
    
    '設定"資料驗證"中的清單
    With Workbooks(1).Sheets(1).Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
             Operator:=xlBetween, Formula1:="=日期1"
    End With
    Workbooks(1).Sheets(1).Cells(1, 1).Value = Workbooks(1).Sheets(2).Cells(2, "A").Value
    Workbooks(1).Sheets(1).Cells(1, 2).Value = Workbooks(1).Sheets(1).Cells(2, "F").Value
End Sub

Sub 第二層清單產生()
    Dim listcount1 As Integer
    
    Workbooks(1).Sheets(1).Columns(6).Clear
    
    過濾日期

    With Workbooks(1).Sheets(1)
        .Range(.Cells(2, "F").Address, .Cells(Rows.count, "F").End(xlUp).Address).Name = "日期2"
    End With
    
    '設定"資料驗證"中的清單
    With Workbooks(1).Sheets(1).Range("B1")
        .Clear
        With .Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                 Operator:=xlBetween, Formula1:="=日期2"
        End With
        Workbooks(1).Sheets(1).Cells(1, 2).Value = Workbooks(1).Sheets(1).Cells(2, "F").Value
    End With
End Sub

Sub 過濾日期()
    Dim tmp, line
    Dim i As Integer, j As Integer, count As Integer, column As Integer
    
    With Workbooks(1).Sheets(2)
        column = .Cells(1, Columns.count).End(xlToLeft).column
        With .UsedRange
  
            .AutoFilter Field:=.Cells(1, "A").column, Criteria1:=">=" & Sheets(1).Cells(1, 1)
            
            '選出符合條件的資料
            Set tmp = .Resize(.Rows.count).SpecialCells(xlCellTypeVisible)
            count = 1
            For Each line In tmp.Areas
                For i = 1 To line.Rows.count
                    For j = 1 To 1
                        'Debug.Print line(i, j).Value
                        Sheets(1).Cells(count, "F").Value = line(i, j).Value
                    Next
                    count = count + 1
                Next
            Next
        End With
        
        '關閉篩選
        .AutoFilterMode = False
    End With
End Sub

畫面。

檔案連結。

Excel VBA 下拉選單切換連動 (1)

2020-03-18T02:19:00.000-07:00

近期遇到網友想要Excel VBA的表單介面做下拉選單選的連動，主要功能從第一個combobox選擇縣市，依顯示名稱過濾出鄉鎮市區，再填到第二個combobox，原生的下拉選單combobox沒連動功能，所以需要想辦法組合出這樣的功能，因此藉由內部既有的功能篩選 + 事件來組合。
在表單上加入兩個combobox元件，並使用以下程式碼完成下拉選單的連動。
在ThisWorkbooks加入

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

在表單中加入

Private Sub ComboBox1_Change()
    ComboBox2.Clear
    第二層清單產生 ComboBox1.text
    additem2
    ComboBox2.text = ComboBox2.List(0)
End Sub

Private Sub UserForm_Activate()
    郵遞區號取得
    第一層清單產生
    additem1
    ComboBox1.text = ComboBox1.List(0)    
End Sub

Sub additem1()
    Dim row As Integer, i  As Integer
    
    row = Sheets(3).Cells(Rows.count, 1).End(xlUp).row
    For i = 2 To row
        ComboBox1.additem Sheets(3).Cells(i, 1)
    Next
End Sub

Sub additem2()
    Dim row As Integer, i  As Integer
    
    row = Sheets(3).Cells(Rows.count, 2).End(xlUp).row
    For i = 2 To row
        ComboBox2.additem Sheets(3).Cells(i, 2)
    Next
End Sub

在Module1中加入

Sub 郵遞區號取得()

    Dim row As Integer
    
    With Sheets(2).QueryTables.Add(Connection:= _
        "URL;http://campus4.ncku.edu.tw/wwwmenu/program/net/zip.htm", Destination:=Sheets(2).Range("$A$1"))
        .RefreshStyle = xlOverwriteCells
        .WebFormatting = xlWebFormattingNone
        .WebTables = 1
        .Refresh BackgroundQuery:=False
        row = .ResultRange.Rows.count
        .Delete
    End With
    
    Sheets(2).Cells(1, 3) = "縣市"
    Sheets(2).Cells(1, 4) = "鄉鎮市區"
    For i = 2 To row
        Sheets(2).Cells(i, 3) = Mid(Sheets(2).Cells(i, 2), 1, 3)
        Sheets(2).Cells(i, 4) = Mid(Sheets(2).Cells(i, 2), 4, 3)
    Next

End Sub

Sub 第一層清單產生()
    Dim listcount1 As Integer
    
    Workbooks(1).Sheets(3).Cells.Clear
    '進階過濾篩選出不重複的鄉鎮市
    With Workbooks(1).Sheets(2)
        .Range("C:C").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Workbooks(1).Sheets(3).Range("A1"), Unique:=True
    End With

End Sub

Sub 第二層清單產生(text As String)
    Dim tmp, line
    Dim i As Integer, count As Integer
    
    With Workbooks(1).Sheets(2)
        With .UsedRange
            '鄉鎮市篩選
            .AutoFilter Field:=.Cells(1, "C").Column, Criteria1:="=" & text
            
            '選出符合條件的資料
            Set tmp = .Resize(.Rows.count - 1).SpecialCells(xlCellTypeVisible)
            count = 1
            For Each line In tmp.Areas
                For i = 1 To line.Rows.count
                    Sheets(3).Cells(count, 2).Value = line(i, 4).Value
                    count = count + 1
                Next
            Next
        End With
        
        '關閉篩選
        .AutoFilterMode = False
    End With
End Sub

畫面。

檔案連結。

Heroku + Flask + Python應用(3)：快速建立Line Bot，至Heroku佈署

2020-03-15T06:01:00.001-07:00

前一篇 Heroku + Flask + Python應用(2)：VSCode建置Line Bot，上傳Heroku佈署的操作看起來很複雜，因此換一種方式來進行Line Bot建置，環境一樣是在Heroku上執行。
步驟 1：本機端佈屬環境軟體。

請至 Heroku https://id.heroku.com/login 註冊一個帳號。
下載安裝 Heroku CLI https://devcenter.heroku.com/articles/heroku-cli。
下載安裝 Git https://git-scm.com/downloads，上傳檔案到 Heroku 使用。
下載安裝VSCode https://code.visualstudio.com/。

步驟 2：開啟「命令提示字元」輸入以下指令，建立Code資料夾，用 conda 建立「iinfo7」虛擬環境。

cd /
mkdir Code
cd Code
conda create -n iinfo7 python=3.6.2

步驟 3：完成建立「linebot」虛擬環境後，進入「linebot」環境。

activate iinfo7

若要退出虛擬環境，輸入以下指令。

deactivate

或

activate root

步驟 4：在「命令提示字元」輸入「git init」，產生「.git」資料夾，讓Git開始對「Code」資料夾所有檔案進行版本控管。

步驟 5：安裝「flask」、「gunicorn」到「iinfo7」環境中，後面操作時會使用到。

pip install flask gunicorn

步驟 6：在「命令提示字元」輸入「pip list」查詢在虛擬環境「iinfo7」已安裝的套件與版本。

步驟 7：在「命令提示字元」輸入「code .」開啟 VSCode。

步驟 8：在VSCode 建立Python 檔案，並輸入以下程式碼，存成app.py。

import os

from flask import Flask, request, abort

from linebot import (
    LineBotApi, WebhookHandler
)

from linebot.exceptions import (
    InvalidSignatureError
)

from linebot.models import (
    MessageEvent, TextMessage, TextSendMessage,
)

app = Flask(__name__)

LINE_CHANNEL_ACCESS_TOKEN = os.environ.get('LINE_CHANNEL_ACCESS_TOKEN')
LINE_CHANNEL_SECRET = os.environ.get('LINE_CHANNEL_SECRET')
line_bot_api = LineBotApi(LINE_CHANNEL_ACCESS_TOKEN)
handler = WebhookHandler(LINE_CHANNEL_SECRET)

@app.route("/", methods=['GET'])
def hello():
    return 'hello heroku'

@app.route("/callback", methods=['POST'])
def callback():
    signature = request.headers['X-Line-Signature']
    body = request.get_data(as_text=True)

    try:
        handler.handle(body, signature)
    except InvalidSignatureError:
        print("Invalid signature. Please check your channel access token/channel secret.")
        abort(400)

    return 'OK'

@handler.add(MessageEvent, message=TextMessage)
def handle_message(event):
    line_bot_api.reply_message(
        event.reply_token,
        TextSendMessage(text=event.message.text))

if __name__ == "__main__":
    app.run()

步驟 9：切換「iinfo7」虛擬環境，由於VSCode會自動偵測與載入虛擬環境，故可直接在VSCode進行切換虛擬環境操作。

步驟 10：開啟終端機畫面。

步驟 11：安裝line-bot-sdk v1.16.0，可使用以下兩種方法操作(任選一種即可)。

在「VSCode終端機」輸入指令安裝。
在「命令提示字元」輸入指令安裝。

pip install line-bot-sdk==1.16.0

步驟 12：建立上傳至Heroku建置執行環境的文件。

runtime.txt：指定Python版本。
Procfile：在Heroku環境指定要執行的檔案。
requirements.txt：將環境操作所需的套件與版本打包起來。

runtime.txt，輸入Heroku需要使用Python版本 python-3.6.2。

Procfile，輸入「web: gunicorn app:app –log-file -」，–log-file - 為打開顯示除錯訊息，若不想顯示除錯訊息可以使用「web: gunicorn app:app」。

requirements.txt，將虛擬環境「linebot」安裝的套件版本儲存起來，用來在 Heroku 雲端上安裝的套件佈署用，在「VSCode終端機」輸入。

pip freeze > requirements.txt

步驟 13：將新增文件加入到「 git 暫存區（Staging Area）」做檔案管理，可使用以下兩種方法操作(任選一種即可)。

在「VSCode終端機」輸入「git add .」，最後在「原始檔控制」頁籤，點擊「認可(Commit)」按鈕與加入「新增檔案」訊息，最後按下「Enter」。
在「命令提示字元」輸入「git add .」，最後再輸入「git commit -a -m "新增檔案"」。

步驟 14：到Heroku後台新增一個有效的app。

步驟 15：登入Heroku，可使用以下兩種方法操作(任選一種即可)。

在「VSCode終端機」輸入以下指令，再輸入登入「Heroku」帳密。
在「命令提示字元」輸入以下指令，再輸入登入「Heroku」帳密。

heroku login -i

步驟 16：切換在 Heroku 新建的app，可使用以下兩種方法操作(任選一種即可)。

在「VSCode終端機」輸入以下指令。
在「命令提示字元」輸入以下指令。

heroku git:remote -a [app名稱]

步驟 17：將虛擬環境「iinfo7」所有的檔案推上至 Heroku進行佈署，可使用以下兩種方法操作(任選一種即可)。

在「VSCode終端機」輸入以下指令。
在「命令提示字元」輸入以下指令。

git push heroku master

步驟 18：在 Line Developers 後台，設定「Webhook URL」與取得「Channel secret」、「Channel access token」。

步驟19： Line Developers 後台取得「Channel secret」、「Channel access token」，到 heroku 後台帳號的「Settings」頁籤的「Config Vars」進行「LINE_CHANNEL_ACCESS_TOKEN」、「LINE_CHANNEL_SECRET」設定。

步驟20：最後將Line Bot加入進行測試。

測試不成功的原因與注意事項：

測試「Webhook URL」，建議先將41~45行的程式碼移除，重新推code到Heroku上，再進行驗證，待「Webhook URL」驗證成功後，再還原程式碼，並且重新再一次推code至Heroku。
「Webhook URL」在測試成功之前，「Use webhook」都會是關閉狀態，若「Webhook URL」測試成功後，「Use webhook」開起才能順利。
「Webhook URL」在測試成功之前，每次填入的URL都不會被儲存起來，所以要先讓「Webhook URL」測試可以成功。

Heroku + Flask + Python應用(2)：VSCode建置Line Bot，上傳Heroku佈署

2020-03-12T18:54:00.000-07:00

距離前一篇 Heroku + Flask + Python應用(1)：Heroku上執行Flask 網站文章發佈到現在約9個月多的時間，今在以相同的操作方式建置 Line Bot 在 Heroku 進行介紹佈署方式。
步驟 1：在本機端佈屬環境。

請至 Heroku https://id.heroku.com/login 註冊一個帳號。
下載安裝 Heroku CLI https://devcenter.heroku.com/articles/heroku-cli。
下載安裝 Git https://git-scm.com/downloads，上傳檔案到 Heroku 使用。
下載安裝VSCode https://code.visualstudio.com/。

步驟 2：開啟「命令提示字元」輸入以下指令，建立Code資料夾，用 conda 建立「linebot」虛擬環境。

cd /
mkdir Code
cd Code
conda create -n linebot python=3.6.2

步驟 3：完成建立「linebot」虛擬環境後，進入「linebot」環境。

activate linebot

步驟 4：在「命令提示字元」輸入「git init」，產生「.git」資料夾，「Code」資料夾所有檔案用git做管理。

步驟 5：在「命令提示字元」輸入「pip list」查詢在虛擬環境「linebot」中，有已安裝的套件與其版本。

步驟 6：安裝「flask」、「gunicorn」到「linebot」環境中，後面操作時會使用到。

pip install flask gunicorn

步驟 7：在「命令提示字元」輸入「code .」開啟 VSCode。

步驟 8：在 VScode 安裝 Python外掛套件，用來讓VSCode能做 Python。

點擊「Extensions」。
輸入「Python」尋找。
點擊「Install」安裝。

步驟 9：透過VSCode 建立Python 檔案。

切換「檔案總管」頁籤。
點擊「檔案」。
點擊「新增檔案」。

步驟 10：切換成Python開發環境。

修改直譯器。

切換成虛擬環境「linebot」。

修改檔案編輯使用的程式。

步驟 11：輸入以下程式碼，存成 app.py。

import os

from flask import Flask, request, abort

from linebot import (
    LineBotApi, WebhookHandler
)

from linebot.exceptions import (
    InvalidSignatureError
)

from linebot.models import (
    MessageEvent, TextMessage, TextSendMessage,
)

app = Flask(__name__)

LINE_CHANNEL_ACCESS_TOKEN = os.environ.get('LINE_CHANNEL_ACCESS_TOKEN')
LINE_CHANNEL_SECRET = os.environ.get('LINE_CHANNEL_SECRET')
line_bot_api = LineBotApi(LINE_CHANNEL_ACCESS_TOKEN)
handler = WebhookHandler(LINE_CHANNEL_SECRET)

@app.route("/", methods=['GET'])
def hello():
    return 'hello heroku'

@app.route("/callback", methods=['POST'])
def callback():
    signature = request.headers['X-Line-Signature']
    body = request.get_data(as_text=True)

    try:
        handler.handle(body, signature)
    except InvalidSignatureError:
        print("Invalid signature. Please check your channel access token/channel secret.")
        abort(400)

    return 'OK'

@handler.add(MessageEvent, message=TextMessage)
def handle_message(event):
    line_bot_api.reply_message(
        event.reply_token,
        TextSendMessage(text=event.message.text))

if __name__ == "__main__":
    app.run()

步驟 12：由於資料夾中有新增檔案，且這些檔案未被git列入管理，因此在VSCode上會顯示「U」，代表檔案處於「Untracked」的狀態，將檔案加入local repository，後續再加入 github 中。
在VSCode終端機中輸入「git add .」，將檔案加入管理。

檔案加入管理後，VSCode的狀態會從「U」變成「A」，代表檔案「被新增」。

除了上述兩個狀態，VSCode的其他狀態。

M是Modified，檔案狀態是「有做修改的」。
D是Deleted，檔案狀態是「被刪除的」。

步驟 13：檔案存入local repository中。

最後點擊「打勾」完成「認可(Commit)Commit」。
輸入「認可(Commit)」訊息。

注意，若未登入Git使用者操作資訊，將出現以下提示。

請在「命令提示字元」下輸入 git所需相關資訊。
git config --global user.email "you@example.com"
git config --global user.name "Your Name"

完成「認可(Commit)」後，VSCode左側畫面就會顯示剛剛輸入的程式碼，這表示app.py的檔案已存進local repository中。

步驟 14：在「命令提示字元」輸入指令，安裝line-bot-sdk v1.16.0 套件。

步驟 15：執行程式碼，將程式第19、20行暫時做修改調整(為了測試使用)，接著在程式碼空白處點擊滑鼠右鍵，選擇「在終端機執行Python檔案」。

注意：若遇到無法成功執行，顯示「ModuleNotFoundError: No module named 'flask'」，請回到步驟6安裝 Flask 套件。
若正常執行，會提示網頁開啟的URL位置 http://127.0.0.1:5000/，Port 5000 是 flask 預設。

開啟瀏覽器輸入 http://127.0.0.1:5000/ 可見到成功畫面，測試成功後，準備建立上傳Heroku的文件。

步驟 16：建立上傳至Heroku建置執行環境的文件。

runtime.txt：指定Python版本。
Procfile：在Heroku環境指定要執行的檔案。
requirements.txt：將環境操作所需的套件與版本打包起來。

runtime.txt，輸入Heroku需要使用Python版本 python-3.6.2。

Procfile，輸入「web: gunicorn app:app –log-file -」，–log-file - 為打開顯示除錯訊息，若不想顯示除錯訊息可以使用「web: gunicorn app:app」。

requirements.txt，將虛擬環境「linebot」安裝的套件版本儲存起來，用來在 Heroku 雲端上安裝的套件佈署用，在VSCode「終端機」輸入。

pip freeze > requirements.txt

步驟 17：將新增文件加入到「 git 暫存區（Staging Area）」做檔案管理，「VSCode終端機」輸入「git add .」，最後在「原始檔控制」頁籤，點擊「認可(Commit)」按鈕與加入「認可(Commit)」訊息。

步驟 18：透過「VSCode終端機」做登入Heroku，在終端機輸入「heroku login -i」，最後輸入帳密。

步驟 19：輸入「heroku create」，在 Heroku 建立 app與資料夾，如果成功建立，將回傳一個網址與一個檔案上傳連結。

步驟 20：最後將虛擬環境「linebot」中所有建置的檔案推上至 Heroku，在「VSCode終端機」上輸入「git push heroku master」。

步驟 21：將步驟19得到的網址，填入Line Developers後台，「Webhook settings」設定的「Webhook URL」，在網址最後加上「/callback」，並開啟「Use webhook」。

步驟 22：在Line Developers後台取得「Channel secret」、「Channel access token」，到 heroku 後台帳號的「Settings」頁籤，在「Config Vars」設定，點擊「Reveal Config Vars」按鈕，分別在「KEY」填入「LINE_CHANNEL_ACCESS_TOKEN」、「LINE_CHANNEL_SECRET」，「VALUE」填入Channel secret、Channel access token。

步驟 23：點擊「Settings」頁籤右上角「Open app」按鈕，確認程式碼中可以執行在Heroku上網頁的訊息。

最後透過Heroku提供的log view查看，在Line Bot上輸訊息的回應狀態。

Python 在 repl.it 建立Line Bot (3) - 加入圖文選單

2020-03-12T06:54:00.002-07:00

繼前面兩篇 Python 在 repl.it 建立Line Bot 介紹後，再以原本的機器人加入圖文選單，讓機器人操作介面可以更方便。
以 Python 在 repl.it 建立Line Bot (2) - 加入指令選項程式碼為主，且無須修改，再到 LINE Official Account Manager 後台進行圖文選單的設定，選擇要加入的圖文選單的機器人。

點擊「圖文選單」。

點擊右上角「建立」按鈕。

設定「標題」、「使用期間」。

點擊「選擇版型」按鈕。

選擇「兩欄式」，點擊「套用」。

點擊「建立圖片」。

點擊「左側」畫面，在點擊「上傳圖片」按鈕，並上傳一張代表「圖片」的圖片。

點擊「右側」畫面，在點擊「加入文字」按鈕。

輸入「貼圖」兩字，點擊右上角「套用」按鈕。

點擊「套用」按鈕。

設定A畫面在觸碰後的動作，點擊下拉選單，選擇「文字」。

在關鍵字回應欄位中，輸入「圖片」。

依照上述動作，設定B畫面觸碰動作，最後點擊「儲存」按鈕。

最後完成圖文選單設定的畫面，此值的狀態為「已就緒」，表示「圖文選單」正在運作。

執行畫面。

Python 在 repl.it 建立Line Bot (2) - 加入指令選項

2020-03-09T07:16:00.000-07:00

前一篇 Python 在 repl.it 建立Line Bot (1) - 與Line機器人簡易對談介紹如何在repl.it上建立Lne Bot 簡易對談，在實際使用上Line Bot功能不指簡易對談，接下來加入指令選項讓Line Bot可以依據訂定好的指令完成所需的回覆。
除了文字對談，Line Bot 還可回應圖片、貼圖、影片、聲音、位置、影像圖、模板選單等，更多的詳細的說明可洽 Line Bot官網查詢。
以前一篇文章的 Line Bot 為基礎，加入圖片、貼圖、影片回應功能，藉由修改「handle_message」函數，添加處理接收到圖片、貼圖、影片的程式碼，如程如下功能。

圖片指令，回傳家扶娃娃照片。
貼圖指令，隨機回傳Line的貼圖。
影片指令，回傳海賊王片段影片。

from flask import Flask, request, abort

from linebot import (
    LineBotApi, WebhookHandler
)

from linebot.exceptions import (
    InvalidSignatureError
)

from linebot.models import *

import os
import numpy as np

app = Flask(__name__)

token = os.environ.get("CHANNEL_ACCESS_TOKEN")
secret= os.environ.get("CHANNEL_SECRET")
line_bot_api = LineBotApi(token)
handler = WebhookHandler(secret)

totalid = {
            1:[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,21,100,101,102,103,104,105,106,107,108,109,110,111,
               112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,
               135,136,137,138,139,401,402,403,404,405,406,407,408,409,410,411,412,413,414,415,416,417,418,
               419,420,421,422,423,424,425,426,427,428,429,430],
            2:[18,19,20,22,23,24,258,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,48,141,
               142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,
               165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,501,502,503,504,505,506,507,508,
               509,510,511,512,513,514,515,516,517,518,519,520,521,522,523,524,525,526,527],
            3:[180,181,182,183,184,185,186,187,188,189,190,191,192,193,194,195,196,197,198,199,200,201,202,
               203,204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,224,225,
               226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,247,248,
               249,250,251,252,253,254,255,256,257,258,259],
            4:[260,261,262,263,264,265,266,267,268,269,270,271,272,273,274,275,276,277,278,279,280,281,282,
               283,284,285,286,287,288,289,290,291,292,293,294,295,296,297,298,299,300,301,302,303,304,305,
               306,307,601,602,603,604,605,606,607,608,609,610,611,612,613,614,615,616,617,618,619,620,621,
               622,623,624,625,626,627,628,629,630,631,632]
           } 

@app.route('/callback', methods=['POST'])
def callback():
    signature = request.headers['X-Line-Signature']
    body = request.get_data(as_text=True)
    app.logger.info("Request body: " + body)

    try:
        handler.handle(body, signature)
    except InvalidSignatureError:
        print("Invalid signature. Please check your channel access token/channel secret.")
        abort(400)

    return 'OK'

@handler.add(MessageEvent, message=TextMessage)
def handle_message(event):
    msg = event.message.text    
    print(msg)
    if msg == "文字":
        line_bot_api.reply_message(
            event.reply_token,
            TextSendMessage(text=event.message.text))
    elif msg == "貼圖":
        packageid = np.random.randint(1, 5)
        stkpkgid = totalid[packageid]
        stickerid = stkpkgid[np.random.randint(len(stkpkgid))]
        line_bot_api.reply_message(event.reply_token, StickerSendMessage(package_id=packageid, sticker_id=stickerid))
    elif msg == "圖片":
        line_bot_api.reply_message(event.reply_token,ImageSendMessage(original_content_url='https://image.peoplenews.tw/news/e48b8810-3b75-46dc-8e00-b64945335bef.jpg', preview_image_url='https://image.peoplenews.tw/news/e48b8810-3b75-46dc-8e00-b64945335bef.jpg'))
    elif msg == "影片":
        line_bot_api.reply_message(event.reply_token,VideoSendMessage(original_content_url='https://video.ftpe3-2.fna.fbcdn.net/v/t42.9040-2/87072388_196826851385614_8294431350157475840_n.mp4?_nc_cat=107&_nc_sid=985c63&efg=eyJybHIiOjQ4NCwicmxhIjoxMTE2LCJ2ZW5jb2RlX3RhZyI6InN2ZV9zZCJ9&_nc_ohc=Dno5wcM5hCoAX9wNCXP&rl=484&vabr=269&_nc_ht=video.ftpe3-2.fna&oh=970be2c547d63b58d9eeeddb50798c78&oe=5E6677B1', preview_image_url='https://scontent.ftpe3-2.fna.fbcdn.net/v/t15.5256-10/p200x200/82227458_520753612181601_8138286452606763008_n.jpg?_nc_cat=101&_nc_sid=f2c4d5&_nc_ohc=lsC6y4SY6jEAX91aBTf&_nc_ht=scontent.ftpe3-2.fna&_nc_tp=6&oh=2b331d81175b9e740ca02479e5e21db0&oe=5E926DE0'))
    else:
        line_bot_api.reply_message(
            event.reply_token,
            TextSendMessage(text=event.message.text))
        
app.run(host='0.0.0.0', port=8080)

執行畫面：

Python 在 repl.it 建立Line Bot (1) - 與Line機器人簡易對談

2020-03-08T01:30:00.000-08:00

repl.it 提供線上程式開發環境，你只要選擇所需開發語言就可以使用相關環境進行程式開發編輯與測試，repl.it 支援多種程式語言，包括 Python3、JAVA、C++ ... 等，有需要的朋友可至網站上了解
以Python3做為開發Line Bot 的操作環境。
步驟1：在repl.it 選擇Python3建立「test」開發專案。

步驟2：輸入程式碼

from flask import Flask, request, abort

from linebot import (
    LineBotApi, WebhookHandler
)

from linebot.exceptions import (
    InvalidSignatureError
)

from linebot.models import (
    MessageEvent, TextMessage, TextSendMessage,
)

import os
app = Flask(__name__)

token = os.environ.get("CHANNEL_ACCESS_TOKEN")
secret= os.environ.get("CHANNEL_SECRET")
line_bot_api = LineBotApi(token)
handler = WebhookHandler(secret)

@app.route('/callback', methods=['POST'])
def callback():
    signature = request.headers['X-Line-Signature']
    body = request.get_data(as_text=True)
    app.logger.info("Request body: " + body)

    try:
        handler.handle(body, signature)
    except InvalidSignatureError:
        print("Invalid signature. Please check your channel access token/channel secret.")
        abort(400)

    return 'OK'

app.run(host='0.0.0.0', port=8080)

步驟3：登入 LINE Developers 後台建立Line Bot帳號。
(1) 點擊「Create a new channel」。

(2) 點擊「Message API」。

(3) 輸入必要資訊。

(4) 勾選與建立帳號。

(5) 點擊「同意」。

步驟5：取得「Channel access token」。
(1) 切換頁籤至「Message API」。

(2) 點擊「issue」產生Token。

(3) 將Token複製存好。

步驟6：取得「Channel secret」。
(1) 切換頁籤至「Basic settings」。

(2) 複製存好「Channel secret」。

步驟7：在repl.it 的「test」開發專案下新增「.env」檔案，輸入剛剛保存的「Channel access token」跟「Channel secret」。

CHANNEL_ACCESS_TOKEN=「Channel access token」
CHANNEL_SECRET=「Channel secret」

步驟8：執行「test」開發專案，並取得URL。

步驟9：回到 LINE Developers 後台，切換至「Message API」頁籤測試「Webhook URL」。
(1) 點擊「Edit」按鈕。

(2) 輸入剛剛取得URL，並在URL後加上「/callback」，點擊「Update」按鈕。

(3) 點擊「Verify」按鈕，確認連結成功。

(4) 掃描QR code加入Line Bot帳號到Line中，並啟動與Line的連結

步驟10：加入回應的程式碼到「test」開發專案，並重新啟動專案執行。

@handler.add(MessageEvent, message=TextMessage)
def handle_message(event):
    line_bot_api.reply_message(
        event.reply_token,
        TextSendMessage(text=event.message.text))

步驟11：在Line Bot輸入任意字，看結果。

步驟12：若不想見到期他由系統回的訊息，到回到 LINE Developers 後台，切換至「Message API」頁籤，關閉自動回應。
(1) 在「Auto-reply messages」後面，點擊「Edit」。

(3) 在「自動回應訊息」的設定中，點擊「停用」。

步驟13：回頭再測試最後結果。

到這裡已經完成所有的Line Bot的基本設定了。

幾個地方需注意：
1.步驟7的「Channel access token」跟「Channel secret」一定要先設定，如此步驟9才能順利驗證成功。
2. 步驟9的「Webhook URL」需要從步驟7中取得，在repl.it 的專案執行後才能產生URL。
3.步驟10的程式碼，需等步驟9完成驗後，再輸入置專案，不然執行驗證URL將無法驗證成功。
4.在步驟9的URL，「/callback」與步驟2程式碼中第23行相關。

Python + Flask 在本機端電腦上開發網路應用程式

2020-03-07T10:00:00.001-08:00

Flask 是一個使用 Python 撰寫的輕量級 Web 應用程式框架，由於其輕量特性，也稱為 micro-framework（微框架），用Flask 在本機端電腦上建立一個簡易的網路應用程式，使用環境為Windows 7 32位元。
步驟 1：安裝 Flask，開啟「命令提示字元」，輸入以下指令。

pip install flask

若出現以下畫面，請更新pip後再重新安裝flask。

步驟 2：編寫Python程式，儲存到C:\python資料夾下(資料夾請自行建立)，檔名hello.py，並設定對外服務窗口在8080。

from flask import Flask, request

app = Flask(__name__)

@app.route('/')
def hello():
    name = request.args.get("name", "World")
    return f'Hello, {name}!'

app.run(host='0.0.0.0', port=8080)

注意：程式碼010行的port若修改，則後面瀏覽器的連結port也必須同步變更。

步驟 3：設定Flask執行的檔案到環境變數「FLASK_APP」中(大小寫不影響)，在C:\python下，開啟「命令提示字元」，輸入以下指令。

set FLASK_APP=hello.py

注意：檔案路徑要指定對，可以絕對路徑做為設定，這裡的做法是直接在C:\python執行，所以可直接設定。

步驟 4：執行Flask網路應用程式服務，在「命令提示字元」，輸入以下指令。

python -m flask run

步驟 5：查看結果，開啟瀏覽器，輸入「127.0.0.1:8080」。

也可以觀察「命令提示字元」顯示的畫面，確認有封包連進來。

若要中斷網路應用程式執行可按鍵盤「Ctrl + C」。
接著在hello.py中多加一個「test」函數，並指定在瀏覽器連結的URL中要多一個hello。

from flask import Flask, request

app = Flask(__name__)

@app.route('/')
def hello():
    name = request.args.get("name", "World")
    return f'Hello, {name}!'
    
@app.route('/hello')
def test():
    return 'Test Hello, World!'

app.run(host='0.0.0.0', port=8080)

在重新啟動Flask網路應用程式服務。

python -m flask run

最後查看瀏覽器與「命令提示字元」。

整個執行操作。

健保特約藥局查詢

2020-02-04T08:42:00.003-08:00

近期肺炎話題很熱，昨天2/3行政院發佈了一則新聞，2/6後口罩只能在健保特約藥局購買，為方便大家可以順利找尋居家附近區域的健保特約藥局所在位置，用Python寫了一個簡單的查詢程式，希望對大家有幫助查尋。

連結：http://www.nhi.gov.tw/QueryN/Query3.aspx

Python程式碼。

import requests
import pandas as pd
from bs4 import BeautifulSoup as bs

url = "http://www.nhi.gov.tw/QueryN/Query3.aspx"
res = requests.get(url)
soup = bs(res.text, 'lxml')

sle = soup.select('#ctl00_ContentPlaceHolder1_ddlCountyAreaCode option')
df = []
for val in sle:
    tmp = []
    if len(val['value']) > 0:
        tmp.append(val['value'])
        tmp.append(val.text)
    df.append(tmp)
CountyAreaCode = pd.DataFrame(df)
CountyAreaCode = CountyAreaCode.drop([0])

payload ={
    'ctl00$ContentPlaceHolder1$ddlCountyAreaCode': '01'
}

for ele in soup.select('input[type==hidden]'):
    payload[ele['name']] = ele['value']
    
res = requests.post(url, data=payload)
soup  = bs(res.text, "lxml")    
sle = soup.select('#ctl00_ContentPlaceHolder1_ddlTownAreaCode option')
df = []
for val in sle:
    tmp = []
    if len(val['value']) > 0:
        tmp.append(val['value'])
        tmp.append(val.text)
    df.append(tmp)
TownAreaCode = pd.DataFrame(df)
TownAreaCode = TownAreaCode.drop([0])

df1 = []
for Townid, Town in zip(TownAreaCode[0], TownAreaCode[1]):
    payload['ctl00$ContentPlaceHolder1$ddlTownAreaCode'] = Townid
    payload['ctl00$ContentPlaceHolder1$ddlSpecialCode'] = '5'
    payload['ctl00$ContentPlaceHolder1$tbxPageNum'] = 999
    payload['ctl00$ContentPlaceHolder1$btnSubmit'] = '開始查詢'
    for ele in soup.select('input[type==hidden]'):
        payload[ele['name']] = ele['value']
    res = requests.post(url, data=payload)
    soup  = bs(res.text, "lxml")
    tb = soup.select('table')[2]
    df0 = pd.read_html(tb.prettify('utf8'), encoding = 'utf8', header = 0)[0]
    df0 = df0[pd.notnull(df0['地址'])].iloc[:, 0:3]
    df0.insert(0, '行政區', Town)
    df1.append(df0)
    
pd.set_option("display.max_rows", None)
df = pd.concat(df1)
df = df.reset_index(drop=True)
df.to_csv("健保特約藥局.csv")
df

執行結果：

18行：CountyAreaCode為個縣市列表。

38行：TownAreaCode為行政區列表。

注意：為避免部分Python開發環境無法正常執行，在24行、46行的程式碼 input[type==hidden] 可改為 input[type=hidden]

PostMan 開啟程式遇到黑畫面解法

2020-01-27T02:18:00.003-08:00

最近使用Postman桌機板，遇到開啟程式時會變成黑畫面，而且一直無法順利開啟，這樣的問題困擾我一段時，想說是版本問題，所以不斷的更新版本但始終無法解決問題，終於在今天花一間時間找Google大神幫忙決。

網路上有很多解決PostMan開啟時會遇到黑畫面的方法，如：

移除PostMan後，刪除%AppData%下Local資料夾中的postman資料夾和Roaming資料夾下的postman資料夾，然後重新安裝。
以管理員權限方式執行

這些方法都無法有效解決PostMan開啟時會遇到黑畫面的問題，最後找到一個可是成功的方法，就是在系統設定新增一環境變數 POSTMAN_DISABLE_GPU = true，即可成功開啟PostMan。
如下操作步驟。
步驟1：開啟系統內容。

步驟2：新增環境變數。

步驟3：輸入變數名稱、變數值。

步驟4：重新開啟PostMan。

參考資料：

Postman无法正常启动解决办法

Python：pyecharts 數據可視覺化套件 v0.1.9.5

2019-12-13T08:59:00.001-08:00

在查找用於 Python 上繪製儀表板的過程中，偶然見到了一個著名可視覺化、互動式繪圖套件 pyecharts，pyecharts是一個用於產生 Echarts 圖表的類庫，Echarts 是百度開源的一個資料視覺化 JS 函式庫。
注意以下二點：

pyecharts在開發時分為了 v0.5.X 和 v1 兩個大版本，v0.5.X 和 v1 間並不相容。
v0.5.X 的版本支持python2.7，3.4+，但不再進行維護，v1的版本僅支持python3.6+。

基於以上介紹，這裡先以 pyecharts v0.1.9.5版本介紹，後續再另外發文介紹pyecharts v1.X 版本，安裝 pyecharts v0.1.9.5 如以下操作。

在命令提示字元中輸入以下指令

pip install pyecharts==0.1.9.5

安裝pyecharts v0.1.9.5過程發生錯誤，畫面提示需安裝 jupyter-pip 套件。

安裝 jupyter-pip 套件，輸入以下命令。

pip install jupyter-pip

安裝完成後執行安裝 pyecharts v0.1.9.5。

到此成功安裝 pyecharts v0.1.9.5。

接著開啟 Jupyert notebook，輸入以下程式碼來畫圖。

長條圖

import pandas as pd
import numpy as np
from pyecharts import Bar

title='長條圖'
index = pd.date_range('01/02/2019', periods = 10, freq = 'M')
df1 = pd.DataFrame(np.random.randn(10), index=index)
df2 = pd.DataFrame(np.random.randn(10), index=index)

seq1 = ["{:.2f}".format(i[0]*100) for i in df1.values]
seq2 = ["{:.2f}".format(i[0]*100) for i in df2.values]
_index = [i for i in df1.index.format()]

bar = Bar(title, "每月賺賠")
bar.add('獲利', _index, seq1)
bar.add('虧損', _index, seq2)
bar.render(path='bar.html')
bar

第17行：輸出一個可互動式的網頁。

Python：抓取政府資料開放平台JSON資料存入SQLite

2019-12-12T22:52:00.000-08:00

Python中抓取 JSON 與解析 JSON 可以很快速，這裡以「政府資料開放平台」的「宜蘭縣加油站資料」資料為例，將抓取後的JSON存入SQLite中。
以 Python 取回資料JSON，資料格式為 List 類型。

import requests
url = "http://www.ilepb.gov.tw/api/ILEPB01001/format/JSON"
jd = requests.get(url).json()
jd

資料格式為List，所以可以直接放到 Pandas 中

import requests
import pandas as pd

url = "http://www.ilepb.gov.tw/api/ILEPB01001/format/JSON"
jd = requests.get(url).json()
df = pd.DataFrame(jd)
df = df.set_index('加油站名稱')
df.head()

最後寫入SQLite中，並取出資料。

import sqlite3
conn = sqlite3.connect("gas.sqlite3")
df.to_sql('point', conn, if_exists='replace')
df = pd.read_sql("select * from point", conn, index_col=['加油站名稱'])
df.head()

上面兩部分的寫法做一下結合就可以完成抓取資料到SQLite的Python程式碼。

最後提供另一種寫法完成這一回合的介紹，由於資料格式為JSON，而 Pandas 有支援直接讀取JSON，因此我們可直接改用 Pandas 來完成。

import requests
import pandas as pd
import sqlite3

url = "http://www.ilepb.gov.tw/api/ILEPB01001/format/JSON"
df = pd.read_json(url)
df = df.set_index('加油站名稱')
conn = sqlite3.connect("gas.sqlite3")
df.to_sql('point', conn, if_exists='replace')
df = pd.read_sql("select * from point", conn, index_col=['加油站名稱'])
df.head()

Excel VBA：資料篩選、進階篩選

2019-12-08T18:21:00.003-08:00

假日幫網友處理一個跟保險有關的案例，初步需求是要從資料去篩選出姓名，當使用者用姓名篩選後，找出其他相關的人跟地址，該網友本身有寫VBA程式碼，但每天執行需要40分鐘~1小時，需求是需要能優化過程，目前以網路公開資料來進行操作，資料來源為地方公職人員資訊服務網，從這裡下載資料在進行修改與模擬該相關需求。
由於資料僅有一張表(如：檔案連結中的工作表：「全部資料」)，僅能以此作為查詢依據，至於其真實性這裡將不作考究，只針對需求來做說明。
需求內容如下：

以「姓名」選出相關的「地址」，該「地址」可能會出現於資料中其他行，且會是另一人的「姓名」。
再以另一人的「姓名」選出其他相關的「地址」，相同方式循環找，直到所有相關「姓名」與「地址」都不在新增為止。

基於以上需求內容，我將藉由篩選方式來減少迴圈的使用，搭配「高階篩選」、「移除重複」、「資料驗證」等，程式碼來處理。

程式運作流程：

檔案開啟時，觸發「Workbook_Open」事件對「鄉鎮市」進行過濾，過濾並移除重複數值，用以建立第一層資料清單。
當使用者對「鄉鎮市」切換時，觸發「Workbook_SheetChange」事件，在指定工作表與儲存格位置後，可針對「鄉鎮市」挑選出不重複的「姓名」作為清單。
當使用者對「姓名」切換，觸發「Workbook_SheetChange」事件，在「全部資料」進行篩選查詢。
選出來後再逐一以「地址」進行查詢其他相關「姓名」。
「姓名」選出後再以「姓名」查詢「地址」，如此循環直到不在出現新的「姓名」或「地址」為止。

以下就是檔案中相關的程式碼。
在VBE的ThisWorkbook中貼上以下程式碼。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Workbooks(1).Sheets(1).Cells.Clear
    Workbooks(1).Save
End Sub

Private Sub Workbook_Open()
    第一層清單產生
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "資料顯示" Then
        If Target.Address = "$A$1" Then
            第二層清單產生
        ElseIf Target.Address = "$B$1" Then
            If Len(Sh.Range(Target.Address)) Then
                以姓名過濾出地址
                Do
                以地址選出親屬
                Loop While 以親屬姓名選出地址
                
                最後結果傳至第一張工作表
            End If
        End If
    End If
End Sub

在VBE添加Module1並貼上以下程式碼。

Sub 第一層清單產生()
    Dim listcount1 As Integer
    
    Workbooks(1).Sheets(3).Columns(1).Clear
    
    '進階過濾篩選出不重複的鄉鎮市
    With Workbooks(1).Sheets(2)
        .Range("C:C").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Workbooks(1).Sheets(3).Range("A1"), Unique:=True
    End With
    
    '賦予資料區域名稱為list1，等於是名稱管理員的設定
    With Workbooks(1).Sheets(3)
        .Range(Cells(2, "A").Address, .Cells(Rows.count, "A").End(xlUp).Address).Name = "list1"
    End With
    
    '設定"資料驗證"中的清單
    With Workbooks(1).Sheets(1).Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
             Operator:=xlBetween, Formula1:="=list1"
    End With
End Sub

Sub 第二層清單產生()
    Dim listcount1 As Integer
    
    Workbooks(1).Sheets(3).Columns(2).Clear
    
    以鄉鎮市過濾出姓名
    
    '進階過濾篩選出不重複的姓名
    With Workbooks(1).Sheets(4)
        .Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Workbooks(1).Sheets(3).Range("B1"), Unique:=True
        .Cells.Clear
    End With
    
    '賦予資料區域名稱為list2，等於是名稱管理員的設定
    With Workbooks(1).Sheets(3)
        .Range(Cells(2, "B").Address, .Cells(Rows.count, "B").End(xlUp).Address).Name = "list2"
    End With
    
    '設定"資料驗證"中的清單
    With Workbooks(1).Sheets(1).Range("B1")
        .Clear
        With .Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                 Operator:=xlBetween, Formula1:="=list2"
        End With
    End With
End Sub

Sub 以鄉鎮市過濾出姓名()
    Dim tmp, line
    Dim i As Integer, count As Integer
    
    With Workbooks(1).Sheets(2)
        With .UsedRange
            '鄉鎮市篩選
            .AutoFilter Field:=.Cells(1, "C").column, Criteria1:="=" & Sheets(1).Cells(1, 1)
            
            '選出符合條件的資料
            Set tmp = .Resize(.Rows.count - 1).SpecialCells(xlCellTypeVisible)
            count = 1
            For Each line In tmp.Areas
                For i = 1 To line.Rows.count
                    Sheets(4).Cells(count, 1).Value = line(i, 5).Value
                    count = count + 1
                Next
            Next
        End With
        
        '關閉篩選
        .AutoFilterMode = False
    End With
End Sub

Sub 以姓名過濾出地址()
    Dim tmp, line
    Dim i As Integer, j As Integer, count As Integer, column As Integer
    
    Workbooks(1).Sheets(4).Cells.Clear
    With Workbooks(1).Sheets(2)
        column = .Cells(1, Columns.count).End(xlToLeft).column
        With .UsedRange
            '姓名篩選
            .AutoFilter Field:=.Cells(1, "E").column, Criteria1:="=" & Sheets(1).Cells(1, 2)
            
            '選出符合條件的資料
            Set tmp = .Resize(.Rows.count - 1).SpecialCells(xlCellTypeVisible)
            count = 1
            For Each line In tmp.Areas
                For i = 1 To line.Rows.count
                    For j = 1 To column
                        Sheets(4).Cells(count, j).Value = line(i, j).Value
                    Next
                    
                    '取得符合條件的資料所在列位置
                    Sheets(4).Cells(count, column + 1).Value = line.Rows.row() + i - 1
                    If line.Rows.row() = 1 And Sheets(4).Cells(count, column + 1) = 1 Then
                        Sheets(4).Cells(count, column + 1) = "行號"
                    End If
                    count = count + 1
                Next
            Next
        End With
        
        '關閉篩選
        .AutoFilterMode = False
    End With
End Sub

Sub 以地址選出親屬()
    Dim tmp, line
    Dim i As Integer, j As Integer, k As Integer, count As Integer, column As Integer, row As Integer
    
    With Workbooks(1).Sheets(2)
        column = .Cells(1, Columns.count).End(xlToLeft).column
        With .UsedRange
            row = Sheets(4).Cells(Rows.count, 1).End(xlUp).row
            count = row + 1
            For k = 2 To row
                '地址篩選
                .AutoFilter Field:=.Cells(1, "G").column, Criteria1:="=" & Sheets(4).Cells(k, 7)
                
                '選出符合條件的資料
                Set tmp = .Offset(1).Resize(.Rows.count - 1).SpecialCells(xlCellTypeVisible)
                For Each line In tmp.Areas
                    For i = 1 To line.Rows.count
                        For j = 1 To column
                            Sheets(4).Cells(count, j).Value = line(i, j).Value
                        Next
                        
                        '取得符合條件的資料所在列位置
                        Sheets(4).Cells(count, column + 1).Value = line.Rows.row() + i - 1
                        count = count + 1
                    Next
                Next
            Next
        End With
        
        '關閉篩選
        .AutoFilterMode = False
    End With
    
    '針對重複資料進行移除
    row = Workbooks(1).Sheets(4).Cells(Rows.count, 1).End(xlUp).row
    column = Workbooks(1).Sheets(4).Cells(1, Columns.count).End(xlToLeft).column
    
    ReDim col(0 To column - 1)
    For i = 0 To column - 1
        col(i) = i + 1
    Next
    Workbooks(1).Sheets(4).Range("A1:J" & row).RemoveDuplicates Columns:=(col), Header:=xlYes
    Workbooks(1).Sheets(3).Cells(1, 30) = Workbooks(1).Sheets(4).Cells(Rows.count, 1).End(xlUp).row
End Sub

Function 以親屬姓名選出地址()
    Dim tmp, line
    Dim i As Integer, j As Integer, k As Integer, count As Integer, column As Integer, row As Integer
    
    With Workbooks(1).Sheets(2)
        column = .Cells(1, Columns.count).End(xlToLeft).column
        With .UsedRange
            row = Sheets(4).Cells(Rows.count, 1).End(xlUp).row
            count = row + 1
            For k = 2 To row
                '親屬姓名篩選
                .AutoFilter Field:=.Cells(1, "E").column, Criteria1:="=" & Sheets(4).Cells(k, 5)
                
                '選出符合條件的資料
                Set tmp = .Offset(1).Resize(.Rows.count - 1).SpecialCells(xlCellTypeVisible)
                For Each line In tmp.Areas
                    For i = 1 To line.Rows.count
                        For j = 1 To column
                            Sheets(4).Cells(count, j).Value = line(i, j).Value
                        Next
                        
                        '取得符合條件的資料所在列位置
                        Sheets(4).Cells(count, column + 1).Value = line.Rows.row() + i - 1
                        count = count + 1
                    Next
                    
                Next
            Next
        End With
        
        '關閉篩選
        .AutoFilterMode = False
    End With
    
    '針對重複資料進行移除
    row = Workbooks(1).Sheets(4).Cells(Rows.count, 1).End(xlUp).row
    Workbooks(1).Sheets(4).Range("A1:J" & row).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), Header:=xlYes
    
    以親屬姓名選出地址 = False
    Workbooks(1).Sheets(3).Cells(1, 31) = Workbooks(1).Sheets(4).Cells(Rows.count, 1).End(xlUp).row
    If Workbooks(1).Sheets(3).Cells(1, 30) <> Workbooks(1).Sheets(3).Cells(1, 31) Then
        以親屬姓名選出地址 = True
    End If
End Function

Sub 最後結果傳至第一張工作表()
    Dim row As Integer, column As Integer
    
    With Workbooks(1).Sheets(1)
        row = .Cells(Rows.count, 1).End(xlUp).row
        If row < 5 Then row = 5
        .Rows("5:" & row).Clear
    End With
    
    With Workbooks(1).Sheets(4)
        row = .Cells(Rows.count, 1).End(xlUp).row
        column = .Cells(1, Columns.count).End(xlToLeft).column
        Workbooks(1).Sheets(1).Cells(5, 1).Resize(row, column).Value = .Cells(1, 1).Resize(row, column).Value
    End With
End Sub

執行結果：

檔案連結。

Excel VBA：陣列對儲存格(Array to Range)、儲存格對陣列(Range to Array)、儲存格對儲存格(Range to Range) (1)

2019-12-05T08:29:00.000-08:00

在 Excel VBA 中，很多人對於陣列數值瑱到儲存格常會混淆，為此舉幾個範例讓大家可以清楚了解陣列填值的寫法。
以下為2種常見的一維陣列對儲存格填值方式。
第一種：陣列無指定起始

Sub 陣列無指定起始()
    Dim a(3) As Integer, i As Integer
    
    For i = 1 To 3
        a(i) = i
    Next
    Sheets(1).Cells.Clear
    Sheets(1).Cells(1, 1).Resize(, UBound(a) + 1).Value = a
    Sheets(1).Cells(3, 1).Resize(UBound(a) + 1).Value = Application.Transpose(a)
End Sub

執行畫面與結果：

第二種：陣列有指定起始

Sub 陣列有指定起始()
    Dim a(1 To 3) As Integer, i As Integer
    
    For i = 1 To 3
        a(i) = i
    Next
    Sheets(1).Cells.Clear
    Sheets(1).Cells(1, 1).Resize(, UBound(a) + 1).Value = a
    Sheets(1).Cells(3, 1).Resize(UBound(a) + 1).Value = Application.Transpose(a)
End Sub

執行畫面與結果：

以下為3種常見的二維陣列對儲存格填值方式。
第一種：陣列宣告，Row與Column起始皆未指定

Sub 陣列Row與Column起始皆未指定()
    Dim a(2, 3) As Integer, i As Integer, j As Integer
    
    For i = 1 To 2
        For j = 1 To 3
            a(i, j) = i * j
        Next
    Next
    Sheets(1).Cells.Clear
    Sheets(1).Cells(1, 1).Resize(UBound(a) + 1, UBound(a, 2) + 1).Value = a
End Sub

執行畫面與結果：

第二種：陣列宣告，Row起始指定1與Column起始未指定

Sub 陣列Row起始指定1與Column起始未指定()
    Dim a(1 To 2, 3) As Integer, i As Integer, j As Integer
    
    For i = 1 To 2
        For j = 1 To 3
            a(i, j) = i * j
        Next
    Next
    Sheets(1).Cells.Clear
    Sheets(1).Cells(1, 1).Resize(UBound(a) + 1, UBound(a, 2) + 1).Value = a
End Sub

執行畫面與結果：

第三種：陣列宣告，Row起始指定1與Column起始指定1

Sub 陣列Row起始指定1與Column起始指定1()
    Dim a(1 To 2, 1 To 3) As Integer, i As Integer, j As Integer
    
    For i = 1 To 2
        For j = 1 To 3
            a(i, j) = i * j
        Next
    Next
    Sheets(1).Cells.Clear
    Sheets(1).Cells(1, 1).Resize(UBound(a) + 1, UBound(a, 2) + 1).Value = a
End Sub

執行畫面與結果：

以上陣列對儲存格填值方式，請注意陣列宣告方式不同，其他部分相同，如此將導致不同的果，各位可以自行偵錯查看其中的變化。

檔案連結。

Google Apps Script 入門到進階(21) --- 取得工作表的最後一筆資料的位置

2019-11-30T01:28:00.001-08:00

在寫 Google Apps Script 中，常會需要抓取工作表會後一筆資料的時候，在 Google Apps Script 有提供 getLastRow() 函數，但這函數只針對整個工作表抓取最後一筆資料的位置，若只想取得某一個範圍的最後一筆資料，那就不是很方便使用了，所以需要另外寫程式碼處理，這部分就以下面的程式碼來完成，只要指定工作表與範圍的字串，就可以完成Excel VBA的效果一樣。
以下Google Apps Script 程式碼，其效果等同於Excel VBA。

Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row

Google Apps Script 取最後一筆資料的寫法。
寫法 1：

//////////////////////////////////////////////////////////////
//
//sheet：為Google工作表SpreadsheetApp.getActiveSpreadsheet()
//column：為工作表中指定的儲存格範圍的字串
//
//////////////////////////////////////////////////////////////
function getLastRow(sheet, column)
{
  //var sheet = SpreadsheetApp.getActiveSpreadsheet().getActiveSheet();
  //var sheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName("工作表名");
  
  //指定儲存格範圍
  var rng = sheet.getRange(column).getValues();
  var lrIndex;

  //取得最後一個有資料的Row位置
  for(var i = rng.length - 1 ; i >= 0 ; i--)
  {
 if(!rng[i].every(function(c){ return c == "";}))
 {
      lrIndex = i;
      break;
    }
  }
  return lrIndex + 1;
}

寫法 2：

//////////////////////////////////////////////////////////////
//
//sheet：為Google工作表SpreadsheetApp.getActiveSpreadsheet()
//column：為工作表中指定的儲存格範圍的字串
//
//////////////////////////////////////////////////////////////
function getLastRow(sheet, column){
  //取得工作表最後一筆資料
  var numRows = sheet.getLastRow();
  
  //取得範圍資料
  var data = sheet.getRange(1, column, numRows).getValues();
  
  //從最後面找出資料出現的位置就是最後一筆資料的位置
  for(var i = data.length - 1 ; i >= 0 ; i--){
    if (data[i][0] != null && data[i][0] != ""){
      return i + 1;
    }
  }
}

Excel VBA：Excel 儲存格資料進行陣列順序反轉

2019-11-23T02:08:00.001-08:00

在Excel VBA中常會遇到要將資料進行反轉的操作，在Exce VBA中最常見的做法就是使用for迴圈來進行，VBA中雖然有陣列可使用，但卻陣列可用的操作方式又很有限，像是資料反向操作、資料排序等皆無提供，需另外使用for迴圈或其他方式處理，以下介紹已for迴圈與「System.Collections.ArrayList」物件進行陣列反轉。

方法1：不使用for迴圈，改以「System.Collections.ArrayList」作法

Sub 方法1不使用for迴圈()
    Dim i As Long, count As Long
    Dim coll As Object
    Dim a
    Dim t As Long
    
    count = Sheets(1).Cells(1, 2)
    
    t = Timer
    
    Sheets(1).Rows("3:65535").Clear
    
    For i = 1 To count
        Sheets(1).Cells(i + 2, 1) = i
    Next

    a = Sheets(1).Cells(3, 1).Resize(count).Value

    Set coll = CreateObject("System.Collections.ArrayList")
    With coll
        '清除前一次操作的暫存，做加速用
        .Clear
        
        '只能用字串進行反轉
        For Each q In a
            .Add CStr(q)
        Next
        
        '反轉
        .Reverse

        Sheets(1).Cells(3, 2).Resize(count, 1) = Application.Transpose(.ToArray)
        Sheets(1).Cells(3, 3).Resize(1, count) = .ToArray
    End With
    Set coll = Nothing
    MsgBox Format(Timer - t, "0.00") & "秒"
End Sub

方法2：使用for迴圈

Sub 方法2使用for迴圈()
    Dim i As Long, count As Long
    Dim a, b()
    Dim t As Long
    
    count = Sheets(1).Cells(1, 2)

    t = Timer
    
    Sheets(1).Rows("3:65535").Clear
    
    For i = 1 To count
        Sheets(1).Cells(i + 2, 1) = i
    Next
    
    a = Sheets(1).Cells(3, 1).Resize(count).Value
    
    ReDim b(count - 1)
    For i = count To 1 Step -1
        b(count - i) = a(i, 1)
    Next
    
    Sheets(1).Cells(3, 2).Resize(count, 1) = Application.Transpose(b)
    Sheets(1).Cells(3, 3).Resize(1, count) = b
    Erase b
    MsgBox Format(Timer - t, "0.00") & "秒"
End Sub

程式碼執行畫面

檔案連結。