[请教高手] 两组数据比较,如何按特定的方式出取不同数据?

2006-08-08 04:47:43 414 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

从零实战：基于华中8型数控系统的CNC数据采集与二次开发本文详细介绍了基于华中8型数控系统的CNC数据采集与二次开发实战指南。从开发环境准备到核心数据采集实现，涵盖Windows平台配置、实时数据采集、报警处理等关键技术，帮助开发者快速掌握华中数控系统的数据采集能力，提升智能制造水平。阅读详情

arr1 = "0, 80, 90, 85, 88, 90, 110, 90, 80, 90, 85, 90, 85, 70"
arr2 = "0, 80, 75, 70, 70, 80, 110, 80, 70, 80, 85, 70, 80, 70"

取出两组不相等的数据
结果应为:
1、
90, 85, 88, 90
75, 70, 70, 80

2、
90, 80, 90
80, 70, 80

3、
90, 85
70, 80

想得到的结果如下：
第一组数据：80, 90, 85, 88, 90, 80, 70, 70，75
第二组数据：110, 90, 80, 90, 85, 80, 70，80
第三组数据：85, 90, 85, 70，80，70

如图所示：
http://p.blog.csdn.net/images/p_blog_csdn_net/waiber/1.jpg

各位高手帮看看，先谢谢各位。

...全文

告别GIS软件！用R语言ggplot2+ggmapcn绘制出版级世界地图（附5种投影对比图）本文提供了一份完整的实践指南，教你如何利用R语言及其强大的ggplot2生态系统，结合ggmapcn包，绘制出出版级的世界地图。文章详细对比了五种经典地图投影（如摩尔维德、罗宾森投影）的代码实现与视觉差异，并讲解了如何添加比例尺、指北针等专业元素，最终导出高清PDF，实现从数据分析到专业可视化的全流程代码化操作，彻底告别传统GIS软件。阅读详情

waiber

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

waiber 2006-08-10

打赏
举报

非常感谢楼上各位，结帐！

province_ 2006-08-09

打赏
举报

Private Sub Command1_Click()
Dim arr1 As String
Dim arr2 As String
Dim dat1() As String, dat2() As String
Dim i As Long, j As Long
Dim tmp1 As String, tmp2 As String

arr1 = "0, 80, 90, 85, 88, 90, 110, 90, 80, 90, 85, 90, 85, 70"
arr2 = "0, 80, 75, 70, 70, 80, 110, 80, 70, 80, 85, 70, 80, 70"

dat1 = Split(arr1, ", ")
dat2 = Split(arr2, ", ")

For i = 0 To UBound(dat1)

If dat1(i) <> dat2(i) Then

j = i
While dat1(j) <> dat2(j) '这里要注意J可能越界，你的数据比较好，所以我没做处理。
tmp1 = tmp1 & dat1(j)
tmp2 = tmp2 & dat2(j)

j = j + 1
Wend
i=j
Text1 = Text1 & tmp1 & vbCrLf
Text1 = Text1 & tmp2 & vbCrLf
tmp1 = ""
tmp2 = ""
End If

Next

End Sub
可以得到你说的
1、
90, 85, 88, 90
75, 70, 70, 80

2、
90, 80, 90
80, 70, 80

3、
90, 85
70, 80
至于后面你的三组数据我可看不懂什么意思。

of123 2006-08-09

打赏
举报

唉，现在的科技工作者们的表达能力越来越令人摸不着头脑了，丈二和尚，高！

1 你的结果分了三部分，分割的规则是什么？就是说，凭什么分的？
2
想得到的结果如下：
第一组数据：80, 90, 85, 88, 90, 80, 70, 70，75
第二组数据：110, 90, 80, 90, 85, 80, 70，80
第三组数据：85, 90, 85, 70，80，70
又是怎么回事？
3
你最终是想输出数据就算完，还是要求结果是画出圈圈？如果是后者，你的界面是什么？PictureBox 还是 Form ？

waiber 2006-08-09

打赏
举报

谢谢 province_(雍昊) 的答复，可能误解我的题意了。

希望大家能帮看看。

of123 2006-08-09

打赏
举报

