IT 免費/無料/Kostenlos(gratis) 記事本分享

2024年1月18日星期四

打開PowerPoint簡報檔,出現檔案有問題,按一下修復

情境:
打開PowerPoint簡報檔時,出現檔案有問題,按一下修復 ,仍然沒辦法解決問題。
查看其下方修複說明，可能是防毒軟體造成，但用作法二可以開啟,可能是投影片元件設定為鎖定保護所致。

作法一:
開啟Windows 檔案總管 | PPT檔案 |滑鼠右鍵按一下檔案 |選取 [內容]。

在[內容]對話方塊中| 按一下右下方附近的 [解除封鎖] |[套用] | 再按 [確定] ，再次開啟PPT檔即可正常運作。

作法二:嘗試用LibreOffice開啟後，另存成PowerPoint檔案。(此種解法非正統作法,有可能表格會跑掉)

可能原因，是PPT檔案內有些投影片內SHAPE圖形元件，設為受保護，以致於經由網路傳輸給對方時，出現檔案有問題需修復。

相關PPT修複資訊:

無法讀取檔案，或無法開啟簡報(解除封鎖)
PowerPoint 中對損毀的簡報之疑難排解

2024年1月14日星期日

用AI充當免費日文家教,輔助寫勵志型之生活扎記,並提供參考建言

{{ AI模版關鍵字}} 為預先建好之日文模版生活扎記樣式，先行塑造個人寫作風格及需求，不用每次都重新向AI宣告，預先告知它應該要備妥怎樣的知識背景模版。

只需將自己的學習要點與生活扎記（生活點點滴滴寫下即可），鍵入於下方ＡＩ模版關鍵字旁即可、

學習要點與生活扎記: 、

經歷美好事物我很感恩 :、

我要如何改善 :，ＡＩ即可幫您生活扎記予以分析，並轉換成日文，做為您學習日文之參考。

註:但您所鍵入的資料可能會被當做機器學習之來源，除非加入高等級會員(企業內用戶等級)。

英文心靈雞湯導師

PROMPT提示訊息下法:（請將下面藍色Prompt提示訊息，全數複製貼到AI，並依您個人生活點滴內容(即學習要點與生活扎記、經歷美好事物我很感恩、我要如何改善)調整後，再按下 > )

さて、あなたは「心のチキンスープ」の先生であり、僕の個人的な日記のアシスタントでもあるのですから、今日の{{學習要點與生活扎記}}及び{{經歷美好事物我很感恩}}について{{長さ}}の個人的な日記文書を纏めて下さい。
ネガティブなエネルギーの思いが増えたら、スピリチュアル・スープのメンターの視点で、{{網路連結}}で関係者のリスト、{{引用}}で関係者のリストなど、投稿に深みを与える引用を加えて下さい，例えば、{{網路連結}}にある偉人たちの引用から選りすぐった10個の絶妙な言葉です。これらの語錄は、僕の日記内容に基づいて、心の安らぎや積極性をサポートするものです。

{{目標}}を達成するための簡潔で有益なアドバイス、革新的な情報、その他の人生を学ぶヒントを盛り込み、長くなる場合は段落に分けましょう。
{{我要如何改善}}を提示する場合は有効な改善策を提示して下さい。

變數參數,如下:
目標 :擁有如同世界偉人傳記人物，如:{{網路連結}}所臚列之具備魔法般人格特質，積極、正向、樂於助人且發自內心笑口常開的人^_^

言語文:日本語

學習要點與生活扎記 : 一直希望大家能過心靈富足、衣食無虞,世界能減少非必要之對立,

對立沒有一方是贏家,容易導致互動干戈,今年已經發生重大天災地震、環境氣候變遷等已夠多煩惱了,
買中餐時因旁邊客人排的位置不好,被誤認為插隊,彼此雙方在爭吵,
真心希望大家能家庭生活美滿、平安喜樂

經歷美好事物我很感恩:感恩有youtube平台,經由該平台供專家、學者提供無私且專業分析,看到大家無不都卯足全力,將自己最專業呈現給大家

我很感謝家人能常給我生活建言，也讓我能反省自己
最後，請幫我將您產出的結果及建言，轉換為用{{言語文}}來陳述。

我要如何改善:

其實我可以從旁插話,因為我有碰到旁邊那位客人,以致於他才移動位置,卻被誤認為插隊,好在他們說嘴幾句就沈默了

長度 :500字

圖片 :無

引用：

網路連結：

https://en.wikipedia.org/wiki/The_100:_A_Ranking_of_the_Most_Influential_Persons_in_History

2023年12月31日星期日

