關於換行的一些問題

z9592447

請問一下為什麼最下面的程式碼寫入成txt無法換行
但如果我加入

1. TextBox1.text = strData
   
2. .WriteText = TextBox1.text

複製代碼

在寫入就能換行

1. Public Function T_S_Cvt(strData, Optional bytOption As Byte = 1) As String
   
2. With CreateObject("Word.Document")
   
3. .Content = strData
   
4. .Range.TCSCConverter bytOption, True, True
   
5. T_S_Cvt = .Content
   
6. .Close False
   
7. End With
   
8. End Function
   
9. 
   
10. Private Sub Command2_Click()
    
11. Dim objStream As Object
    
12. Dim strData As String
    
13. Set objStream = CreateObject("ADODB.Stream")
    
14. 
    
15. With objStream
    
16.         .Type = 2
    
17.         .Mode = 3
    
18.         .Open
    
19.         .Charset = "UTF-8" ' 或其他編碼
    
20.         .LoadFromFile "D:\1.TXT"
    
21.          strData = T_S_Cvt(.ReadText)
    
22.          .Close
    
23.          .Open
    
24.         .WriteText = strData
    
25.         .SaveToFile "D:\2.txt"
    
26.         .Close
    
27. End With
    
28. End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

Jeepluo

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

Jeepluo

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