您的位置：程序门 -> vb -> 基础类

求取读取数据方法，谢谢！！！

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

求取读取数据方法，谢谢！！！[已结贴,结贴人:msdn165168]

发表于：2007-03-24 20:49:07 楼主

求取读取数据方法，谢谢！！！
有
2007032 4 8 16 24 30 32 16
2007032 4 8 9 24 30 32 16
我想把它改成：
2007032 04 08 16 24 30 32 16
2007032 04 08 09 24 30 32 16
我写的代码只能改成：
2007032 4 8 16 24 30 32 16
2007032 4 8 9 24 30 32 16
求教该如何修改代码才能得到我想要的结果，谢谢！！！
dim mystring, mmstring as string
open app.path & "\aa.txt " for input as #1
do while not eof（1)
line input #1, mystring
loop
close #1
for i = 1 to len（mystring)
if mid（mystring, i, 1) <> space（1) then
mmstring = mmstring & mid（mystring, i, 1)
else
if mid（mystring, i - 1, 1) = space（1) then
else
if mid（mystring, i + 1, 1) <> space（1) then
mmstring = mmstring & mid（mystring, i, 1)
else
'if mid（mystring, i + 2, 1) <> space（1) then

mmstring = mmstring & replace（mid（mystring, i, 1), space（1), " 0 ")
'end if
end if
end if
end if

next i

msgbox mmstring

发表于：2007-03-24 23:10:061楼得分:50

private sub command1_click（)
dim a（) as string, mystring as string
open app.path & "\aa.txt " for input as #1
do while not eof（1)
line input #1, mystring
a = split（mystring)
for x = 0 to ubound（a)
if a（x) <> " " then
if a（x) < 10 then a（x) = "0 " & a（x)
print a（x); " ";
end if
next
print
loop
close #1
end sub

下一篇：vb + winsock + smtp，如何避免系统退信。代码如何写？
上一篇：vb6.0富文本框中的鼠标形状能否更改

其他资讯