2024跨年GOOGLE BARD查詢最佳賞煙火地點

PROMPT提示訊息下法:

今天想要去台北101大樓跨年,請依中央氣象局氣象資訊,提供最佳賞煙火的位置,另外請提供從台北火車站至最佳賞煙火地點,搭乘大眾交通工具,要在何處下車

根據中央氣象局氣象資訊，今天（2023年12月31日）台北地區天氣為多雲時晴，氣溫介於14至20度，風向為東北東風2級，風速每秒3至5公尺。受東北季風影響，煙霧易向西飄散，因此最佳賞煙火地點應位於上風處，也就是台北101的東北東方。

以下提供幾個最佳賞煙火地點：

象山：象山位於信義區，步行至台北101約1.5公里，是觀賞101煙火的經典地點。象山上視野遼闊，可將台北101及周邊景色盡收眼底。
虎山：虎山位於信義區，步行至台北101約2公里，也是觀賞101煙火的好去處。虎山上有許多觀景台，可選擇視野最佳的台階欣賞煙火。
南港山：南港山位於南港區，步行至台北101約3公里，是觀賞101煙火的新興地點。南港山上視野極佳，可將台北盆地盡收眼底。

從台北火車站搭乘大眾交通工具至上述地點，可搭乘捷運文湖線至象山站、虎山站或南港展覽館站下車。

以下提供詳細的交通資訊：

象山站：從台北火車站搭乘捷運文湖線至象山站，約需30分鐘。
虎山站：從台北火車站搭乘捷運文湖線至虎山站，約需35分鐘。
南港展覽館站：從台北火車站搭乘捷運文湖線至南港展覽館站，約需35分鐘。

請注意，以上地點在跨年夜當天可能會非常擁擠，建議提早出門卡位

PROMPT提示訊息下法:

今天想要去台北101大樓500公尺以內處跨年,請依中央氣象局氣象資訊,提供最佳賞煙火的位置,另外請提供從台北火車站至最佳賞煙火地點,搭乘大眾交通工具,要在何處下車

根據中央氣象局氣象資訊，今天台北地區天氣晴朗，無降雨，氣溫約攝氏19度至25度，濕度約60%至80%。在這樣的天氣下，最佳賞煙火的位置是視野開闊、沒有遮蔽物的地方。

從台北火車站搭乘大眾交通工具前往台北101大樓500公尺以內處，可搭乘捷運板南線至「台北101/世貿站」下車，步行約5分鐘即可抵達。

臺北市跨年晚會交通管制請多利用大眾運輸

2024看台北101 跨年煙火絕佳的觀賞地點

敬祝大家有美好的一天😄
毎日をイキイキ過ごせますように！
Hope you have a wonderful year^_^

2023年12月30日星期六

Not enough space系統槽磁碟空間不足處理

情境:檔案總管打開時，C碟(系統槽)呈現紅色狀態，代表磁碟空間將屆滿
如C槽空間不足，想把LINE應用程式，改到C槽以外的位置作法，如整理階段三。
(一般來說，整理階段一,即可清出不少空間，除非您不滿意空間大小，再執行整理階段二)

整理階段一:
一键清理系统 (BATCH FILE批次檔),直接刪除電腦內久置未清除的暫存檔(*.tmp)
del /f /s /q
%systemdrive%\*.tmp
%systemdrive%\*._mp
"%userprofile%\Local Settings\Temporary Internet Files\*.*"
"%userprofile%\Local Settings\Temp\*.*"
%windir%\prefetch\*.*
cleanmgr /sagerun:99

整理階段二: 將C槽資料面之資料夾(如:桌面、下載之資料夾); 另外，應用程式面之資料夾，請使用整理階段三)，指向其它槽(如:D槽)。

整理階段三(重要資料建議另外備份): (建立符號連結Symbolic-links)手動搬移預設安裝在C槽之大空間應用程式，如:LINE、CHROME)，重要系統資料夾，請勿搬移(如:c:\Windows)
步驟一:關閉LINE
步驟二:把LINE資料夾 (%USERPROFILE%\AppData\Local\)，複製到別的磁碟機(如D:\LINE)
步驟三:打開DOS命令提示字元(系統管理員) 執行
步驟四: 進入LINE原始安裝路徑上，執行下面mklink指令
cd "%USERPROFILE%\AppData\Local\"
mklink /D LINE D:\LINE

註:搬移資料夾內含空白,請用""標準雙引號標示起來，即英語：quotation mark，視為1組字串值，如下:

mklink /D BigApplication "D:\Program Files (x86)\BigApplication"
步驟五: 將原本LINE執行路徑,按滑鼠右鍵|內容|修改執行路徑為 (新的路徑 )D:\LINE\bin\LineLauncher.exe

