Dim Mac As String Dim MacBy() As String Mac = filesys.ReadAllText(ProjectPath & "\server\config.txt") mac = mac.replace("BY-ZYXL-DATE", chr(11)) output.show(mac) '---- 字符串 MacBy = mac.Split(chr(11)) '-- 分割字符 output.show(macby.Length) '--- 长度 For Each by As String In macby '-- 取值 output.show(by) Next