vba sleep,read and write text file utf8

最新推荐文章于 2024-08-17 10:45:00 发布

安達と島村

最新推荐文章于 2024-08-17 10:45:00 发布

阅读量239

点赞数

CC 4.0 BY-SA版权

分类专栏： linux vba excel 文章标签： excel

本文链接：https://blog.csdn.net/weixin_43292547/article/details/134946410

vba 同时被 3 个专栏收录

28 篇文章

订阅专栏

excel

28 篇文章

订阅专栏

linux

8 篇文章

订阅专栏

本文介绍了如何使用VBA中的SLEEPfunction和SubSleepLib，以及创建两个函数replace_str_file和replace_str_file_sjis来处理UTF-8编码的文本文件，包括删除BOM、替换字符串和处理LF/CRLF换行符。还讨论了在Linux中所需的文件格式和SakuraEditor设置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

SLEEP function

 Option Explicit
 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub sleepp(Optional time_tmp As Long = 1000)
    Sleep time_tmp ' Pause for 1 second (1000 milliseconds)
End Sub

[Open path1 For Input As #1] can only write save file in sjis

CreateObject(“ADODB.Stream”) can save file in sjis/utf8/utf8bom

logic of function replace_str_file:

open file in utf8
set position 0,read content to buffer
reopen the file, otherwise u cannot write
edit content,then write the file,contents of the file will all delete before writing
if the file has bom, remove the comment from ここから to ここまで ,it will remove bom

'sjis or utf8
Function replace_str_file(ByVal path1, ByVal find As String, ByVal replace_str As String)
    Dim buffer As String, stream_tmp
    Set stream_tmp = CreateObject("ADODB.Stream")
    With stream_tmp
     
         ' ストリームの文字コードをUTF8に設定する
         .Charset = "UTF-8"
         ' ファイルのタイプ(1:バイナリ 2:テキスト)
         .Type = 2
         ' ストリームを開く
         .Open
         ' ストリームにファイルを読み込む
         .LoadFromFile (path1)
         
         .Position = 0
         ' ファイルの中身をbufferへ代入
         buffer = .ReadText
         ' ストリームを閉じる
         .Close
        .Open
        buffer = replace(buffer, find, replace_str)
        ' ストリームの保存形式をテキスト形式にする
        .WriteText buffer
        
                ' ---------- ここから ----------
    
            ' タイプをバイナリにして、先頭の3バイトをスキップ
            .Position = 0
            .Type = 1 ' タイプ変更するにはPosition = 0である必要がある
            .Position = 3
            ' 一時格納用
            Dim p_byteData() As Byte
            p_byteData = .Read
            .Close ' 一旦閉じて
            .Open ' 再度開いて
            .Write p_byteData ' ストリームに書き込む
    
            ' ---------- ここまで を追加 ----------
            
        ' ストリームに名前を付けて保存する(1は新規作成 2は上書き保存)
        .SaveToFile (path1), 2
         
         .Close
     End With
     Set stream_tmp = Nothing
End Function
'sjis
Function replace_str_file_sjis(ByVal path1, ByVal find As String, ByVal replace_str As String)
    Dim text, text_line As String
    Open path1 For Input As #1
    Do While Not EOF(1)
        Line Input #1, text_line
        If text = "" Then
            text = text_line
        Else
            text = text & vbLf & text_line
        End If
    Loop
    Close #1
    text = replace(text, find, replace_str)
    text = replace(text, ChrW(&HFEFF), "")
    Open path1 For Output As #1
    Print #1, text
    Close #1
End Function