広告
広告
メモ型 → 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
広告