在网上找了些powerBI数据样本来检测vb.net的数据清洗能力。
医院等级 | 科室 | 产品型号 | 设备系列号 | 是否工作站 | 数量 |
三甲 | 心内科 | INFSP7 | 13400289 | 否 | 30 |
三甲 | 急诊科 | INFSP7 | 13600819 | 否 | 20 |
三甲 | 心外科 | INFSP7 | 13800899 | 否 | 10 |
D | ICU | VP7 | 15201944 15202005 | 否 | 2 |
B | ICU | VP7 | 14402884 11801071 15201952 15201980 15201936 | 否 | 5 |
B | ICU | VP7 | 12800086 15060039 15201945 | 否 | 3 |
D | ICU | SP7 | 13000879 13800250 13800221 13800238 13000693 | 否 | 5 |
B | 普外科 | SP7 | 12002244 12002302 12002214 12002206 12002358 13800753 | 否 | 6 |
A | 心外科 | SP7 | 13800213 13800214 13800218 13800162 13800178 13800164 | 否 | 6 |
B | 神经外科 | sp7 | 14002605.14002615.14002631.14002648.14002626.14002602 | 否 | 6 |
A | icu | sp7 | 14002610.14002650.14002635.14002654.14002598.14002622.14002616.14002660.14002601 | 否 | 9 |
B | 儿科icu | sp7 | 13401218/13401022/13401172/13401014/13600961/13600969/13600963/13401159/13401199/13401214/13401206/13401226/13401201/12002331 | 否 | 20 |
第1步,先试着分割一下H2单元格
代码一:
Dim ws = (New excel).activesheet()
Dim arr = ws.Getgrid(2, "A")
Dim ss As String
ss = arr(2, Abc2INT("H"))
Dim ss2 = ss.Split(vbCrLf)
Me.Text = UBound(ss2)
arr获得从A2为左上角开始的数组
ss得到H列第2行数据,也就是H2单元格数据。直接用split分离,分割符按vba vb6习惯使用vvbCrLf回车换行符。
string.split这是vbnet的新语法。
ss.Split(vbCrLf)这句在ss后面打点,直接会有语法提示。用shift+F2直接打开如上图内置帮助查看语法定义。
Public Function Split(ParamArray separator() As Char) As String()
System.String 的成员
摘要:
返回的字符串数组包含此实例中的子字符串(由指定 Unicode 字符数组的元素分隔)。
参数:
separator: 分隔此实例中子字符串的 Unicode 字符数组、不包含分隔符的空数组或 null。
返回值:
一个数组,其元素包含此实例中的子字符串,这些子字符串由 separator 中的一个或多个字符分隔。
这是个支持一个或多个字符分隔分割字符串的函数。
回归正题:代码一得到的结果是0,也就是程序没有正确执行分割。难道分割符不是vbcrlf?
Dim ws = (New excel).activesheet()
Dim arr = ws.Getgrid(2, "A")
Dim ss As String
ss = arr(2, Abc2INT("H"))
'Dim ss2 = ss.Split(vbCrLf)
For i = 1 To ss.Length
ListBox1.Items.Add(Hex(Asc(Mid(ss, i, 1))))
Next
我在拆分前先把所有字符的ASCII码显示在listbox中,如上图清楚看到分割符是A,也就是&HA,而不是我先前以为的vbcrlf。
上图可以清楚看到 vbcrlf由两个字符组成,它们是vbcr和vblf,其对应的ascii码分别是&H0D和&H0A。
现在开始正式分割:
Dim ss2 = ss.Split(New Char() {Chr(&HA)}) 使用&HA来分割
If ss2(i) <> Chr(&HD) And ss2(i) <> Chr(&HA) And Trim(ss2(i)) <> "" Then ListBox1.Items.Add(ss2(i)) 过滤掉&hD和&hA和[空白后,结果输出到listbox中观察结果正确与否,并自动统计了listbox中的条数为30在标题栏中,结果正确。
观察下面数据,可能需要更多分割符。所以直接加上去一次性搞定:
Dim ss2 = ss.Split(New Char() {Chr(&HA), " ", ".", "/"})
直接做一个通用函数方便以后使用:
Function split多分割符切分到list(ss As String)
Dim ss2 = ss.Split(New Char() {Chr(&HA), " ", ".", "/"})
Dim list As New List(Of String)
For i = 0 To UBound(ss2)
If ss2(i) <> Chr(&HD) And ss2(i) <> Chr(&HA) And Trim(ss2(i)) <> "" Then
list.Add(ss2(i))
End If
Next
Return list
End Function
以上代码直接把原字符串分割成list列表,和原来的几乎完全一样,只是把输出方式改成了List(Of String)
主控代码整合测试:
excelpub.split多分割符切分到list(arr(i, 8)) 中excelpub是我自定义的模块名,使用模块名后面打一个点会自动有函数名提示,很方便,再也不会出现打错函数名的尴尬了。split放名称前便于逐级引导提示,也相当于分类了,它属于split小类