系统通过上传的TXT文件抓取简历的信息,其中应聘者名字可以从txt文档中抓取,并且对话框显示是对的,但dr("应聘者") = xm 这个却无法填入对于的表格中,其它列没有问题,请问是什么问题?
Dim txt As String = e.Form.Controls("应聘渠道").Value
If txt > "" Then
Dim xm As String
Dim dr As Row = Tables("H_JobNeed.H_JRMList").addnew
Dim dlg As New OpenFileDialog
dlg.Filter= "文本文件|*.txt|网页文件|*.html" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Select Case txt
Case "智通招聘"
Dim strs As String = FileSys.ReadAllText(dlg.FileName, encoding.default)
Dim rs() As String = strs.Split(vbcr)
For i As Integer = 0 To rs.Length - 1
If rs(i).Contains("( 编号") Then
xm = rs(i).Split("(")(0)
End If
Next
Dim mc = System.Text.RegularExpressions.Regex.Matches(strs,"(?is)(?<=联系方式).*?(?=[(])")
If mc.count >= 1 Then
Dim t As String = mc(0).value
Dim l As Integer = mc(0).value.length
dr("联系电话") = t.SubString(2,l-2)
End If
End Select
End If
MessageBox.Show(xm)
dr("姓名") = xm
dr("应聘者") = xm
dr("进度状态") = "简历上传"
dr("应聘渠道") = txt
dr("更新日期") = Date.Today
End If
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:qq截图20190513092105.jpg
[此贴子已经被作者于2019/5/13 9:22:48编辑过]