整理階段四(進階使用者): 安裝挪動磁碟分割區軟體(如:EaseUS)，此種作法建議進階使用者使用,如稍有不慎可能無法開機、資料遺失!

2023年12月29日星期五

用PYTHON程式,解析XML文件檔案資訊

XML檔,文字編輯器打開,出現一堆HTML標記<>對稱TAG資訊，如何簡單去除TAG資訊方便我們解讀?
可透過下面PYTHON程式(BeautifulSoup模組)進行解析查看

右鍵傳送至XmlParser.py 快速傳遞檔案參數，直接轉換快速作法:
步驟一: 開始| 執行 | Sendto:shell , (即 C:\Users\YourName\AppData\Roaming\Microsoft\Windows\SendTo )
步驟二: 將下面程式另字成 XmlParser.py(右鍵傳送到桌面當成捷徑,產生lnk檔) ,並將該lnk檔案複製到上面SendTo資料夾內
步驟三: 點選您欲轉換之XML檔案，並按右鍵，指定給 XmlParser,即可快速執行XML格式檔案檢視

import sys
from bs4 import BeautifulSoup

def remove_html_tags(html):
    soup = BeautifulSoup(html, 'html.parser')
    text = soup.get_text(separator='\n', strip=True)
    return text

def process_xml_file(file_path):
    with open(file_path, 'r', encoding='utf-8') as file:
        xml_data = file.read()
        # 假設 XML 内容位於 BODY 標記中，則可將其提取出来
        start_index = xml_data.find("<BODY>") + len("<BODY>")
        end_index = xml_data.find("</BODY>")
        xml_body = xml_data[start_index:end_index].strip()

        # 移除 HTML 標記,並整理為可讀性文本
        text_content = remove_html_tags(xml_body)

        # 產出結果至螢幕
        print(text_content)

       #將畫面將時暫停,方便複製下來,貼到EXCEL去分析,並按任意鍵後離開
        input("Press any key to continue!")

if __name__ == "__main__":
    if len(sys.argv) != 2:
        print("Usage: python XmlParser.py <xml_file_path>")
        sys.exit(1)

    xml_file_path = sys.argv[1]
    process_xml_file(xml_file_path)

XML格式開放資料集查詢:

展覽資訊、電影資訊、演唱會資訊

No-Break Space 不換行空格之處理 ChrW(160)

情境:
因原自網頁來源資料,內含NBSP不換行空格(即   ) ,故藉由 PYTHON程式去除空白特殊字元，
才不會看起來一樣,但對電腦(如:EXCEL之vlookup比對函數)來說，後面多個空白字元,就是2個不同的字串值。

import os
import sys

def replace_string_in_file(file_path):
    # 讀取欲去處理之原始檔案內容
    with open(file_path, 'r', encoding='utf-8') as file:
        content = file.read()

    # 替換NBSP特殊字元
    replaced_content = content.replace(' ', '')

    # 取得原檔案的檔名和副檔名
    file_name, file_extension = os.path.splitext(file_path)

    # 產生新檔案名稱( 原檔名_1 )
    new_file_name = file_name + '_1' + file_extension

    # 寫入去除空白字元後的內容，到新檔案
    with open(new_file_name, 'w', encoding='utf-8') as new_file:
        new_file.write(replaced_content)

    print(f"已完成去除空白字元,並產製新檔：{new_file_name}")

if __name__ == "__main__":
    if len(sys.argv) != 2:
        print("Usage: python RemoveNSPF.py <Original_file_path>")
        sys.exit(1)

    nspf_file_path = sys.argv[1]
    replace_string_in_file(nspf_file_path)

相關查詢:

No-Break Space 不換行空格 ChrW(160)

如何檢視空白CRLF換行等特殊字元神器? 可透過Notepad++文字編輯器，查看檢視(V) | 特殊字元 | 顯示所有字元

空白字元導致vlookup查詢函數失敗,因此需將NBSP特殊字元予以去除

IDSP ,Ideographic Space (0x3000)

用PYTHON程式,進行2個EXCEL表,欄位比較

比較2個EXCEL表格，檢視上月及本月之差異，為加快人工檢視處理，分別各捉取前7筆資料,並對欄位進行比較處理之VBA程式;
同時亦將完整月份(上月/本月)資料載入不同頁籤

