51Testing软件测试论坛

标题: CLASS文件截取字符串问题 [打印本页]

作者: shengyan 时间: 2009-2-25 16:31
标题: CLASS文件截取字符串问题
路径如：
E:\eclipse-SDK-3.2RC4-win32\workspace\UP\build\classes\javasrc\business\com\inc\tal\baa\Query.class
E:\eclipse-SDK-3.2RC4-win32\workspace\UP\build\classes\javasrc\business\com\inc\aal\bbb\Service.java

目的：想截取去掉＂E:\eclipse-SDK-3.2RC4-win32\workspace\＂和文件名的中间这串路径

目前做到：
Dim fso,f,temp,fright
set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.opentextfile("D:\test.txt",1,false)
temp = f.readline()
fright = len(temp)-len("E:\eclipse-SDK-3.2RC4-win32\workspace\")
str=right(temp,fright)
'str=left(str,"11")
msgbox (str)

－－－－－－－－－－
str为：UP\build\classes\javasrc\business\com\inc\tal\baa\Query.class
再怎么做去截掉文件名呢？

作者: dreamever 时间: 2009-2-25 17:05
喜欢研究有关字符串处理的问题。我写的代码和楼主的不太一样，只是因为我喜欢这样的处理风格，用split分割字符串获得一个数组，然后对数组进行操作，这是最爽的处理方式，比单纯的通过字符串截取要方便（个人观点）
Dim fso,f,temp,fright
set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.opentextfile("D:\test.txt",1,false)
temp = f.readline()
'fright = len(temp)-len("E:\eclipse-SDK-3.2RC4-win32\workspace\")
'str=right(temp,fright)
'str=left(str,"11")
arr = Split(temp,"\")

arrLength = UBound(arr)
For i = 3 To arrLength-1
str = str&"\"&arr(i)
next
msgbox (str)

作者: asoqa 时间: 2009-2-25 18:08
标题: 回复 1# 的帖子
GetParentFolderName(str)

作者: helius 时间: 2009-2-25 19:03
GetParentFolderName(str) UP
学习了
GetParentFolderName
object.GetParentFolderName(path)
根据指定路径中的最后成分返回包含其父文件夹名称的字符串。

[ 本帖最后由 helius 于 2009-2-25 19:35 编辑 ]

作者: shengyan 时间: 2009-2-25 20:15
谢谢.学习了

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)