So-net無料ブログ作成

LibreOffice Writer 上書きモード、挿入モードの切り替え [LibreOffice Writer]

LibreOffice Writer   上書きモード、挿入モードの切り替え

INS(インサート)キーを押す

挿入モードで編集すると、レイアウトが崩れたりする事もあるので上書きモードを使用する?

LibreOffice Writer_INS.png 

 

 


LibreOffice Calc Basic FileDateTimeで更新日時を調べる その2 [LibreOffice Calc Basic]

LibreOffice Calc Basic FileDateTimeで更新日時を調べる その2

OS LinuxMint18 cinnamon 64bit
LibreOffice 5.2

ファイルサイズを追加

書式 FileLen(URL)    
   Format(Number,"#,##0")--千単位で区切り

LibreOffice 5.2.5.1_095.png

 

 

Sub hikakuDateTime()
'file の更新日時の比較 (NAS PC)
Dim fileName,file1URL,file2URL As String
Dim file1DateTime,file2DateTime As String
Dim file1Len,file2Len  As long

    fileName="So-netBlog統合管理.ods"
    file1URL="smb://192.168.0.1/toshiba-1/Calc/" & fileName    'NAS
    file2URL="/home/telstar/ドキュメント/LibreOffice/Calc/" & fileName    'PC
   
    'FileDateTimeを調べる
        file1DateTime=FileDateTime(file1URL)
        file2DateTime=FileDateTime(file2URL)
    'Fileサイズを調べる
        file1Len=FileLen(file1URL)
        file2Len=FileLen(file2URL)
   
    'メッセージボックスに表示
        msgbox  fileName & chr(10) & "NAS--- " & file1DateTime & "  size "  & format(file1Len,"#,##0") _
        & " byte" & chr(10) & "P  C---  " & file2DateTime  & "  size "  & format(file1Len,"#,##0")  & " byte"
   

End Sub

 

 


LibreOffice Calc Basic FileDateTimeで更新日時を調べる [LibreOffice Calc Basic]

LibreOffice Calc Basic FileDateTimeで更新日時を調べる。

OS LinuxMint18 cinnamon 64bit
LibreOffice 5.2

NAS上のファイルとPC上のファイルの更新日時調べる(更新日時は保存した日時?)。
※ 更新日時が新しくても内容が新しいとは限らない。

LibreOffice 5.2.5.1_094.png

FileDateTime(URL)

 

Sub hikakuDateTime()
'file の更新日時の比較 (NAS PC)
Dim fileName,file1URL,file2URL As String

    fileName="So-netBlog統合管理.ods"
    file1URL="smb://192.168.0.1/toshiba-1/Calc/" & fileName    'NAS
    file2URL="/home/telstar/ドキュメント/LibreOffice/Calc/" & fileName    'PC
   
    'FileDateTimeを調べる
        file1DateTime=FileDateTime(file1URL)
        file2DateTime=FileDateTime(file2URL)
   
    'メッセージボックスに表示
        msgbox  fileName & chr(10) & "NAS--- " & file1DateTime & chr(10) & "PC---  " & file2DateTime

End Sub