使用 VBScript 或 Javascript 从文本框（文本区域）中删除最后 Empty/Blank 行

Question

好的，在 Sigfried 的帮助下我完成了最后一个问题。现在我已经实施了他的建议，我已经将信息解析到一个文本区域文本框中，当我这样做时，底部有一行 empty/blank。由于我将获取此数据并将其插入数据库，因此不能插入空值，因此我需要删除最后一个空行。我在 VB ASP 中这样做，所以我愿意在 VBScript 或 Javascript.

中征求建议

这是使用 VB脚本从数据库中提取信息 table 并重复每个 table 行的实际代码：

<textarea name="output2" cols="50" rows="5" id="output2">
<% While ((Repeat1__numRows <> 0) AND (NOT ReadCC.EOF)) %>
<%=(ReadCC.Fields.Item("NUMBER").Value + vbCr) %>
<% Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  ReadCC.MoveNext()
  Wend %>
</textarea>

当页面上出现这种情况时，这就是源代码中显示的内容：

<td style="color:#000000;">
 <div align="center">
  <textarea name="output2" cols="50" rows="5" id="output2">1234657812345678
8765432187654321
  </textarea>
 </div></td>

虽然上面的代码很难分辨，但在 654321 之后有一个空行，这是因为重复区域在每行之后放置了一个 vbCr。

我考虑过执行 Replace() 或 Regex.Replace() 但是当我尝试将它们放入时，我最终遇到了服务器错误。如果我的声誉达到 10，我将对其进行编辑并放入文本框的屏幕截图。

Answer 1

写vbCR如果你最后没有记录：

<textarea name="output2" cols="50" rows="5" id="output2">
<% While ((Repeat1__numRows <> 0) AND (NOT ReadCC.EOF)) %>
<%=(ReadCC.Fields.Item("NUMBER").Value) %>
<% Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  ReadCC.MoveNext()
  if not ReadCC.eof then response.write vbCR
  Wend %>
</textarea>

使用 VBScript 或 Javascript 从文本框（文本区域）中删除最后 Empty/Blank 行

Removing Last Empty/Blank Line from Textbox (textarea) with VBScript or Javascript

javascript

vbscript

textarea

lines