以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]读取文本文件时，写字本里是多行，读取到文本框后变成一行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185932)
--  作者：2425004926
--  发布时间：2023/3/26 13:21:00
--  [求助]读取文本文件时，写字本里是多行，读取到文本框后变成一行
 
 读取文本文件时，写字本里是多行，读取到文本框后变成一行？老师指点一下

If e.Node.Nodes.Count = 0 Then \'如果目录树节点无子节点

    Dim bm As String = e.Node.FullName \'节点路径

    Dim f As String = ProjectPath & "Attachments\\data\\E\\" & bm \'文件路径

    If FileSys.FileExists(f) Then \'文件存在时

        Dim ifo As New FileInfo(ProjectPath & "Attachments\\data\\E\\" & bm) \'文件信息类

        If ifo.Extension = ".js" OrElse ifo.Extension = ".json" OrElse ifo.Extension = ".wxml" OrElse ifo.Extension = ".js" Then

            Dim s As String = FileSys.ReadAllText(ProjectPath & "Attachments\\data\\E\\" & bm)

            e.Form.Controls("TextBox2").Text = s

        End If

    End If

End If
--  作者：2425004926
--  发布时间：2023/3/26 19:51:00
--  
已解决

s = s.Replace(vblf, vbcrlf) \'换行变为换行回车，换行(vblf)、回车(vbcr)、换行回车（vbcrlf）
e.Form.Controls("TextBox2").Text = s
--  作者：yuchunlnog
--  发布时间：2023/3/28 1:54:00
--  
感谢感谢。。