开发工具:
文件大小: 108kb
下载次数: 0
上传时间: 2013-12-26
详细说明： 置开始的指定数目字符。 i = i + 1 m(i) = InStr(m(i - 1) + 1, b, ",") '从上一个找到的逗号位置起，查找下一个逗号的位置 Loop If m(i) = 0 And i > 1 Then tr(i) = Right(b, Len(b) - m(i - 1)) '处理一行中最后一个逗号后的字符串 '以下部分是将存储在数组变量 m(i)中的字符分类存放到方向、边长、已知坐标、网型信息等数组中 k = k + 1 For j = 1 To 5 jd(k, j) = Val(tr(j)) Next j zjd = k Loop ts.Close MsgBox "转角数据已成功读入", 0 + 64 + 0, "数据输入" End If End Sub Private Sub cd2_Click(Index As Integer) Dim tr() As String, m(10) As Integer '定义过程级变量 Dim i As Integer, j As Integer, k As Integer, h As Integer CommonDial og1.ShowOpen fname = CommonDialog1.FileName '将用户在"打开"对话框中选择的文件名对变量fname赋值 If fname <> "" Then '若无此判断当对话框中选择取消时、下面赋值语句将出错 Set ts = fso.OpenTextFile(fname) '将fname作为文本文件打开,并设置句柄 j = 0: k = 0: p = 0: h = 0 'j是测站数累计变量,k是已知点累计变量,l（j）、ns（j）分别是方向值、边长累积计数 Do While ts.AtEndOfLine <> True '前测型循环，进入循环的条件是没有读到文件结束尾 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
