Changeset 136 for Include/Classes/System

Timestamp:

Mar 5, 2007, 8:48:19 PM (18 years ago)

Author:

OverTaker

Message:

String変更による修整。

File:

• Include/Classes/System/IO/Path.ab (modified) (7 diffs)

Include/Classes/System/IO/Path.ab

@@ -7 +7 @@
 
     Static Function GetFileName(path As String) As String
-        path.Remove(0, getLastSeparatorPosision(path) + 1)
-        Return path
+        Return path.Remove(0, getLastSeparatorPosision(path) + 1)
     End Function
 
@@ -19 +18 @@
         If extPos = -1 Then Return ""
 
-        fileName.Remove(extPos)
-        Return fileName
+        Return fileName.Remove(extPos)
     End Function
 
@@ -36 +34 @@
         If extPos = -1 Then Return ""
 
-        path.Remove(0, extPos)
-        Return path
+        Return path.Remove(0, extPos)
     End Function
     
@@ -44 +41 @@
         extPos = getExtensionPosition(path)
         If extPos => 0 Then
-            path.Remove(extPos)
+            path = path.Remove(extPos)
         End If
 
@@ -96 +93 @@
         If lastSepPos = -1 Then Return ""
 
-        path.Remove(lastSepPos)
+        path = path.Remove(lastSepPos)
         If path.Length <= 3 Then
             If IsPathRooted(path) Then Return ""
@@ -105 +102 @@
     Static Function GetPathRoot(path As String) As String
         If IsPathRooted(path) Then
-            path.Remove(3)
-            Return path
+            Return path.Remove(3)
         Else
             Return ""
@@ -145 +141 @@
         Dim lastSepPos As Long
         Dim dirSepChar As String(Chr$(DirectorySeparatorChar))
-        Dim altDirSepChar As String(Chr$(AltDirectorySeparatorChar))
         Dim volSepChar As String(Chr$(VolumeSeparatorChar))
         lastSepPos = path.LastIndexOf(dirSepChar)