Function read_data_string(ByVal FileNameStr As String) As String '------读取指定路径数据On Error Resume NextDim FileNum As Long, bitstr() As Byte: FileNum = FreeFileOpen FileNameStr For Binary As #FileNumReDim bitstr(1 To LOF(FileNum))Get #FileNum, , bitstrClose #FileNumread_data_string = Trim(StrConv(bitstr(), vbUnicode))
End Function本文发布于:2024-01-28 02:15:21，感谢您对本站的认可！
本文链接：https://www.4u4v.net/it/17063793294064.html
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系，我们将在24小时内删除。
| 留言与评论（共有 0 条评论） |
