使用VBScript或Javascript从文本框（textarea）中删除最后一个空行/空行

好的，在西格弗里德的帮助下，我完成了最后一个问题。现在我已经实现了他的建议，我已经将信息解析到一个textarea文本框中，当我这样做时，底部有一行是空的/空白的。由于我将获取此数据并将其插入数据库，因此不能插入空值，因此我需要删除最后一行空行。我在VBASP中做这件事，所以我愿意接受VBScript或Javascript中的建议

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

<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>

1234657812345678
8765432187654321

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

---

我曾想过做一个Replace（）或Regex.Replace（），但当我试图把它们放进去时，结果是服务器出错。如果我达到声誉10，我将编辑此内容并放入文本框的屏幕截图。

如果您不是最后一个记录，请编写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>

您可以删除

Wend%>

和

之间的硬编码行。谢谢，我实际上在这个问题中加入了这一点，这样格式就更清晰了。在我的代码中，%>和之间没有一行。您可以在movenext（）之后和Wend之前的条件（而不是eof）中“回显”vbCr，或者在插入vbCr时在sql中对其进行修剪（）。一般来说，DB应该负责这种内务管理，而不是客户。你能给我举一个“echo”vbCr的例子吗？我可以反复尝试，直到我得到它，但用一个例子会更容易。谢谢，我相信我按你说的做了，但我想我放错地方了。我将Response.Write（vbCr）放在ReadCC.MoveNext（）的正上方。它仍然成功地将每组数字放在新行上，但仍然在末尾创建了一个空行。我开始检查SQL是否在意，但现在看来不是这样。我将在这里发布一个新问题，看看如何插入数据。这很有效！实际上，我在ReadCC.MoveNext（）之前输入If（而不是ReadCC.EOF），然后输入Response.Write（vbCR）。谢谢阿里和丹达维斯为这条路。