Question

我有一个文本区域，它将有多行文本，我需要输出以保留所有格式，因为它输入到文本区域。如何才能做到这一点？以下是我创建文本区域的方法：

<table border="0" cellpadding="5" cellspacing="5" width="95%">              
<tr>
<td colspan="2">
<b>Status: </b> 
<textarea name="Text2" id="styled"></textarea>
</td>
</tr>
</table>

Answer 1

无法按照您的要求维护<textarea>中的文字格式。

如果文本中存在某些行，则可以实现维护新行（基本上是文本被包装）。你必须使用＆＃34; wrap=Hard＆＃34;。

https://www.w3schools.com/tags/att_textarea_wrap.asp

另请参阅stackoverflow答案，其中有关于保留<textarea>

中文本格式的更多解释（也请查看注释）

HTML : How to retain formatting in textarea?

how to preserve formatting of html textarea

Answer 2

我能够通过将文本区域导出到文本文件，附加数据然后将其导入使用来弄清楚如何操作 fso.OpenTextFile（“C：\ file.txt”，ForReading）.ReadAll并使用它格式化（html body pre）这样做，我能够保持我的换行符然后我使用CDO.Message发送信息。

Const FOR_APPENDING = 8 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTSO = objFSO.OpenTextFile("C:File.txt", FOR_APPENDING)   
objTSO.WriteLine strDT & ":" & vbCrLf & Text2.value & vbCrLf
objTSO.Close()



Sub SendEmail(strSubject, strBody, strBody8, strFrom)

Const ForReading = 1
Dim fso, BodyText
Set fso = CreateObject("Scripting.FileSystemObject")

strMailbox = "Address<Email@email.com>"                                     
' E-Mail address being sent to
strSMTPServer = "SMTP Server"                                           
' Primary SMTP relay server name    
strSMTPPort = 25                                                            
' SMTP Port Number

Set objEmail = CreateObject( "CDO.Message" )
BodyText = fso.OpenTextFile("C:\file.txt",ForReading).ReadAll
With objEmail
.From     = strFrom
.To       = strMailbox
.Subject  = strSubject
.HTMLBody = "<html><body><pre>" & strBody & "<BR>" & BodyText & "<BR>" & 
 strBody8 & "</pre></body></html>"

With .Configuration.Fields
.Item( "http://schemas.microsoft.com/cdo/configuration/sendusing"      ) = 2
.Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver"     ) = 
strSMTPServer
.Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 
strSMTPPort
.Update
End With
.Send                                               ' Send the message!
End With
Set objEmail = Nothing

我有一个文本区域，将有多行文本

2 个答案: