如何分离文件名称的中文字到属性

wutong490 发表于 2014-12-1 19:59
想用就要知道“宏”的规则

谢谢版主你啊。
     我做了张示意图步知道版主能不能看懂

又图、又文字、又PDF文件，方法通通都出齐，就是表达不到意思，真怪！
分离中文字吧？

将以下代码加入到【鸟事宏】或【便粒宏】，就可以满足楼主渴求。

1. Sub test()
   
2. FileName = "bb论s.坛i小ca白x.o多rg"
   
3. FileNameC = ""
   
4. FileNameE = ""
   
5. For i = 1 To Len(FileName)
   
6.     FoundChr = Mid(FileName, i, 1)
   
7.     DeterminChr = Asc(FoundChr)
   
8.     If DeterminChr > 0 Then
   
9.         FileNameE = FileNameE & FoundChr
   
10.     Else
    
11.         FileNameC = FileNameC & FoundChr
    
12.     End If
    
13. Next
    
14. Debug.Print FileNameE
    
15. Debug.Print FileNameC
    
16. End Sub

复制代码

补充：还可以加入到【宏特征】或【常驻宏】，也可以达到自动化的效果。

大鹿 发表于 2014-12-1 23:54
将以下代码加入到【鸟事宏】或【便粒宏】，就可以满足楼主渴求。

在此感谢大鹿先生你辛苦了，如何使用啊？宏这是我刚接触的，我只会用闷老师的宏，他的是把装配体打开，然后运行宏，

何谓授渔
有不同层次
不是指授方，而是指受方

一句“湖中有鱼”，已经是一种授渔方法。
等于告知问题有解还是无解，应继续还是放弃。
方向极为重要，比重占解决问题总量的7成以上。

反之，提供了渔船、鱼饵、钓具等等一切的设备还说不足够，还要求提供人手代为作业，这是真的授渔吗？

大鹿 发表于 2014-12-2 10:13
何谓授渔
有不同层次
不是指授方，而是指受方

谢谢大鹿先生的批评已经搞好了，现在我把他贴出来，是别的网站转载的，