按键精灵 txt文件的读取

嗯，的确是，那个是默认的，这也是按键自带读文件不好的地方，如果想去掉很简单，加一些语明谈句激悄碰就行了。

text

=

plugin.file.readfileex("d:\1.txt")

m

=

len(text)

text

=

left(text,

m

-

1)

messagebox

text

这种方法，文件内容只有一行才行的，不是一行就不行，当然也可以用下面方法：

text

=

plugin.file.readfileex("d:\1.txt")

m

=

split(text,"运裤|")

text

=

m(0)

messagebox

text

这种方法可以解决多行问题，不过，又有新问题，也就是说文件内容不能包含“|”，否则也会出错，由于按键自带读文件有缺陷，所以我都不用它，我用的是大漠插件和大兵插件，或者是懒人插件。

Function FindAllFiles(FolderPath)\x0d\x0aDim AllFiles,fso,Folder,f,files\x0d\x0aAllFiles = ""\x0d\x0aSet fso = CreateObject("Scripting.FileSystemObject")\x0d\x0aSet Folder = fso.getfolder(FolderPath)\x0d\x0aSet files = Folder.files\x0d\x0aFor Each f In files\x0d\x0aAllFiles = AllFiles &f.name &","\x0d\x0aNext\x0d\x0aSet fso = Nothing\x0d\x0aFindAllFiles = Split(AllFiles, ",")\x0d\x0aEnd Function\x0d\x0a \x0d\x0a//码团册下面是调用方法：\x0d\x0aFileEx = FindAllFiles(文件路径) //文件或姿路径是字符串，要加双撇\x0d\x0aIf UBound(FileEx) >0 Then \x0d\x0a For i = 0 To UBound(FileEx) - 1\x0d\x0a MessageBox FileEx(i)\x0d\x0a Next\x0d\x0aElse \x0d\x0a MessageBox "文迟宏件夹没有文件"\x0d\x0aEnd If

嗯，的确是，那个是默认的，这也是按键自带读文件不好的地方，如果想去掉很简单，加一些语明谈句激悄碰就行了。

Text

=

Plugin.File.ReadFileEx("D:\1.txt")

m

=

Len(Text)

Text

=

Left(Text,

m

-

1)

MessageBox

Text

这种方法，文件内容只有一行才行的，不是一行就不行，当然也可以用下面方法：

Text

=

Plugin.File.ReadFileEx("D:\1.txt")

m

=

split(Text,"运裤|")

Text

=

m(0)

MessageBox

Text

这种方法可以解决多行问题，不过，又有新问题，也就是说文件内容不能包含“|”，否则也会出错，由于按键自带读文件有缺陷，所以我都不用它，我用的是大漠插件和大兵插件，或者是懒人插件。

---