伊莉討論區

標題: 關於換行的一些問題 [打印本頁]
作者: z9592447    時間: 2015-5-6 08:45 PM     標題: 關於換行的一些問題

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

請問一下為什麼最下面的程式碼寫入成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

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

  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    時間: 2015-5-8 11:16 PM

首先先將 TextBox 的 TextMode 屬性設為 Multiline 模式，讀入後他就會自動換行折行了
作者: Jeepluo    時間: 2015-5-9 07:51 AM

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



歡迎光臨 伊莉討論區 (http://a401.file-static.com/) Powered by Discuz!