我有这样一个表格,结构很乱。。没行列标题,直接就是一行行的数据,
每行中 都有这样的字符:cellRef,但是每行中不一定有几个,所以说每行的数据长度都不一致如下为一行数据:a3b,1 ce22 dd11 cellRef 123 dk 3i yad ii1 cellRef 456 caku8 cellRef 789我想要提取 cellRef 后面的数字,如cellRef 123,我要得到123,或者是cellRef 123,都可以,因为我要知道这些数据中,用到了哪些cellRef,如刚才找到的123已经被使用了。同理,第一行数据中,我提取出了123,456,789。
我打算把这些数据放到一列中,以便于查看。看似很复杂呀,感觉就好比从一篇文章中,提取所有的句号后面的第一个字一样
大侠指点一下吧 万分感谢哈!!!最好是能用excel实现,我对VBA不熟悉
每行中 都有这样的字符:cellRef,但是每行中不一定有几个,所以说每行的数据长度都不一致如下为一行数据:a3b,1 ce22 dd11 cellRef 123 dk 3i yad ii1 cellRef 456 caku8 cellRef 789我想要提取 cellRef 后面的数字,如cellRef 123,我要得到123,或者是cellRef 123,都可以,因为我要知道这些数据中,用到了哪些cellRef,如刚才找到的123已经被使用了。同理,第一行数据中,我提取出了123,456,789。
我打算把这些数据放到一列中,以便于查看。看似很复杂呀,感觉就好比从一篇文章中,提取所有的句号后面的第一个字一样
大侠指点一下吧 万分感谢哈!!!最好是能用excel实现,我对VBA不熟悉
解决方案 »
- 请高手帮忙分析一下代码
- 向各位大虾请教点击SSDBGrid列标题排序的问题
- progressbar 影响按钮显示的问题。
- 关于选择是否关闭MDI窗口时,子窗口消失的问题
- vb6 数据太多DataGrid怎么分页显示呀。
- 求助:实现自动调用摄象头抓拍图片
- VB 控制 Excel 问题!送分(在线等待....)
- 救命呀!救命呀!救命呀!
- 关于一个操作ini的简单问题 ,请给予解答 谢谢
- ADO中通过子命令建立的“层次结构纪录“究竟是什么含义?能否举例说明?
- 98下通过MSCOMM控件使用串口接受plc信号,一切正常,但到XP下报8015号错误
- vb 如何读取MS word里的内容,并返回如内容所在页码等信息
int v;
f=fopen("...","r");
while (1) {
if (feof(f)) break;
if (1==fscanf(f,"cellRef %d",&v)) {
printf("%d\n",v);
} else {
fscanf(f,"%*c");
}
}
fclose(f);
Private Sub TestReg()
Dim strData As String
Dim reg As Object
Dim matchs As Object, match As Object strData = "a3b,1 ce22 dd11 cellRef 123 dk 3i yad ii1 cellRef 456 caku8 cellRef 789" Set reg = CreateObject("vbscript.regExp")
reg.Global = True
reg.IgnoreCase = True
reg.MultiLine = True
reg.Pattern = "cellRef (\d+)"
Set matchs = reg.Execute(strData)
For Each match In matchs
Debug.Print match.SubMatches(0)
Next
End Sub