Changeset 383 for trunk/Include/Classes/ActiveBasic/Strings/Strings.ab

Timestamp:

Nov 17, 2007, 9:34:36 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

SPrintf関数の実装

File:

• trunk/Include/Classes/ActiveBasic/Strings/Strings.ab (modified) (3 diffs)

trunk/Include/Classes/ActiveBasic/Strings/Strings.ab

@@ -11 +11 @@
 
 Sub ChrFill(p As PWSTR, n As SIZE_T, c As WCHAR)
-    Dim i As SIZE_T
-    For i = 0 To ELM(n)
+    Dim i = 0 As SIZE_T
+    While i <> n
         p[i] = c
-    Next
+        i++
+    Wend
 End Sub
 
 Sub ChrFill(p As PSTR, n As SIZE_T, c As SByte)
-    Dim i As SIZE_T
-    For i = 0 To ELM(n)
+    Dim i = 0 As SIZE_T
+    While i <> n
         p[i] = c
-    Next
+        i++
+    Wend
 End Sub
 
@@ -105 +107 @@
 
 Function ChrPBrk(str As PCWSTR, cStr As SIZE_T, chars As PCWSTR, cChars As SIZE_T) As SIZE_T
-    Dim i As SIZE_T
-    For i = 0 To ELM(cStr)
+    Dim i = 0 As SIZE_T
+    While i <> cStr
         If ChrFind(chars, cChars, str[i]) <> -1 Then
             Return i
         End If
-    Next
+        i++
+    Wend
     Return -1 As SIZE_T
 End Function
 
 Function ChrPBrk(str As PCSTR, cStr As SIZE_T, Chars As PCSTR, cChars As SIZE_T) As SIZE_T
-    Dim i As SIZE_T
-    For i = 0 To ELM(cStr)
+    Dim i = 0 As SIZE_T
+    While i <> cStr
         If ChrFind(Chars, cChars, str[i]) <> -1 Then
             Return i
         End If
-    Next
+        i++
+    Wend
     Return -1 As SIZE_T
 End Function
 
 Function ChrFind(s As PCWSTR, size As SIZE_T, c As WCHAR) As SIZE_T
-    Dim i As SIZE_T
-    For i = 0 To ELM(size)
+    Dim i = 0 As SIZE_T
+    While i <> size
         If s[i] = c Then
             Return i
         End If
-    Next
+        i++
+    Wend
     Return -1 As SIZE_T
 End Function
 
 Function ChrFind(s As PCSTR, size As SIZE_T, c As CHAR) As SIZE_T
-    Dim i As SIZE_T
-    For i = 0 To ELM(size)
+    Dim i = 0 As SIZE_T
+    While i <> size
         If s[i] = c Then
             Return i
         End If
-    Next
+        i++
+    Wend
     Return -1 As SIZE_T
 End Function
@@ -210 +216 @@
     Loop
 End Function
+
 End Namespace 'Detail