1、没必要提取填充吧?判断密码直接用 like、contains 查询即可,如
Dim dr As DataRow
dr = DataTables("表A").Find("第一列 = '" & UserName & "'")
If dr IsNot Nothing AndAlso dr("config").contains(MD5Encrypt(password)) Then
Verified = True
End If
2、如果确实要提取,参考
dim group = "123"
Dim password = "123"
Dim role = "123"
Dim str = "Group" & chr(11) & group & chr(11) & "PassWord" & chr(11) & MD5Encrypt(password) & chr(11) & "Type" & chr(11) & "2" & chr(11) & "Role" & chr(11) & role
msgbox(str)
Dim ary() As String = str.split(chr(11))
msgbox(ary(3))