Sub CompareExcelFiles()
Application.DisplayAlerts = False
'控制 Excel 應用程式是否顯示警告訊息。
    Dim wb1 As Workbook, wb2 As Workbook, wb3 As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Dim i As Integer, j As Integer
    Dim fd As FileDialog
    Dim strFilepPre As String
    Dim strFileCur As String


    ' '開啟檔案GUI對話窗格，選取上月EXCEL檔，將路徑傳給strFilePre，供開啟比對用

     Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Title = "Select a XLS (上月)"
        .Filters.Clear
        .Filters.Add "Excel Files", "*.xls*", 1
        .InitialFileName = "C:\Users\Downloads"
        .AllowMultiSelect = False
        If .Show = True Then
            strFilePre = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With


    Set wb1 = Workbooks.Open(strFilepre)
    Set ws1 = wb1.Worksheets(1)


    '開啟檔案GUI對話窗格，選取本月EXCEL檔，，將路徑傳給strFileCur，供開啟比對用
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Title = "Select a XLS (本月)"
        .Filters.Clear
        .Filters.Add "Excel Files", "*.xls*", 1
        .InitialFileName = "C:\Users\Downloads"
        .AllowMultiSelect = False
        If .Show = True Then
            strFileCur = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With


    ' 開啟本月.xls ,路徑請自行修改
    Set wb2 = Workbooks.Open(strFileCur)
    Set ws2 = wb2.Worksheets(1)

    ' 建立檢核結果.xls
    Set wb3 = Workbooks.Add
    Set ws3 = wb3.Worksheets(1)

    ' 將上月.xls複製到「檢核結果.xls」的"上月"工作表
    On Error Resume Next
    Set ws1Copy = wb3.Worksheets("上月")
    If ws1Copy Is Nothing Then
        Set ws1Copy = wb3.Worksheets.Add(Before:=wb3.Worksheets(1))
        ws1Copy.Name = "上月"
    End If
    ws1.UsedRange.Copy ws1Copy.Range("A1")

    ' 將本月.xls複製到「檢核結果.xls」的"本月"工作表
    On Error Resume Next
    Set ws2Copy = wb3.Worksheets("本月")
    If ws2Copy Is Nothing Then
        Set ws2Copy = wb3.Worksheets.Add(Before:=wb3.Worksheets(1))
        ws2Copy.Name = "本月"
    End If
    ws2.UsedRange.Copy ws2Copy.Range("A1")

    ' 比較標題欄並將結果寫入「檢核結果.xls」的第1列
    For i = 1 To ws1.UsedRange.Columns.Count
        If ws1.Cells(1, i).Value = ws2.Cells(1, i).Value Then
            ws3.Cells(1, i).Value = "相同"
        Else
            ws3.Cells(1, i).Value = "不同"
        End If
    Next i

    ' 保存檢核結果.xls
    wb3.SaveAs "檢核結果.xls"

    ' 開啟檢核結果.xls
    Set wb3 = Workbooks.Open("檢核結果.xls")
    Set ws3 = wb3.Worksheets("工作表1")

    Windows("檢核結果.xls").Activate
    ws3.Cells.Select
    Selection.ClearContents
    Windows("活頁簿1.xlsm").Activate


    ' 將上月.xls前6筆(含標題列)複製到檢核結果.xls
    ws3.Cells(2, ws3.UsedRange.Columns.Count + 2) = "上月檢核ˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇ"
    ws1.Range("A1").Resize(5, ws1.UsedRange.Columns.Count).Copy ws3.Cells(3, ws3.UsedRange.Columns.Count + 2)
    ' 將本月.xls前6筆(含標題列)複製到檢核結果.
    ws3.Cells(ws3.UsedRange.Columns.Count + 5, 5) = "本月檢核ˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇ"
    ws2.Range("A1").Resize(7, ws2.UsedRange.Columns.Count).Copy ws3.Cells(ws3.UsedRange.Columns.Count + 6, 5)

    ' 關閉工作簿
    wb1.Close SaveChanges:=False
    wb2.Close SaveChanges:=False
' wb3.Close SaveChanges:=True


    ' 釋放物件
    Set ws1 = Nothing
    Set ws2 = Nothing
    Set ws3 = Nothing
    Set wb1 = Nothing
    Set wb2 = Nothing
' Set wb3 = Nothing


    Windows("檢核結果.xls").Activate
    Sheets("工作表1").Select


Application.DisplayAlerts = True
'控制 Excel 應用程式是否顯示警告訊息。

End Sub

相關查詢:
INQUIREというアドインを使用して、2つのファイルを比較して違いを表示する (經由 Inquire增益集比對2個EXCEL)

スプレッドシート比較の基本的な作業 (Compare two or more worksheets at the same time)

複数のワークシートを同時に比較する

訂閱：文章 (Atom)

2024年1月18日 星期四

2024年1月14日 星期日