Home/ Questions/Q 8965437
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-06-15T16:48:09+00:00

When I load with the current script some csv file. Textarea not present the

  • 0

When I load with the current script some csv file. Textarea not present the right format like in csv format:

1.csv:

text1
text2

Now 1.csv output:

text1 text2

Expected 1.csv output:

text1
text2

Actually textarea is not able to create newlines for some unknown reason for me.

The script:

 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
 <hta:application
     applicationname="MyHTA"    
     border="thick"
     borderstyle="normal"
     caption="My HTML Application"
     contextmenu="no"
     icon="myicon.ico"
     maximizebutton="no"
     minimizebutton="yes"
     navigable="no"
     scroll="yes"
     selection="no"
     showintaskbar="yes"
     singleinstance="yes"
     sysmenu="yes"
     version="1.0"
     windowstate="normal"
 >
 <script language="vbscript">  

Sub RunCommonDialog  
  Set objDialog = CreateObject("UserAccounts.CommonDialog")  
  objDialog.Filter = "CSV Files (*.csv)|*.csv|All Files|*.*" 
  objDialog.InitialDir = "C:\Documents and Settings\All Users\Desktop" 
  intResult = objDialog.ShowOpen  
  If intResult = 0 Then  
    Exit Sub  
  Else  
    CommonDialog.value = objDialog.FileName  
    CommonDialog_Span.innerHTML = objDialog.FileName  
    Const ForReading = 1
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile(objDialog.FileName, ForReading)
    contents = objTextFile.ReadAll
    objTextFile.Close
    Set objFSO = Nothing
    Set objReadFile = Nothing
    PRE.innerHTML = contents
  End If  
End Sub  
 Sub reloadHTA()
 location.reload True
End Sub

</script>
<body> 
<input type="hidden" id="CommonDialog"><input type="button" onclick="RunCommonDialog" value="Browse..."><input class = "StdBtt Meta" type = "BUTTON" value = "Reset" onclick = "reloadHTA"><br>
<p>File: <span id="CommonDialog_Span"></span></p>
<textarea rows="4" cols="88" name="PRE" readonly="readonly">
</textarea> 
</body>
Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    If you use a .hta that concentrates on your problem – e.g.

    <html>
 <head>
  <hta:application id="t"></hta>
  <title>t</title>
  <script language="vbscript">
   Sub ol()
     MsgBox "ol"
     a = Array("line1", "line2")
     document.all.ta1.value = Join(a, vbCrLf)
     document.all.ta2.innerHTML = Join(a, vbCrLf)
   End Sub
  </script>
 </head>
 <body onload="ol">
  <textarea id="ta1" rows="4" cols="88"></textarea>
  <textarea id="ta2" rows="4" cols="88"></textarea>
 </body>
</html>

    you’ll see at a glance that your problem is caused by using .innerHTML instead of .value.

    (BTW: You should use a validator (tidy, …) on your .html)

    Update:

    Evidence:

    Evidence

    • 0