改行コード置換関数

広告

広告

解説

メモ型 → String の時などに使えるような使えないような。

引数・戻値

第一引数改行含テキスト
戻り値フォーマット済みテキスト

ソース

Public Function RepBR(strTx As String) As String
    Dim intPos As Integer
    Dim strTm As String
    
    RepBR = ""
    
    For intPos = 1 To Len(strTx)
        strTm = Mid(strTx, intPos, 1)
        
        If strTm = Chr(10) Then
            RepBR = RepBR & " "
        Else
            RepBR = RepBR & strTm
        End If
        
    Next intPos
End Function

広告

Copyright (C) 2003-2006 七鍵 key@do.ai 初版:2003年07月07日 最終更新:2006年08月08日