- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]字符 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102129)
-- 发布时间：2017/6/13 17:57:00
-- [求助]字符
老师，在导入时我想把字符后面的空格和标点符号进行删除。
-- 发布时间：2017/6/13 19:00:00
--
1、你可以修改导入的代码
2、你可以在导入后进行删除
参考
http://www.foxtable.com/webhelp/scr/0231.htm
-- 发布时间：2017/6/13 19:45:00
--
老师，下面是导入数据的代码。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建 文本文档.txt |
-- 发布时间：2017/6/13 20:35:00
--
事件第一行加上三个单引号
\'\'\'
代码有2个赋值的地方改改
ndr(dr(i)) = Data(i).Trim(" ","，","。","；") \'这里自己加上其它区域去掉的标点符号
-- 发布时间：2017/6/13 21:34:00
--
老师，是下面的代码吗？
Dim hl As WinForm.RadioButton = e.Form.Controls("添加")
If hl.Checked = True Then
Dim ndr As DataRow = dt.AddNew
For i As Integer = 0 To dr.Count - 1
ndr(dr(i)) = Data(i)
ndr(dr(i)) = Data(i).Trim(" ",",",".",";")
Next
End If
-- 发布时间：2017/6/13 21:42:00
--
是的，有2个地方
ndr(dr(i)) = Data(i)这个去掉，重复了
-- 发布时间：2017/6/13 21:50:00
--
老师，去不掉啊
-- 发布时间：2017/6/13 22:08:00
--
Dim hl As WinForm.RadioButton = e.Form.Controls("添加")
If hl.Checked = True Then
Dim ndr As DataRow = dt.AddNew
For i As Integer = 0 To dr.Count - 1
ndr(dr(i)) = Data(i).Trim(" ",",",".",";")
Next
End If
-- 发布时间：2017/6/13 22:17:00
--
不行，去不掉。
-- 发布时间：2017/6/13 22:38:00
--
上传实例测试