最最基础的问题,,哪位帮在下解答一下,高分赠!

dragonhell 2003-10-20 04:49:14
(ZJ)
52368
53698
52145
53X69
58631
。。。
。。。
。。。
。。。
53674
这样的报文,
最后要写个函数,跳过(ZJ)这一行,显示文本如下:
52368 53698 52145 53/69 53684 。。。 。。。 。。。 。。。
53674=
一行不超过10个数,
在最后一个数后加个=
遇到X显示为/
该如何编写???
急需,,,,高分赠!!!
...全文
26 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
mmcgzs 2003-10-20
  • 打赏
  • 举报
回复
一楼的方法不错呀
Tenner 2003-10-20
  • 打赏
  • 举报
回复
呵呵,一楼已经给出程序了,其实写这样一个程序很简单的
wx05 2003-10-20
  • 打赏
  • 举报
回复
up
yunfeng007 2003-10-20
  • 打赏
  • 举报
回复
up
rainstormmaster 2003-10-20
  • 打赏
  • 举报
回复
OSYLL 2003-10-20
  • 打赏
  • 举报
回复
牛××,呵呵~
FengZhongXia 2003-10-20
  • 打赏
  • 举报
回复
狂顶,厉害
射天狼 2003-10-20
  • 打赏
  • 举报
回复
晕!~~
NotReady 2003-10-20
  • 打赏
  • 举报
回复
Dim lngTmp As Long
Dim strFile As String
Dim aa() As String
On Error GoTo PROC_ERR
lngTmp = FreeFile()
Open strPath For Binary Access Read As #lngTmp
strFile = CStr(Input(LOF(lngTmp), #lngTmp))
Close #lngTmp
aa = Split(strFile, Chr(13))
lngLine = UBound(aa)
GetFileLine = True
Exit Function
PROC_ERR:
GetFileLine = False

aa中存放的就的是那个文件Dim lngTmp As Long
Dim strFile As String
Dim aa() As String
On Error GoTo PROC_ERR
lngTmp = FreeFile()
Open strPath For Binary Access Read As #lngTmp
strFile = CStr(Input(LOF(lngTmp), #lngTmp))
Close #lngTmp
aa = Split(strFile, Chr(13))
lngLine = UBound(aa)
GetFileLine = True
Exit Function
PROC_ERR:
GetFileLine = False


aa中存放的就是每一行的数据!
dim i as integer
dim str as string
dim lngtemp as long
dim lngCount1 as long
dim strTmp as string
i=0
dim strVal as string
for lngtmp=lbound(aa) to ubound(aa)
if i mod 10<>0 then
i=i+1
strval=trim(aa(lngtmp))
for lngtemp=1 to len(trim(aa(lngtmp)))
strtmp=left(strval,1)
if strtmp="x" then
str=str & "/"
else
str=str & strtmp
end if
strval=mid(strval,2,len(strval)-1)
next lngtemp
else
strval=trim(aa(lngtmp))
for lngtemp=1 to len(trim(aa(lngtmp)))
strtmp=left(strval,1)
if strtmp="x" then
str=str & "/"
else
str=str & strtmp
end if
strval=mid(strval,2,len(strval)-1)
next lngtemp
str=str & vbCrLf
end if
next lngtmp
msgbox str
str中存的就是那个信息!

7,759

社区成员

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

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