后三组数据，以第一组为例说明：
1、
90, 85, 88, 90
75, 70, 70, 80

想得到的数据为：
第一排（90, 85, 88, 90）：第一排前一个 + 第一排 + 第一排后一个的数据，如：
80, 90, 85, 88, 90, 80

第二排(75, 70, 70, 80)，将其反向读取，得到：
80, 70, 70，75

得到第一组数据为：
80, 90, 85, 88, 90, 80, 80, 70, 70，75

str1 = "90, 85, 88, 90"
str2 = "75, 70, 70, 80"

dim arr1() as string
dim arr2() as string
dim str3 as string

arr1 = split(str1, ",")
arr2 = split(str2, ",")
str3 = arr1(0) & str1 & arr1(Ubound(arr1))
for i = ubound(arr2) to 0 step -1
str3 = str3 & "," & arr2(i)
next i
debug.print str3

of123 2006-08-09

打赏
举报

arr1 = "0, 80, 90, 85, 88, 90, 110, 90, 80, 90, 85, 90, 85, 70"
arr2 = "0, 80, 75, 70, 70, 80, 110, 80, 70, 80, 85, 70, 80, 70"

dim a1() as string
dim a2() as string
dim str1 as string, str2 as string
dim i as integer

a1 = split(arr1, ",")
a2 = split(arr2, ",")

for i = 0 to ubound(a1) '假定你的字符串项数相等，不会出现下标溢出
if a1(i) <> a2(i) Then
str1 = str1 & a1(i) & ","
str2 = str2 & a2(i) & ","
else
if str1 > "" then
str1 = left(str1, len(str1) - 1)
str2 = left(str2, len(str2) - 1)
debug.print str1
debug.print str2
str1 = ""
str2 = ""
end if
end if
next i

一笑拔剑 2006-08-09

打赏
举报

思维混乱
反正也有高手看了
我也不看了

waiber 2006-08-09

打赏
举报

再次感谢province_(雍昊) 、of123()

province_(雍昊) ：至于后面你的三组数据我可看不懂什么意思。

后三组数据，以第一组为例说明：
1、
90, 85, 88, 90
75, 70, 70, 80

想得到的数据为：
第一排（90, 85, 88, 90）：第一排前一个 + 第一排 + 第一排后一个的数据，如：
80, 90, 85, 88, 90, 80

第二排(75, 70, 70, 80)，将其反向读取，得到：
80, 70, 70，75

得到第一组数据为：
80, 90, 85, 88, 90, 80, 80, 70, 70，75

不知说明白没有？

'**

of123() :

1、分割的规则是两组不相等的数据时；
2、请见上述；
3、要取出用圈套住的数据。

可见我的表达能力不行，再次谢谢楼上两位。

province_ 2006-08-08

打赏
举报

Private Sub Command1_Click()
Dim arr1 As String
Dim arr2 As String
Dim dat1() As String, dat2() As String
Dim i As Long, j As Long
Dim tmp1 As String, tmp2 As String

arr1 = "0, 80, 90, 85, 88, 90, 110, 90, 80, 90, 85, 90, 85, 70"
arr2 = "0, 80, 75, 70, 70, 80, 110, 80, 70, 80, 85, 70, 80, 70"

dat1 = Split(arr1, ", ")
dat2 = Split(arr2, ", ")

For i = 0 To UBound(dat1)

If dat1(i) <> dat2(i) Then

j = i
While dat1(j) <> dat2(j) '这里要注意J可能越界，你的数据比较好，所以我没做处理。
tmp1 = tmp1 & dat1(j)
tmp2 = tmp2 & dat2(j)

j = j + 1
Wend

Text1 = Text1 & tmp1 & vbCrLf
Text1 = Text1 & tmp2 & vbCrLf
tmp1 = ""
tmp2 = ""
End If

Next

End Sub

90858890
75707080
858890
707080
8890
7080
90
80
908090
807080
8090
7080
90
80
9085
7080
85
80
答案好象不止你说的几种。

waiber 2006-08-08

打赏
举报

要取出的数据用红圈套中

[请教高手] 两组数据比较,如何按特定的方式出取不同数据?

相关推荐