JBTALKS.CC

标题: 怎么拿 "\" 后面的东西？ [打印本页]

作者: goodhermit95 时间: 2009-1-28 07:26 PM
标题: 怎么拿 "\" 后面的东西？
VBNET，怎么拿？
比如
C:\test.txt，拿test.txt

作者: goodhermit95 时间: 2009-1-28 07:36 PM
Dim fileName As String = file_name.Substring(file_name.LastIndexOf("/") + 1)
.Add(fileName.ToString)
行不通？还是一样？

作者: TSHsoft 时间: 2009-1-28 08:01 PM
这样子
n = InStr(1, Text1, "\")
MsgBox Mid(Text1, n + 1, Len(Text1) - n)

作者: Super-Tomato 时间: 2009-1-28 08:16 PM

原帖由 goodhermit95 于 2009-1-28 07:36 PM 发表
Dim fileName As String = file_name.Substring(file_name.LastIndexOf("/") + 1)
.Add(fileName.ToString)
行不通？还是一样？

/ 和 \ 是不同的

要取得 \ 的話必須是 "\\" 這樣使用, 去看看你的 VB 書籍, 裡面會清楚說明 \ 的使用方法

作者: goodhermit95 时间: 2009-1-28 08:31 PM
标题: 回复 #3 TSHsoft 的帖子
谢谢，等等我试试看

作者: goodhermit95 时间: 2009-1-28 08:32 PM
标题: 回复 #4 Super-Tomato 的帖子
答错 = =
我只有一本VB.NET 的书

，
不过不能\的原因是 C#/C/C++ 的 "vbcrlf"是 \n\

作者: goodhermit95 时间: 2009-1-28 08:34 PM
em0043
还是不能

Dim n = InStr(1, file_name, "\\")
.Add(Mid(file_name, n + 1, Len(file_name) - n))

复制代码

作者: Super-Tomato 时间: 2009-1-28 10:21 PM

原帖由 goodhermit95 于 2009-1-28 08:34 PM 发表
em0043
还是不能

Dim n = InStr(1, file_name, "\\")
.Add(Mid(file_name, n + 1, Len(file_name) - n))

Dim pos As Integer

pos = InStr(file_name, "\\");
Debug.print(Trim(Mid(file_name, pos+1)));

p/s: 勤勞點查看 MSDN 就可以找到更加方便的方法
http://msdn.microsoft.com/en-us/ ... th.getfilename.aspx

[ 本帖最后由 Super-Tomato 于 2009-1-28 10:26 PM 编辑 ]

作者: goodhermit95 时间: 2009-1-28 10:52 PM
标题: 回复 #8 Super-Tomato 的帖子
哦，谢谢
可是怎么没有GetFileName的？

作者: goodhermit95 时间: 2009-1-28 10:53 PM
标题: 回复 #8 Super-Tomato 的帖子

怎么还是一样拿整个String的

作者: Super-Tomato 时间: 2009-1-28 11:10 PM

原帖由 goodhermit95 于 2009-1-28 10:53 PM 发表

怎么还是一样拿整个String的

看看你的 pos 是不是取得正確的 index

作者: goodhermit95 时间: 2009-1-28 11:21 PM

0喔……
不过file_name肯定正确，因为还可以显示整个Directionary

作者: Super-Tomato 时间: 2009-1-28 11:29 PM

原帖由 goodhermit95 于 2009-1-28 11:21 PM 发表

0喔……
不过file_name肯定正确，因为还可以显示整个Directionary

那你怎麼沒去嘗試用 Split 取得你要的檔名

作者: goodhermit95 时间: 2009-1-28 11:37 PM
标题: 回复 #13 Super-Tomato 的帖子

多谢指点，demisson of array?

作者: goodhermit95 时间: 2009-1-28 11:39 PM
wahhhhhhaaaaaaa!!!兴奋！弄到了 em0013 em0012

Dim line As String() = file_name.Split("\\")
Dim cfilename As String = line(line.Count - 1)

复制代码

作者: TSHsoft 时间: 2009-1-29 06:17 PM
原来你只是要拿Filename啊！
那用这个咯！
n = InStrRev(Text1, "\")
strFilename = Mid(Text1, n + 1, Len(Text1) - n)

作者: goodday 时间: 2009-1-29 06:34 PM
Dim fullPath As String = "c:\MyDirectory\MYFile.txt"

Dim dirName As String = system.IO.Path.GetFileName(fullPath)

你忽略了 system.io

你死了我才出现的

作者: goodhermit95 时间: 2009-1-29 11:52 PM
标题: 回复 #16 TSHsoft 的帖子
不行，弄不到

作者: goodhermit95 时间: 2009-1-29 11:52 PM
标题: 回复 #17 goodday 的帖子
这个方法是够偷懒的咯

作者: Skyline623 时间: 2009-1-30 01:46 AM
啊。。好怀念。。。

这些都还给老师了。。

选了一条Networking的路。。

欢迎光临 JBTALKS.CC (https://jbtalks.my/)