小编New*_*ing的帖子

我对ASP完全陌生，因此不胜感激。我有一个html页面，该页面具有供用户保留其详细信息的表单，当他们提交表单时，它会转到一个文本文件中，但是我想要的是一旦他们提交了它，我想发出一个警告，说“评论已保存”并保留在原始页面上显示，这样他们可以选择提交其他页面，但是在用户提交时转到空白页面。我的表格是

<form method="post" action="comments.asp">
<br><br>
Age <input type="text" name="age" />
Name<textarea rows="1" cols="70" <input type="text" name="name" /></textarea> 
<input type="submit" value="Send Comment">
</form>

我的comments.asp文件代码是

<form method="post" action="comments.asp">
<br><br>
Age <input type="text" name="age" />
Name<textarea rows="1" cols="70" <input type="text" name="name" /></textarea> 
<input type="submit" value="Send Comment">
</form>

我正在使用RStudio 2.15.0并使用XLConnect从3000多行和12列创建了一个Excel对象我试图将列分隔/拆分成行,但不知道这是否可行或如何操作.使用3列连接的下面数据示例.任何有关这方面的帮助都会很棒.

适用于其中两列的代码如下.

v1 <- with(df, tapply(PolId, Description,  FUN= function(x) {
x1 <- paste(x, collapse=";")
gsub('(\\b\\S+\\b)(?=.*\\b\\1\\b.*);', '',     x1, perl=TRUE)}))
library(stringr)
Description <- rep(names(v1),  str_count(v1, '\\w+'))
PolId <- scan(text=gsub(';+', ' ', v1), what='', quiet=TRUE)
data.frame(PolId, Description)  

样本数据

PolId   Description  Document.Type
ABC123;ABC456;ABC789;   TEST1  Pol1
ABC123;ABC456;ABC789;   TEST1  Pol1
ABC123;ABC456;ABC789;   TEST1  Pol1
AAA123; TEST1  End1
AAA123; TEST2  End2
ABB123;ABC123;  TEST3  End1
ABB123;ABC123;  TEST3  End1

我希望输出像这样(替换重复的Polid)

PolId   Description  Document.Type
ABC123  TEST1        Pol1
ABC456  TEST1        Pol1
ABC789  TEST1        Pol1
AAA123  TEST1        End1
AAA123  TEST2        End2
ABB123 …

我正在使用 Excels 2013 中期和搜索功能从评论栏中获取日期，但我不知道如何执行此操作以涵盖 8 种日期格式（dd/mm/yyyy、dd/mm/yy 等）。我的三个公式在下面，尽管我需要将它们全部连接在一起以捕获所有日期格式。注释列可以是任何文本，其中的任何位置都带有日期。

=MID(A6, SEARCH("??/??/????", A6, 1), 10)
=MID(A7, SEARCH("?/??/????", A7, 1), 9)
=MID(A8, SEARCH("??/?/????", A8, 1), 9)

必须有更好的方法来做到这一点，因为我能想到的唯一方法是将每个公式放在单独的列上，然后使用 if 语句来显示日期。任何帮助将不胜感激。谢谢

示例列数据

Paid on 01/01/2017
Paid on 1/01/2017, Reference AAA123
Reference BBB456 Paid on  01/1/2017