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



有关字符串问题的,请大家来看看


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


有关字符串问题的,请大家来看看[已结贴,结贴人:bird_l]
发表于：2007-07-27 16:49:44 楼主
我有这样几个字符串   比如   "i1-1-01-1-9.jpg "       i1-1-1-1-009.jpg "   i1-1-001-1-1219.jpg "   我现在要得到最后一个横线前面的数字   就是比如第一个我要 "i1-1-01-1 ",第二个我要 "i1-1-1-1 "     ,第三个我要 "i1-1-001-1 "       该怎么做呀!   等待大家回复呀
发表于：2007-07-27 17:05:431楼 得分:0
dim   lngtemp   as   long
        dim   str1   as   string
        dim   str2   as   string
        str1= "i1-1-01-1-9.jpg "

        lngtemp   =   instrrev（str1,   "- ")
        str2   =   left（str1,   lngtemp   -   1)
发表于：2007-07-27 17:07:472楼 得分:5
public   function   aa（byval   str   as   string)   as   string
        dim   lngtemp   as   long

        lngtemp   =   instrrev（str,   "- ")
        aa=   left（str,   lngtemp   -   1)
end   function
发表于：2007-07-27 17:09:043楼 得分:10
public   function   aa（byval   str   as   string)   as   string
dim   lngtemp   as   long

lngtemp   =   instrrev（str,   "- ")
aa=   left（str,   lngtemp   -   1)
end   function
发表于：2007-07-27 17:12:564楼 得分:0
楼上的怎么还没变猩猩
发表于：2007-07-27 21:02:345楼 得分:0
学习了
发表于：2007-07-28 22:16:086楼 得分:0
谢谢了!   我在vb调试中可以得到正确结果     可是为什么我的html文件就不行呢     我的代码如何
请大家指点一下     我刚刚开始学习编写网业  
<%@language= "vbscript "   codepage= "936 "%>
<html   >
<head>
<meta   http-equiv= "content-type "   content= "text/html;   charset=gb2312 "   />
<title> 无标题文档 </title>
</head>
<%
dim   str  
dim   str3  
dim   intstr1
dim   intstr2  
        str   =   "c:\windows\i1-1-1-9-10-1.jpg "
        intstr1   =   instrrev（str,   "- ")
        intstr2   =   instrrev（str,   "\ ")
        str3   =   mid（str,   （intstr2   +   1),   （intstr1   -   intstr2   -   1))
        response.write   str3
%>

<body>
</body>
</html>


发表于：2007-07-28 22:39:207楼 得分:0
忘记说了   上面那段没有   response.write   str3     也没有报错
我把上面的那个asp文件改名了   （原来是1.asp的   我   把他改成了1.htm   )

但是这段代码就能执行并返回正确结果   （我也改成了2.htm)
<html>
<head>

<script     language=vbscript>


dim   str  
dim   str3  
dim   intstr1
dim   intstr2  
        str   =   "c:\windows\i1-1-1-9-10-1.jpg "
        intstr1   =   instrrev（str,   "- ")
        intstr2   =   instrrev（str,   "\ ")
        str3   =   mid（str,   （intstr2   +   1),   （intstr1   -   intstr2   -   1))
        msgbox   str3

</script>
</head>
<body>

</body>
</html>
发表于：2007-07-28 23:33:148楼 得分:0
.......................................
发表于：2007-07-29 02:39:129楼 得分:0
我这正常
asp文件   需要iis等软件支持   不能象htm文件直接打开
发表于：2007-07-29 11:32:2910楼 得分:0
我安装了iis了!     我想问的是上面的那个服务器断的写法正确吗
发表于：2007-07-29 12:10:0311楼 得分:5
正确的
我试过你的代码

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击