[404] | 1 | /*!
|
---|
| 2 | @file Classes/System/IO/Path.ab
|
---|
| 3 | @brief ファイルパス文字列を操作する
|
---|
| 4 | @author OverTaker
|
---|
| 5 | */
|
---|
[142] | 6 |
|
---|
[271] | 7 | Namespace System
|
---|
| 8 | Namespace IO
|
---|
| 9 |
|
---|
[61] | 10 | Class Path
|
---|
| 11 | Public
|
---|
[429] | 12 | Static Const AltDirectorySeparatorChar = &H2F As StrChar '/
|
---|
| 13 | Static Const DirectorySeparatorChar = &H5C As StrChar '\
|
---|
| 14 | Static Const PathSeparator = &H3B As StrChar ';
|
---|
| 15 | Static Const VolumeSeparatorChar = &H3A As StrChar ':
|
---|
[61] | 16 |
|
---|
[429] | 17 | '----------------------------------------------------------------
|
---|
| 18 | ' パブリック メソッド
|
---|
| 19 | '----------------------------------------------------------------
|
---|
| 20 |
|
---|
| 21 | /*
|
---|
| 22 | @brief 拡張子を変更する
|
---|
| 23 | @param パス
|
---|
| 24 | @param 変更する拡張子(.を含む)
|
---|
| 25 | @return 拡張子変更後のパス
|
---|
[404] | 26 | */
|
---|
[429] | 27 | Static Function ChangeExtension(path As String, extension As String) As String
|
---|
| 28 | path = CheckPath(path)
|
---|
| 29 | If HasExtension(path) Then
|
---|
| 30 | Return path.Remove(GetExtensionIndex(path)) + extension
|
---|
| 31 | Else
|
---|
| 32 | Return path + extension
|
---|
| 33 | End If
|
---|
[61] | 34 | End Function
|
---|
| 35 |
|
---|
[429] | 36 | /*
|
---|
| 37 | @brief 二つのパスを結合する
|
---|
| 38 | @param 結合されるパス
|
---|
| 39 | @param 結合するパス
|
---|
| 40 | @return パス
|
---|
[404] | 41 | */
|
---|
[429] | 42 | Static Function Combine(path1 As String, path2 As String) As String
|
---|
| 43 | path1 = CheckPath(path1)
|
---|
| 44 | path2 = CheckPath(path2)
|
---|
| 45 | If IsPathRooted(path2) Then
|
---|
| 46 | Return path2
|
---|
| 47 | Else
|
---|
| 48 | If Not path1.EndsWith(DirectorySeparatorChar) Then
|
---|
| 49 | path1 += Chr$(DirectorySeparatorChar)
|
---|
| 50 | End If
|
---|
| 51 | Return path1 + path2
|
---|
| 52 | End If
|
---|
[61] | 53 | End Function
|
---|
| 54 |
|
---|
[429] | 55 | /*
|
---|
| 56 | @brief パス文字列からファイル名を取得する
|
---|
| 57 | @param パス
|
---|
[404] | 58 | @return ファイル名
|
---|
| 59 | */
|
---|
[429] | 60 | Static Function GetFileName(path As String) As String
|
---|
| 61 | path = CheckPath(path)
|
---|
| 62 | Dim lastSeparatorIndex = GetLastSeparatorIndex(path) As Long
|
---|
| 63 | If lastSeparatorIndex <> -1 Then
|
---|
| 64 | Return path.Substring(lastSeparatorIndex + 1)
|
---|
| 65 | Else
|
---|
| 66 | Return path
|
---|
| 67 | End If
|
---|
[61] | 68 | End Function
|
---|
| 69 |
|
---|
[429] | 70 | /*
|
---|
| 71 | @brief パス文字列からファイル名を拡張子を除いて取得する
|
---|
| 72 | @param パス
|
---|
| 73 | @return 拡張子を除いたファイル名
|
---|
[404] | 74 | */
|
---|
[429] | 75 | Static Function GetFileNameWithoutExtension(path As String) As String
|
---|
| 76 | path = GetFileName(path)
|
---|
| 77 | If HasExtension(path) Then
|
---|
| 78 | Return path.Remove(GetExtensionIndex(path))
|
---|
| 79 | Else
|
---|
| 80 | Return path
|
---|
| 81 | End If
|
---|
[61] | 82 | End Function
|
---|
[142] | 83 |
|
---|
[429] | 84 | /*
|
---|
| 85 | @brief 絶対パスを取得する
|
---|
| 86 | @param 相対パス
|
---|
| 87 | @return 絶対パス
|
---|
[404] | 88 | */
|
---|
[429] | 89 | Static Function GetFullPath(path As String) As String
|
---|
| 90 | Return Combine(System.Environment.CurrentDirectory, path)
|
---|
[61] | 91 | End Function
|
---|
| 92 |
|
---|
[429] | 93 | /*
|
---|
| 94 | @brief パス文字列から拡張子を取得する
|
---|
| 95 | @param パス
|
---|
| 96 | @return .を含む拡張子
|
---|
[404] | 97 | */
|
---|
[429] | 98 | Static Function GetExtension(path As String) As String
|
---|
| 99 | path = CheckPath(path)
|
---|
| 100 | Dim extensionIndex = GetExtensionIndex(path)
|
---|
| 101 | If extensionIndex <> -1 Then
|
---|
| 102 | Return path.Substring(extensionIndex)
|
---|
[61] | 103 | Else
|
---|
[429] | 104 | Return New String()
|
---|
[61] | 105 | End If
|
---|
| 106 | End Function
|
---|
| 107 |
|
---|
[429] | 108 | /*
|
---|
| 109 | @brief ひとつ上のディレクトリを取得する
|
---|
| 110 | @param パス
|
---|
| 111 | @return ディレクトリパス
|
---|
[404] | 112 | */
|
---|
[429] | 113 | Static Function GetDirectoryName(path As String) As String
|
---|
| 114 | path = CheckPath(path)
|
---|
| 115 | Dim lastSeparatorIndex = GetLastSeparatorIndex(path)
|
---|
| 116 | If lastSeparatorIndex = -1 Then
|
---|
| 117 | Return New String()
|
---|
| 118 | Else
|
---|
| 119 | Return path.Substring(0, lastSeparatorIndex)
|
---|
[125] | 120 | End If
|
---|
[61] | 121 | End Function
|
---|
| 122 |
|
---|
[429] | 123 | /*
|
---|
| 124 | @brief ルートディレクトリを取得する
|
---|
| 125 | @param パス
|
---|
| 126 | @return ルートディレクトリ
|
---|
[404] | 127 | */
|
---|
[429] | 128 | Static Function GetPathRoot(path As String) As String
|
---|
| 129 | path = CheckPath(path)
|
---|
[142] | 130 | If IsPathRooted(path) Then
|
---|
[429] | 131 | If path.Contains(UniformNamingConventionString) Then
|
---|
| 132 | Return path.Remove(path.IndexOf(DirectorySeparatorChar,
|
---|
| 133 | UniformNamingConventionString.Length) + 1)
|
---|
| 134 | Else
|
---|
| 135 | Return path.Remove(3)
|
---|
| 136 | End If
|
---|
[142] | 137 | Else
|
---|
[429] | 138 | Return New String()
|
---|
[142] | 139 | End If
|
---|
[61] | 140 | End Function
|
---|
| 141 |
|
---|
[404] | 142 | /*!
|
---|
[429] | 143 | @brief ランダムなファイル名を取得する
|
---|
| 144 | @param ファイルパス
|
---|
| 145 | @return ファイル名
|
---|
| 146 | 手抜き実装
|
---|
[404] | 147 | */
|
---|
[429] | 148 | Static Function GetRandomFileName() As String
|
---|
| 149 | Randomize
|
---|
| 150 | Return Str$(((Rnd() * 900000000) As Long) + 10000000)
|
---|
[61] | 151 | End Function
|
---|
| 152 |
|
---|
[404] | 153 | /*!
|
---|
[429] | 154 | @brief 一時ファイルを作成し、ファイルパスを取得する
|
---|
| 155 | @return パス
|
---|
[404] | 156 | */
|
---|
[429] | 157 | Static Function GetTempFileName() As String
|
---|
| 158 | Dim tempFileName[ELM(MAX_PATH)] As TCHAR
|
---|
| 159 | Dim len = WIN32API_GetTempFileName(GetTempPath(), "ABT", 0, tempFileName)
|
---|
| 160 | If len <> 0 Then
|
---|
| 161 | Return New String(tempFileName, len As Long)
|
---|
[61] | 162 | Else
|
---|
[429] | 163 | Throw New IOException("Path.GetTempFileName: Failed to GetTempFileName.")
|
---|
[61] | 164 | End If
|
---|
| 165 | End Function
|
---|
| 166 |
|
---|
[429] | 167 |
|
---|
| 168 | /*
|
---|
| 169 | @brief システムの一時フォルダのパス取得する
|
---|
| 170 | @return パス
|
---|
[404] | 171 | */
|
---|
[429] | 172 | Static Function GetTempPath() As String
|
---|
| 173 | Dim size = WIN32API_GetTempPath(0, 0)
|
---|
| 174 | Dim p = GC_malloc_atomic(SizeOf (TCHAR) * size) As PCTSTR
|
---|
| 175 | Dim len = WIN32API_GetTempPath(size, p)
|
---|
| 176 | If (len > size) or len = 0 Then
|
---|
| 177 | Throw New IOException("Path.GetTempPath: Failed to GetTempPath.")
|
---|
[61] | 178 | Else
|
---|
[429] | 179 | Return New String(p, len As Long)
|
---|
[61] | 180 | End If
|
---|
| 181 | End Function
|
---|
| 182 |
|
---|
[429] | 183 |
|
---|
| 184 | /*
|
---|
| 185 | @brief パスに拡張子が含まれるかどうか
|
---|
| 186 | @param パス
|
---|
| 187 | @retval True 含まれる
|
---|
| 188 | @retval False 含まれない
|
---|
[404] | 189 | */
|
---|
[429] | 190 | Static Function HasExtension(path As String) As Boolean
|
---|
| 191 | path = CheckPath(path)
|
---|
| 192 | Return GetExtensionIndex(path) <> -1
|
---|
| 193 | End Function
|
---|
[61] | 194 |
|
---|
[429] | 195 | /*
|
---|
| 196 | @brief パスが絶対パスか取得する
|
---|
| 197 | @param パス
|
---|
| 198 | @retval True 絶対パス
|
---|
| 199 | @retval False 相対パス
|
---|
| 200 | */
|
---|
| 201 | Static Function IsPathRooted(path As String) As Boolean
|
---|
| 202 | path = CheckPath(path)
|
---|
| 203 | Return path.Contains(UniformNamingConventionString) _
|
---|
| 204 | or path.Contains(VolumeSeparatorChar) _
|
---|
| 205 | or path.StartsWith(DirectorySeparatorChar)
|
---|
[61] | 206 | End Function
|
---|
| 207 |
|
---|
| 208 | Private
|
---|
[429] | 209 | Static Const ExtensionSeparatorChar = &H2E As StrChar
|
---|
[404] | 210 | Static Const InvalidPathChars = Ex"\q<>|\0\t" As String
|
---|
[429] | 211 | Static Const UniformNamingConventionString = Ex"\\\\" As String
|
---|
[61] | 212 |
|
---|
[429] | 213 | '----------------------------------------------------------------
|
---|
| 214 | ' プライベート メソッド
|
---|
| 215 | '----------------------------------------------------------------
|
---|
| 216 |
|
---|
| 217 | /*
|
---|
| 218 | @brief パスに不正な文字が含まれていないか調べる。
|
---|
| 219 | @param パス
|
---|
| 220 | @return 正しく直されたパス
|
---|
| 221 | パス末端にディレクトリ区切り記号があった場合除去する
|
---|
| 222 | ..\などが含まれるパスについては未実装
|
---|
[404] | 223 | */
|
---|
[429] | 224 | Static Function CheckPath(path As String) As String
|
---|
| 225 | path = path.Replace(AltDirectorySeparatorChar, DirectorySeparatorChar)
|
---|
| 226 |
|
---|
[404] | 227 | Dim i As Long
|
---|
| 228 | For i = 0 To ELM(InvalidPathChars.Length)
|
---|
| 229 | If path.Contains(InvalidPathChars.Substring(i, 1)) Then
|
---|
[429] | 230 | Throw New IOException("Path.CheckPath: The path contains invalidPathChars.")
|
---|
[404] | 231 | End If
|
---|
| 232 | Next
|
---|
[61] | 233 |
|
---|
[429] | 234 | If path.LastIndexOf(UniformNamingConventionString) > 0 Then
|
---|
| 235 | Throw New IOException("Path.CheckPath: The path is invalid value.")
|
---|
| 236 | End If
|
---|
| 237 |
|
---|
| 238 | If path.EndsWith(DirectorySeparatorChar) Then
|
---|
| 239 | Return path.Remove(path.Length - 1)
|
---|
| 240 | Else
|
---|
| 241 | Return path
|
---|
| 242 | End If
|
---|
[61] | 243 | End Function
|
---|
[404] | 244 |
|
---|
[429] | 245 | /*
|
---|
| 246 | @brief パスの最も後ろにあるディレクトリ区切り記号の位置を取得する
|
---|
| 247 | @param パス
|
---|
| 248 | @return インデックス
|
---|
[404] | 249 | */
|
---|
| 250 | Static Function GetLastSeparatorIndex(path As String) As Long
|
---|
[429] | 251 | Return System.Math.Max(path.LastIndexOf(DirectorySeparatorChar),
|
---|
| 252 | path.LastIndexOf(AltDirectorySeparatorChar)) As Long
|
---|
[404] | 253 | End Function
|
---|
[429] | 254 |
|
---|
| 255 | /*
|
---|
| 256 | @brief 拡張子の位置を取得する。
|
---|
| 257 | @param パス
|
---|
| 258 | @return インデックス
|
---|
| 259 | */
|
---|
| 260 | Static Function GetExtensionIndex(path As String) As Long
|
---|
| 261 | Dim extensionIndex = path.LastIndexOf(ExtensionSeparatorChar) As Long
|
---|
| 262 | If extensionIndex > GetLastSeparatorIndex(path) Then
|
---|
| 263 | Return extensionIndex
|
---|
| 264 | Else
|
---|
| 265 | Return -1
|
---|
| 266 | End If
|
---|
| 267 | End Function
|
---|
[61] | 268 | End Class
|
---|
| 269 |
|
---|
[429] | 270 | 'メソッドと名前が被るAPI
|
---|
| 271 | Function WIN32API_GetTempPath(nBufferLength As DWord, lpBuffer As PTSTR) As DWord
|
---|
[61] | 272 | Return GetTempPath(nBufferLength, lpBuffer)
|
---|
[125] | 273 | End Function
|
---|
| 274 |
|
---|
[429] | 275 | Function WIN32API_GetTempFileName (pPathName As PCTSTR, pPrefixString As PCTSTR, uUnique As DWord, pTempFileName As PTSTR) As DWord
|
---|
[125] | 276 | Return GetTempFileName(pPathName, pPrefixString, uUnique, pTempFileName)
|
---|
[271] | 277 | End Function
|
---|
| 278 |
|
---|
| 279 |
|
---|
| 280 | End Namespace
|
---|
| 281 | End Namespace
|
---|