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]]

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

有没有其他建议

[[it] 本帖最后由 菜鸟新上路 于 2008-10-14 12:00 编辑 [/it]]

[quote][bo][un]三断笛[/un] 在 2008-10-14 11:05 的发言：[/bo]

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

 请问如何进行编号

线性表……

请各位高手特别是版主们，给我一段语句，新手需要高手带的，请过客留言

那你先放下这个问题  学习下简单的数据结构  行不啦 ,

不会走就想跑的人太多了

收到的鲜花

• multiple1902 于 2008-10-15 21:30 送鲜花  18朵   附言：我很赞同

从以下方面入手.
1、读文件，一次读入，不要这样读一个然后再分解一下，再写入。
2、读文件后，再按行分解 split(string,vbcrlf)
3、按行分解后，再按你的处理方法，把数据分解。
4、分解的数据，判断前面字符，是N的，写入。
5、再第二次分解数据，判断前面的符符，是E的，再次写入。
6、以次类推。

7、程序优化。第三步分解数据后，可以数据放到 2维数组 或 结构体数组 里，然后第4，5。。步就可以直接读这个数组进行判断。

ssdds

[[it] 本帖最后由 wenmzh 于 2008-10-17 08:44 编辑 [/it]]