查看完整版本: 關於換行的一些問題

論壇 › Visual Basic 語言 › 關於換行的一些問題

z9592447 發表於 2015-5-6 08:45 PM

關於換行的一些問題

本帖最後由 z9592447 於 2015-5-6 08:55 PM 編輯

請問一下為什麼最下面的程式碼寫入成txt無法換行
但如果我加入
TextBox1.text = strData
.WriteText = TextBox1.text在寫入就能換行
Public Function T_S_Cvt(strData, Optional bytOption As Byte = 1) As String
With CreateObject("Word.Document")
.Content = strData
.Range.TCSCConverter bytOption, True, True
T_S_Cvt = .Content
.Close False
End With
End Function

Private Sub Command2_Click()
Dim objStream As Object
Dim strData As String
Set objStream = CreateObject("ADODB.Stream")

With objStream
        .Type = 2
        .Mode = 3
        .Open
        .Charset = "UTF-8" ' 或其他編碼
        .LoadFromFile "D:\1.TXT"
         strData = T_S_Cvt(.ReadText)
         .Close
         .Open
        .WriteText = strData
        .SaveToFile "D:\2.txt"
        .Close
End With
End Sub
...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>

Jeepluo 發表於 2015-5-8 11:16 PM

首先先將 TextBox 的 TextMode 屬性設為 Multiline 模式，讀入後他就會自動換行折行了

Jeepluo 發表於 2015-5-9 07:51 AM

元件都有自己的功能屬性、功能及限制，如果你一味的要求他要達到你的需求的話，而不管他的限制及要求，那只好自己開發自己專有的元件套件了。