Question

好的，在Sigfried的帮助下，我完成了上一个问题。现在我已经实现了他的建议，我已经将信息解析为textarea文本框，当我这样做时，底部有一条空/空白的行。由于我将获取此数据并将其插入数据库，因此无法插入空值，因此我需要删除最后一个空行。我在VB ASP中这样做，所以我愿意接受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，我将编辑它并放入文本框的屏幕截图。

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从文本框（textarea）中删除上一个空/空行

1 个答案: