| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 987 人关注过本帖
标题:请问各位大侠,读取数据后如何归类写入
只看楼主 加入收藏
菜鸟新上路
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2008-9-15
结帖率:60%
收藏
 问题点数:0 回复次数:8 
请问各位大侠,读取数据后如何归类写入
N  24
E  23
N  21
W  34
E  56
W  32
E  34
N  43
W  23
E  35

以上是数组,以下是语句,
Private Sub Command1_Click()
Dim s As String
Dim flag As Integer
myfile1 = App.Path & "\" & "2.txt"
myfile2 = App.Path & "\" & "4.txt"
Open myfile1 For Input As #1
Open myfile2 For Output As #2
Do While Not EOF(1)
Line Input #1, s
Dim arr
While InStr(s, "  ")
  s = Replace(s, "  ", " ")
Wend
arr = Split(s, " ")
If arr(0) = "N" Then
Print #2, arr(1)
ElseIf arr(0) = "E" Then
Print #2, arr(1)
End If
flag = flag + 1
Loop
Close #1
End Sub  

请问如何修改才能达到如下效果

N  
24
21
43
E  
23
56
34
35

[[it] 本帖最后由 菜鸟新上路 于 2008-10-14 14:47 编辑 [/it]]
搜索更多相关主题的帖子: 数据 归类 
2008-10-14 11:00
三断笛
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:31
帖 子:1621
专家分:1617
注 册:2007-5-24
收藏
得分:0 
二维数组,给E,N,W分别编号0,1,2,然后再读取数据,要输出就只要输出这个二维数组就可以了
2008-10-14 11:05
菜鸟新上路
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2008-9-15
收藏
得分:0 
11
有没有其他建议

[[it] 本帖最后由 菜鸟新上路 于 2008-10-14 12:00 编辑 [/it]]
2008-10-14 11:16
菜鸟新上路
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2008-9-15
收藏
得分:0 
请问版主如何编号?
[quote][bo][un]三断笛[/un] 在 2008-10-14 11:05 的发言:[/bo]

二维数组,给E,N,W分别编号0,1,2,然后再读取数据,要输出就只要输出这个二维数组就可以了 [/q

 请问如何进行编号
2008-10-14 15:23
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
线性表……
2008-10-14 19:11
菜鸟新上路
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2008-9-15
收藏
得分:0 
请各位高手特别是版主们,给我一段语句,新手需要高手带的,请过客留言
请各位高手特别是版主们,给我一段语句,新手需要高手带的,请过客留言
2008-10-15 14:43
simpson
Rank: 3Rank: 3
等 级:论坛游民
威 望:7
帖 子:863
专家分:17
注 册:2006-11-16
收藏
得分:0 
那你先放下这个问题  学习下简单的数据结构  行不啦 ,

不会走就想跑的人太多了
收到的鲜花
  • multiple19022008-10-15 21:30 送鲜花  18朵   附言:我很赞同

全国最大的 Java专业电子书免费分享[url]http:///in.asp?id=xrmao[/url]
2008-10-15 17:09
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
从以下方面入手.
1、读文件,一次读入,不要这样读一个然后再分解一下,再写入。
2、读文件后,再按行分解 split(string,vbcrlf)
3、按行分解后,再按你的处理方法,把数据分解。
4、分解的数据,判断前面字符,是N的,写入。
5、再第二次分解数据,判断前面的符符,是E的,再次写入。
6、以次类推。

7、程序优化。第三步分解数据后,可以数据放到 2维数组 或 结构体数组 里,然后第4,5。。步就可以直接读这个数组进行判断。
2008-10-15 23:50
wenmzh
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-9-11
收藏
得分:0 
回复 7# simpson 的帖子
ssdds

[[it] 本帖最后由 wenmzh 于 2008-10-17 08:44 编辑 [/it]]
2008-10-16 14:26
快速回复:请问各位大侠,读取数据后如何归类写入
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027273 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved