使用VBScript或Javascript从文本框(文本区域）中删除最后一行空/空行

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

本文关键字：文本 最后 一行 空行 删除 VBScript 使用 区域 Javascript      更新时间：2023-09-26

好的，在Sigfried的帮助下，我完成了最后一个问题。现在我已经实现了他的建议，我已经将信息解析到一个文本区域文本框中，当我这样做时，底部有一行是空的/空白的。由于我将获取这些数据并将其插入数据库，因此不能插入null值，因此我需要删除最后一行空行。我在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>

虽然用上面的代码很难判断，但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>
相关文章：