涛声依旧!还是有问题!!!

dkiller 2001-01-28 11:06:00
这是一个不规则的字符串:
"2001-01-1614:09:28DT,00.0,003,00.0,003,00.0,003,00.0,006,00.0,006,00.0,006,14.7,203,14.6,203,14.6,203,00.0,245,00.0,245,00.0,245,00.0,014,00.0,014,00.0,014,-00.03,31.3,+45.87,03.8,-02.11,00.0,-44.45,00.0,-46.55,68.3,"
我要把两个逗号之间的数据读到表格里 (vb控件为msflexgrid)
我想用条件语句,判断逗号,然后就把数据读入
可是,现在如何判断逗号那?
...全文
179 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
dkiller 2001-01-30
  • 打赏
  • 举报
回复
那么 ,我怎么知道我现在还有多少分?
blademan 2001-01-30
  • 打赏
  • 举报
回复
用split,如下:
设你的原字符串为source
dim a() as string
a=split(source,",",-1)
用lbound(a)可取得新数组的最小下标
用ubound(a)可取得新数组的最大下标
这样就可得到分割后的数组及其大小了!
Un1 2001-01-29
  • 打赏
  • 举报
回复
split搞不定吗?
BillOB 2001-01-28
  • 打赏
  • 举报
回复
如果我的程序还可以就给我一点分吧!!!!!!
BillOB 2001-01-28
  • 打赏
  • 举报
回复
以下为我看了你的问题后写的程序
只要建立一个窗体并建立一个List box就可以了!
读出的字符串装在S()字符串数组中!
vb6测试通过!

'"1.txt"为装有所要查找的字符串的文件

Open "D:\1.txt" For Input As #1
Dim Common As Boolean
Dim Start, Endl As Integer
Dim St As String
Dim Count As Long
Line Input #1, St
Start = 1

Do
Common = False
If InStr(Start, St, ",") Then
Start = InStr(Start, St, ",") + 1
Count = Count + 1
Common = True
End If
Loop Until Common = False

'以上为统计逗号的个数
'以下将每个以逗号分割的字符串写入 S()As String 中
Dim S() As String
ReDim S(Count)
Count = 0
Endl = 1
Start = 1
Do
Common = False
If InStr(Start, St, ",") Then
Start = InStr(Start, St, ",") + 1
Count = Count + 1
S(Count) = Mid(St, Endl + 1, Start - Endl - 2)
Endl = Start
Common = True
End If
Loop Until Common = False

For n = 1 To Count
List1.AddItem S(n)
Next n

dkiller 2001-01-28
  • 打赏
  • 举报
回复
恳请各位帮忙!!

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