Question

在VB中怎样把随机文件保存为.txt文件,并能用记事本打开和编辑

我用VB写了个处理通过扫描获得的大量点的三维坐标的小程序，为了能把这些点的坐标用PROE进行后续处理得到期望的模型。想用保存随机文件的方法，把点的序号、x坐标、y坐标、z坐标并按这样顺序保存到记事本中，然后再更名为*.lbi的格式文件，试了多次都失败了。为了更方便说明问题下面给出一个类似的更简单的VB小程序：
Private Type studtype
ii As Integer:x As Single:y As Single:z As Integer
End Type
Private Sub Command1_Click()
Const pi = 3.1416
Dim stud As studtype, r As Integer, i As Integer, j As Integer
Open "d:\stud.txt" For Random As #1 Len = Len(stud)
For j = 0 To 4
For i = 0 To 29
r = 100 + j
stud.ii = j * 30 + i + 1
stud.x = r * Sin(i * pi / 18)
stud.y = r * Cos(i * pi / 18)
stud.z = j
Put #1, j * 4 + i + 1, stud '用记事本打开保存的*.txt文件，看不到“序号、X坐 标、Y坐标 z 坐标”Next ‘这样格式，PROE也不能用。还有别的办法没有？只要坐标由VB产生
Next '不常上网，无分可送，能给指点不胜感激。
Close
End Sub

Answer 1

你好;
     一般情况下，流产后，一个月内禁止性生活，由于流产后，宫口处于开放状态，阻止细菌进入宫腔的作用减弱，同时由于胚胎组织脱落后血窦开放，子宫内膜损伤，所以容易引起感染， 甚至会导致子宫内膜炎，输卵管卵巢炎，盆腔炎等，影响今后的生育。
      您在人流后10多天性生活怀孕的几率不大，建议您勤观察，如有异常及时去正规的医院做相关检查，在医生的指导下对症治疗。h      

病情分析：
你的这种 情况是怀孕的可能
指导意见：
建议你可以保持心情舒畅注意休息才行的，为了不必要的麻烦的原则上需要及早口服事后紧急避孕药才行的

病情分析：
您好，做了无痛人流12天后有同房，这个会不会怀孕是说不准的，因为这个时候也有可能会排卵的。
指导意见：
你这样做如果刚好遇到排卵，那么还是有怀孕可能的，同房后出现少量出血，暗红色，这个正常的，人流后子宫还没恢复好，还会有一些淤血，同房后导致子宫收缩，一般就会有一些淤血排出来的，你可以服用一点新生化颗粒，益母草膏帮助把淤血排出，这样子宫恢复的会好一些。

病情分析：
你好，人流术后一般在22天左右才恢复排卵，你性生活时间时还没有恢复排卵，是不会导致怀孕的，不用担心。
指导意见：
但值得说明的是，人流后一个月内是禁止性生活的，如果过早地进行性交，带入阴道的细菌很容易上行引起子宫内膜炎等妇科疾病，还是需多爱惜自己的身体为好

病情分析：
您好 首先您同房时间太早了
指导意见：
  怀孕的几率比较小 一般要流产后22天左右回复排卵 才十二天 应该说不太会怀孕的  同时您身体还没有恢复好 对女性容易引起阴道炎 盆腔炎 子宫内膜炎 等等很多妇科炎症的    希望能够帮助到您

Answer 2

Private Type studtype
ii As Single: x As String * 8: y As String * 8: z As String * 8
End Type
Private Sub Command1_Click()
Const pi = 3.1416
Dim stud As studtype, r As Integer, i As Integer, j As Integer
Open "d:\stud.txt" For Random As #1 Len = Len(stud)
For j = 0 To 4
For i = 0 To 29
r = 100 + j
stud.ii = j * 30 + i + 1
stud.x = Str(r * Sin(i * pi / 18))
stud.y = Str(r * Cos(i * pi / 18))
stud.z = Str(j)
Put #1, j * 4 + i + 1, stud '用记事本打开保存的*.txt文件，看不到“序号、X坐 标、Y坐标 z 坐标”Next ‘这样格式，PROE也不能用。还有别的办法没有？只要坐标由VB产生
Next
Next '不常上网，无分可送，能给指点不胜感激。
Close
End Sub

追问

上面的问题基本解决，尽管有些麻烦，但能使用，谢谢大家。如有简单快捷的方法，仍非常欢迎。