133 lines
4.3 KiB
VB.net
133 lines
4.3 KiB
VB.net
#Region "Microsoft.VisualBasic::765d3616374e97c0d4ce0e6392c22f29, Microsoft.VisualBasic.Core\Extensions\IO\NetFile.vb"
|
||
|
||
' Author:
|
||
'
|
||
' asuka (amethyst.asuka@gcmodeller.org)
|
||
' xie (genetics@smrucc.org)
|
||
' xieguigang (xie.guigang@live.com)
|
||
'
|
||
' Copyright (c) 2018 GPL3 Licensed
|
||
'
|
||
'
|
||
' GNU GENERAL PUBLIC LICENSE (GPL3)
|
||
'
|
||
'
|
||
' This program is free software: you can redistribute it and/or modify
|
||
' it under the terms of the GNU General Public License as published by
|
||
' the Free Software Foundation, either version 3 of the License, or
|
||
' (at your option) any later version.
|
||
'
|
||
' This program is distributed in the hope that it will be useful,
|
||
' but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
' GNU General Public License for more details.
|
||
'
|
||
' You should have received a copy of the GNU General Public License
|
||
' along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
|
||
|
||
' /********************************************************************************/
|
||
|
||
' Summaries:
|
||
|
||
' Module NetFile
|
||
'
|
||
' Function: GetMapPath, MapNetFile, NetFileExists, OpenNetStream
|
||
'
|
||
'
|
||
' /********************************************************************************/
|
||
|
||
#End Region
|
||
|
||
Imports System.IO
|
||
Imports System.Net
|
||
Imports System.Runtime.CompilerServices
|
||
Imports Microsoft.VisualBasic.CommandLine.Reflection
|
||
Imports Microsoft.VisualBasic.Scripting.MetaData
|
||
Imports Microsoft.VisualBasic.Text
|
||
|
||
Namespace FileIO
|
||
|
||
<Package("IO.NetFile")>
|
||
Public Module NetFile
|
||
|
||
''' <summary>
|
||
''' 将网络文件映射为本地文件，这个可以同时兼容http或者本地文件路径
|
||
''' </summary>
|
||
''' <param name="url"></param>
|
||
''' <returns></returns>
|
||
<ExportAPI("MapNetFile")>
|
||
<Extension>
|
||
Public Function MapNetFile(url As String) As String
|
||
Dim path As String = url.GetMapPath
|
||
|
||
If path.FileExists Then
|
||
Return path
|
||
Else ' 下载数据然后缓存
|
||
Call DownloadFile(url, path)
|
||
Return path
|
||
End If
|
||
End Function
|
||
|
||
<Extension>
|
||
Public Function OpenNetStream(url$, Optional encoding As Encodings = Encodings.Default) As StreamReader
|
||
Dim path$ = url.GetMapPath
|
||
Dim stream As Stream
|
||
|
||
If path.FileExists Then
|
||
Dim file As New FileStream(path, FileMode.Open)
|
||
stream = file
|
||
Else ' 网络文件
|
||
Dim WebRequest As HttpWebRequest = HttpWebRequest.Create(url)
|
||
Dim WebResponse As WebResponse = WebRequest.GetResponse
|
||
stream = WebResponse.GetResponseStream
|
||
End If
|
||
|
||
Dim out As New StreamReader(stream, encoding.CodePage)
|
||
Return out
|
||
End Function
|
||
|
||
<ExportAPI("NetFile.FileExists")>
|
||
<Extension>
|
||
Public Function NetFileExists(url As String) As Boolean
|
||
Return url.GetMapPath.FileExists
|
||
End Function
|
||
|
||
''' <summary>
|
||
''' 网络文件转换为本地文件路径
|
||
''' </summary>
|
||
''' <param name="url"></param>
|
||
''' <returns></returns>
|
||
'''
|
||
<ExportAPI("Map.Path")>
|
||
<Extension>
|
||
Public Function GetMapPath(url As String) As String
|
||
If InStr(url, "http://", CompareMethod.Text) +
|
||
InStr(url, "https://", CompareMethod.Text) > 0 Then
|
||
|
||
url = Strings.Split(url, "//").Last
|
||
|
||
Dim tokens$() = url.Split("/"c)
|
||
Dim folders As String = tokens.Take(tokens.Length - 1).JoinBy("/")
|
||
|
||
url = tokens.Last.NormalizePathString
|
||
url = App.AppSystemTemp & "/" & folders & "/" & url
|
||
|
||
Call folders.MkDIR
|
||
|
||
Return url
|
||
ElseIf InStr(url, "file://", CompareMethod.Text) = 1 Then
|
||
url = Mid(url, 8)
|
||
Return url
|
||
Else
|
||
If url.FileExists Then
|
||
Return url
|
||
Else
|
||
Throw New Exception(url & " is a unrecognized url path!")
|
||
End If
|
||
End If
|
||
End Function
|
||
End Module
|
||
End Namespace
|