開啟 命令提示字元(DOS 視窗)
# 切換至要匯出檔名的目錄 cd\dir1 # 以 dir 指令將檔名匯到指定的文字檔 dir /b > c:\myfilelist.txt
Numberstring 函式有 2 個引數
第 1 個引數是要轉換數字的儲存格
第 2 個引數有 3 種型態，如下：
在儲存格 A1 輸入數字 1234567890
型態 1：在 B1 輸入公式
=numberstring(A1, 1)
就會自動轉換為
一十二億三千四百五十六萬七千八百九十
型態 2：
=numberstring(A1, 2)
就會自動轉換為
壹拾貳億參仟肆佰伍拾陸萬柒仟捌佰玖拾
型態 3：
=numberstring(A1, 1)
就會自動轉換為
一二三四五六七八九○
在儲存格輸入 P(注意,要大寫) → 選擇字型 Windings2(這是一種特殊符號字型)，就變成打勾了
下圖為 大寫英文 在 Windings2 字型顯示的效果
有興趣的朋友也可以玩玩其他文字(例如小寫英文)
老人家安裝在 CentOS 7 的 Visual Studio Code 已經有一陣子無法運作了 -- 只要一啟動 vscode，就僵在啟動畫面，目前的版本為 1.57.0。
暫時先下載安裝 Sublime 頂著用。
可是...我還是想用 vscode 啊...
爬文後，參考網友的做法，先到 Microsoft YUM repos 找到舊的 1.52.1 版，手動下載安裝，並停用自動更新。
* 移除目前的 vscode 1.57.0 版 [root]# yum remove code * 切換到下載下來的 1.52.1 的目錄(我是下載到 /tmp) [root]# yum install code-1.52.1-1608137084.el7.x86_64.rpm * 停止 vscode 自動更新 [root]# vi /etc/yum.repos.d/vscode.repo * 啟動了 vi, 按 i 進入編輯模式 * 將 enabled=1 改為 enabled=0 * 按 :x 存檔離開
重開機，就可以使用 vscode 了
如果重開機後，Gnome 的圖形界面功能表--"軟體開發" 內仍沒有 vscode 的圖示，則可以
開啟終端機視窗，輸入
/usr/share/code/code
手動啟動 vscode
到 微軟官網 下載 sdelete，這是一個壓縮檔。
解壓縮後，視您的作業系統執行 sdelete 版本，老人家的是 Win7 64bit
C:\>sdelete64 -z C:
有幾個硬碟就執行幾次
[root]# VBoxManage modifymedium disk /vm所在目錄/sample.vdi --compact
執行後原本 116G 的 vdi 縮成 111G
{
// 定義 VS Code 的顯示語言。
// 如需支援的語言清單，請參閱 https://go.microsoft.com/fwlink/?LinkId=761051。
"locale":"zh-tw" // 在重新啟動 VS Code 前，變更不會生效。
}
重新啟動 VS Code 就生效了。
<head>
...
...
<script src="https://cdn.jsdelivr.net/gh/google/code-prettify@master/loader/run_prettify.js?skin=sunburst"></script>
<style>
pre.prettyprint, code.prettyprint
{
border-radius: 8px;
}
</style>
...
...
</head>
<pre class="prettyprint [lang-語言] [linenums:數字]"> ... ... </pre>[ ] 表示是選擇性參數，若不加 linenums，預設不會顯示行號。
<style>
li.L0, li.L1, li.L2, li.L3,
li.L5, li.L6, li.L7, li.L8 {
list-style-type: decimal !important;
}
</style>
或是去下載預設的 pretty.css 下來，自行修改，再放到您的網站。
unit Unit1;
interface
// 注意要 uses ActiveX, ComObj
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ActiveX, ComObj;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function GetStatusCodeStr(statusCode:integer) : string;
begin
case statusCode of
0 : Result := 'Success';
11001: Result := 'Buffer Too Small';
11002: Result := 'Destination Net Unreachable';
11003: Result := 'Destination Host Unreachable';
11004: Result := 'Destination Protocol Unreachable';
11005: Result := 'Destination Port Unreachable';
11006: Result := 'No Resources';
11007: Result := 'Bad Option';
11008: Result := 'Hardware Error';
11009: Result := 'Packet Too Big';
11010: Result := 'Request Timed Out';
11011: Result := 'Bad Request';
11012: Result := 'Bad Route';
11013: Result := 'TimeToLive Expired Transit';
11014: Result := 'TimeToLive Expired Reassembly';
11015: Result := 'Parameter Problem';
11016: Result := 'Source Quench';
11017: Result := 'Option Too Big';
11018: Result := 'Bad Destination';
11032: Result := 'Negotiating IPSEC';
11050: Result := 'General Failure'
else
result := 'Unknow';
end;
end;
function Ping(const Address:string; BufferSize:Word): string;
var
FSWbemLocator : OLEVariant;
FWMIService : OLEVariant;
FWbemObjectSet: OLEVariant;
FWbemObject : OLEVariant;
oEnum : IEnumvariant;
iValue : LongWord;
PacketsReceived : Integer;
Minimum : Integer;
Maximum : Integer;
Average : Integer;
begin
PacketsReceived := 0;
Minimum := 0;
Maximum := 0;
Average := 0;
FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
FWMIService := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', '');
FWbemObjectSet:= FWMIService.ExecQuery(Format('SELECT * FROM Win32_PingStatus where Address=%s AND BufferSize=%d',[QuotedStr(Address),BufferSize]),'WQL',0);
oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
if (oEnum.Next(1,FWbemObject,iValue)=0) then
begin
if FWbemObject.StatusCode=0 then
begin
// ping 成功
Inc(PacketsReceived);
result := 'ping 的到';
end
else
if not VarIsNull(FWbemObject.StatusCode) then
result := GetStatusCodeStr(FWbemObject.StatusCode)
else
result := 'Error processing request';
end;
FWbemObject := Unassigned;
FWbemObjectSet := Unassigned;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
begin
try
CoInitialize(nil);
try
str := Ping(Edit1.Text, 32);
showmessage(str);
finally
CoUninitialize;
end;
except
on E:Exception do
showmessage('意外錯誤: ' + E.Classname + ':' + E.Message);
end;
end;
end.
... ... # 註解：我的 PHP 程式 log # Linux 開放 local0 ~ local7, 也就是 8 個自定 log，給管理者使用 # 所以您最多可以有 8 組程式可以記錄 local0.* /var/log/myphplog/myphp.log
# 註解：我的 PHP 程式 log 輪替規則
# 可以參考同目錄下其他 daemon 的設定寫法
# log 檔位置
/var/log/myphplog/myphp.log
{
# 每日輪替, 也就是說每天產生一個 log 檔
daily
# 舊的 log 檔名後面帶西元日期
dateext
# 自 CentOS7 才有的參數, 舊的 log 檔名後面帶昨天的西元日期
dateyesterday
# 舊 log 保留檔案數 10 個檔, 即使有 dateext 參數也一樣要宣告
rotate 10
# 不壓縮
nocompress
# 執行 logrotate 時, 若自己的 log 檔還沒產生, 可忽略不管
missingok
# 重新啟動 rsyslog
# 這步驟一定要做, 否則 rsyslog 會一直寫進舊的 log 檔, 即使舊 log 檔已輪替多日
# 比方說, 您自 2016/01/01 開始啟用, 則 myphp.log 輪替成舊檔後, 檔名會變成 myphp.log-20160101
# 若沒做重新啟動 rsyslog 這個動作, 即使到 2016/12/31, log 依然會寫進 myphp.log-20160101
postrotate
# 二擇一
# 方法一, 網路上看到的多為這指令, 看起來應該是正規做法
/bin/kill -HUP 'cat /var/run/rsyslogd.pid 2> /dev/null' 2> /dev/null || true
# 方法二, 看似有點暴力的土法, 目前不知有何後遺症
service rsyslog restart
endscript
}
<?php
date_default_timezone_set('Asia/Taipei');
openlog("myphplog", LOG_CONS, LOG_LOCAL0);
// 第二個參數, 要寫入的訊息
syslog(LOG_INFO,"test log --".date('Y-m-d H:i:s'));
closelog();
?>
Dec 4 16:48:43 主機名 myphplog: test log --2016-12-04 16:48:43 Dec 4 16:48:45 主機名 myphplog: test log --2016-12-04 16:48:45 Dec 4 16:48:49 主機名 myphplog: test log --2016-12-04 16:48:49 Dec 4 16:48:55 主機名 myphplog: test log --2016-12-04 16:48:55
SELECT @@version
uses
// 主要要有 uses 這兩個
... System.Variants, comobj;
procedure TForm1.Button1Click(Sender: TObject);
var
ServiceManager, StarDesktop, Document, args, Sheets, Sheet, myCol, Control,
Range, cell, NumberFormats, LocalSettings, LineBorder,
Border, TopLine, BottomLine, LeftLine, RightLine: Variant;
col, row, i: integer;
NumberFormatString: string;
NumberFormatId: long;
begin
ServiceManager := CreateOleObject('com.sun.star.ServiceManager');
StarDesktop := ServiceManager.createInstance('com.sun.star.frame.Desktop');
args := VarArrayCreate([0,1],varVariant);
Document := StarDesktop.LoadComponentFromURL('private:factory/scalc','_blank',0, args);
Sheets := Document.Sheets;
// 第 1 張工作表的位置為 0
// 插入一張新工作表, 參數 1 為工作表名稱, 參數 2 為工作表的位置順序
// 當指定的位置大於現有的工作表數量時, 就是最後一張工作表
Sheets.insertNewByName('oneMore',0);
Sheets.insertNewByName('twoMore',4);
Sheets.insertNewByName('threeMore',4);
Sheets.insertNewByName('fourMore',4);
Sheets.insertNewByName('五',4);
Sheets.insertNewByName('六',3);
// 移除工作表
Sheets.removeByName('twoMore');
// 顯示/隱藏 工作表
Sheet := Sheets.getByName('oneMore');
Sheet.IsVisible := false;
Sheet := Sheets.getByName('工作表1');
// Calc 的欄、列是以 0 為起點
col := 0; // 第 1 欄
row := 9; // 第 10 列
Sheet.getCellByPosition(col,row).string := 'test';
// 水平文字對齊
// 0: STANDARD - 預設值
// 1: LEFT - 靠左對齊
// 2: CENTER - 置中
// 3: RIGHT - 靠右對齊
// 4: BLOCK - 左右對齊
// 5: REPEAT - 重覆
Sheet.getCellByPosition(0,0).string := '水平文字對齊-預設';
Sheet.getCellByPosition(0,0).HoriJustify := 0;
Sheet.getCellByPosition(1,0).string := '水平文字對齊-靠左對齊';
Sheet.getCellByPosition(1,0).HoriJustify := 1;
Sheet.getCellByPosition(2,0).string := '水平文字對齊-置中';
Sheet.getCellByPosition(2,0).HoriJustify := 2;
Sheet.getCellByPosition(3,0).string := '水平文字對齊 - 靠右對齊';
Sheet.getCellByPosition(3,0).HoriJustify := 3;
Sheet.getCellByPosition(4,0).string := '水平文字對齊 - 左右對齊';
Sheet.getCellByPosition(4,0).HoriJustify := 4;
Sheet.getCellByPosition(5,0).string := '水平文字對齊 - 重覆';
Sheet.getCellByPosition(5,0).HoriJustify := 5;
// 垂直文字對齊
// 0: STANDARD - 預設值
// 1: TOP - 靠上對齊
// 2: CENTER - 置中
// 3: BOTTOM - 靠下對齊
Sheet.getCellByPosition(0,1).string := '垂直文字對齊 - 預設值';
Sheet.getCellByPosition(0,1).VertJustify := 0;
Sheet.getCellByPosition(1,1).string := '垂直文字對齊 - 靠上對齊';
Sheet.getCellByPosition(1,1).VertJustify := 1;
Sheet.getCellByPosition(2,1).string := '垂直文字對齊 - 置中';
Sheet.getCellByPosition(2,1).VertJustify := 2;
Sheet.getCellByPosition(3,1).string := '垂直文字對齊 - 靠下對齊';
Sheet.getCellByPosition(3,1).VertJustify := 3;
// 自動調整欄寬
// 第 1 種寫法
myCol := Sheet.Columns.getByIndex(0);
myCol.OptimalWidth := true;
// 第 2 種寫法
Sheet.Columns.getByIndex(0).OptimalWidth := true;
// 凍結窗格
Control := Document.getCurrentController;
Control.freezeAtPosition(0,1);
// 合併儲存格
Sheet.getCellByPosition(0,5).string := '合併儲存格';
Range := Sheet.getCellRangeByName('A6:B10');
Range.Merge(true);
// 畫儲存格框線
LineBorder := ServiceManager.Bridge_GetStruct('com.sun.star.table.BorderLine');
LineBorder.Color := RGB(0, 0, 0);
// 目前只要 OuterLineWidth 和 InnerLineWidth 同時存在
// 就畫不出框線, 只好先 disable 其中一個
LineBorder.OuterLineWidth := 5;
// LineBorder.InnerLineWidth := 1;
// LineBorder.LineDistance := 50;
Border := ServiceManager.Bridge_GetStruct('com.sun.star.table.TableBorder');
Border.IsTopLineValid := true;
Border.IsBottomLineValid := true;
Border.IsLeftLineValid := true;
Border.IsRightLineValid := true;
Border.TopLine := LineBorder;
Border.BottomLine := LineBorder;
Border.LeftLine := LineBorder;
Border.RightLine := LineBorder;
Range.TableBorder := Border;
// 上框線
TopLine := ServiceManager.Bridge_GetStruct('com.sun.star.table.BorderLine');
TopLine.Color := RGB(255, 0, 0);
TopLine.OuterLineWidth := 15;
// 下框線
BottomLine := ServiceManager.Bridge_GetStruct('com.sun.star.table.BorderLine');
BottomLine.Color := RGB(0, 255, 0);
BottomLine.OuterLineWidth := 15;
// 左框線
LeftLine := ServiceManager.Bridge_GetStruct('com.sun.star.table.BorderLine');
LeftLine.Color := RGB(0, 0, 255);
LeftLine.OuterLineWidth := 15;
// 右框線
RightLine := ServiceManager.Bridge_GetStruct('com.sun.star.table.BorderLine');
RightLine.Color := RGB(255, 255, 0);
RightLine.OuterLineWidth := 15;
// 指定範圍內的水平框線
Border.HorizontalLine := LineBorder;
Border.IsHorizontalLineValid := true;
// 指定範圍內的垂直框線
Border.VerticalLine := LineBorder;
Border.IsVerticalLineValid := true;
Border.TopLine := TopLine;
Border.BottomLine := BottomLine;
Border.LeftLine := LeftLine;
Border.RightLine := RightLine;
Sheet.getCellRangeByName('D10:F15').TableBorder := Border;
// 區域文字對齊
// 0: 靠左
// 1: 告右
// 2: 自動折行
// 3: 置中
Range.ParaAdjust := 3;
// 以名稱方式指定 儲存格
cell := sheet.getCellRangeByName('A1');
// Cell 背景色
// LibreOffice 的 RGB 剛好和 Delphi 順序相反, 是 B-G-R
cell.CellBackColor := RGB(0,0,255); // 紅色
// Cell 字體顏色
cell.CharColor := RGB(0,255,0); // 綠色
// Cell 英數字體高度, 對中文字無效
cell.CharHeight := 50;
// 設定數字格式
LocalSettings := ServiceManager.Bridge_GetStruct('com.sun.star.lang.Locale');
LocalSettings.Language := 'zh';
LocalSettings.Country := 'tw';
NumberFormats := Document.NumberFormats;
NumberFormatString := '#,##0.00';
NumberFormatId := NumberFormats.queryKey(NumberFormatString, LocalSettings, True);
if (NumberFormatId=-1) then
NumberFormatId := NumberFormats.addNew(NumberFormatString, LocalSettings);
// 以名稱方式指定 儲存格, 並輸入數字
Sheet.getCellRangeByName('A15').Value := 13579;
Sheet.getCellRangeByName('A15').NumberFormat := NumberFormatId;
Sheet.getCellRangeByName('A16').Value := -24680;
Sheet.getCellRangeByName('A16').NumberFormat := NumberFormatId;
// 輸入公式
Sheet.getCellRangeByName('A17').Formula := '=SUM(A15:A16)';
[google64] name=Google - x86_64 baseurl=http://dl.google.com/linux/rpm/stable/x86_64 enabled=1 gpgcheck=1 gpgkey=https://dl-ssl.google.com/linux/linux_signing_key.pub
:x 存檔離開
[root]# yum install google-chrome-stable