多頁的 tif 檔轉 jpg 檔 方便傳 LINE

-
為了每天可以把多個頁次的 tif 檔轉成 jpg 檔，方便後續使用 LINE 傳送，在手機上讀取，問了一下股溝大神，很多人都說用 infraview 就可以了，而且，只要一行指令就能搞定。

工作環境︰
 Windows
 infraview ZIP 版（免安裝可用）
 每天的today.tiff 檔存到 D:\temp 下
 轉檔後的 jpg 檔也要放到 D:\temp 下

為了怕新檔案和舊檔案分不清楚，先把之前產生的檔案殺掉，再重新產生新的 jpg 檔
在終端機（cmd.exe）下達下方 2 個指令，一下子就搞定了，如果確定在 D:\temp 下有看到很多個 today_page_####.jpg 就表示成功了，把下面2行存成 aaa.bat 之後，每天點2下就可以去 D:\temp 下收檔案了。

開心！
收工

=============== 指令開始 ==============
del D:\temp\today_page*.jpg
D:\APPGreen\iview442_x64\i_view64.exe D:\temp\today.tif /extract=(d:\temp,jpg)
=============== 指令結束 ==============

留言

張貼留言

這個網誌中的熱門文章

使用 Excel 計算2個地點之間的直線距離

-
如果想知道地圖上2個點的直線距離，通常直覺就上 google map 之類的網路地圖，使用尺規之類的工具(通常圖示是一把尺，拖、拉、放之後，網站就會告訴你這2點之間的距離，But........... 如果沒有網路，知道一大堆點的經度和緯度，想要知道這些點，和另一個指定的點之間的直線距離，應該不太可能會在這個時候才想探就 GIS 的基礎理論，知道其實地球是球形的，再去複習一下高中數學(圓周、三角函數…)，以便計算球面上的2個點之間的距離，或是有人會說，用 google map api，寫個小程式，馬上就知道了，還可以知道行經路徑(迷之音：再次提醒你，沒有網路，沒有網路，沒有網路.................)；大部份的人應該會說，釣竿留給你，魚直接給我吧........... 知道點位的經緯度(小數格式)，恭喜你，打開 Excel 吧，假設你的所在點是經度 121.587753，緯度是 25.286747，把要試算的另一個點的緯度放在 Excel 的 E2 欄位，經度放在 F2 欄位，然後把下面的函式貼到你要求解距離的欄位，你就知道2點之間的距離有多遠了： 如果你是在台灣： E2 = 緯度(約24) F2 = 經度(約120) 函式： =6371 *ACOS( COS( RADIANS( 25.286747 ) ) * COS( RADIANS( E2 ) ) * COS( RADIANS( F2 ) - RADIANS(121.587753 ) ) + SIN( RADIANS( 25.286747 ) ) * SIN( RADIANS(E2 ) ) ) 單位：公里
閱讀完整內容

LINE 儲存的檔案傳到 email 不方便 很不方便 非常不方便 但是有解的筆記

-
用了這麼久的免費軟體，當然可以理解這些提供免費軟體的廠商要擴大使用群組的苦心，儘管如此，使用者需求不可能因此改變，這次想做的事情，是使用 Nxxxx 公司的 LINE ，把裏面儲存的檔案轉用 email 寄出，是的，這個收件者一定還沒在使用者的 LINE 名單當中，不然就不會苦手了。 難道就不能長按就傳 email 嗎？ 難道就不能長按就傳 email 嗎？ 難道就不能長按就傳 email 嗎？ 作業環境︰ Axxx zxxxxxx2 laser 己經預設優先安裝 App 在 SDcard   App︰   LINE   Axxx 內建 檔案管理員   gmail 檔案存檔的地方︰ 需要檔案管理員之類的App來找到這些檔案，如果是文件檔，大多是記不得名字的，可以用副檔名（doc, xls, pdf....）搜尋之後再來找，有時侯會快一點。 手機傳送的相片位置在Pictures/NAVER_LINE 電腦傳送的原始檔案圖片或者doc、pdf等等的檔案位置在 Android/data/jp.naver.line.android /storage/mo下的亂數資料夾名稱內 找到之後用3個點點點的按鈕，也就是功能鍵 》 分享 》 Gmail，你的檔案就會在附件中，把收件者的 email 打上就可以傳出。 終於解決了 發現手機和我真的很不熟 @@" …… 不過又熟了一些 開心 XD 收工
閱讀完整內容

Excel 巨集合併多個 Excel 檔案

-
上次遇到了同一個檔案中多個工作表合併到一個工作表裏，這次因為工作的關係又去找了多個不同的檔案，所有的工作表合併到同一個檔案中。 工作環境︰ Windows 10 M$ Office 2010 Sub CombineSheets() '活頁簿存放路徑，可自行修改存放路徑 Path = "D:\資料夾名稱\" Filename = Dir(Path & "*.xl*") '避免工作表名字相同，重新命名 i = 1 Do While Filename <> "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) ActiveSheet.Name = i i = i + 1 Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub 收工！
閱讀完整內容