AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- comentado de prueba

Browse Source
This commit is contained in:
rrene
2023-04-04 18:17:21 -07:00
parent 5578e2ff91
commit 165d9e223f
1 changed files with 49 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

99
OC/CatEstatus.aspx.vb
View File

@@ -71,7 +71,6 @@ Partial Class OC_CatEstatus
CargaEstatus()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
CargaUsuarios()
sssss()
'SOLO MUESTRA SUBPROYECTO
@@ -89,55 +88,55 @@ Partial Class OC_CatEstatus
End If
End Sub
Private Sub sssss()
Dim length = 200000
Dim concatString = ""
Dim aaa As New StringBuilder
Dim stopWatch = New Stopwatch()
stopWatch.Start()
For i As Integer = 0 To length - 1
concatString = concatString & i
Next
stopWatch.[Stop]()
aaa.Append($"String Concat took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
stopWatch.Reset()
concatString = String.Empty
stopWatch.Start()
For i As Integer = 0 To length - 1
concatString = $"{concatString}a"
Next
stopWatch.[Stop]()
aaa.Append($"String Interpolation took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
stopWatch.Reset()
concatString = String.Empty
Dim stringBuilder = New StringBuilder()
stopWatch.Start()
For i As Integer = 0 To length - 1
stringBuilder.Append("a")
Next
concatString = stringBuilder.ToString()
stopWatch.[Stop]()
aaa.Append($"String Builder took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
stopWatch.Reset()
concatString = String.Empty
stopWatch.Start()
For i As Integer = 0 To length - 1
concatString = String.Format("a{0}", i)
Next
stopWatch.[Stop]()
aaa.Append($"String.Format took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
Alert(aaa.ToString)
End Sub
'Private Sub sssss()
' Dim length = 200000
' Dim concatString = ""
' Dim aaa As New StringBuilder
' Dim stopWatch = New Stopwatch()
' stopWatch.Start()
' For i As Integer = 0 To length - 1
' concatString = concatString & i
' Next
' stopWatch.[Stop]()
' aaa.Append($"String Concat took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
' stopWatch.Reset()
' concatString = String.Empty
' stopWatch.Start()
' For i As Integer = 0 To length - 1
' concatString = $"{concatString}a"
' Next
' stopWatch.[Stop]()
' aaa.Append($"String Interpolation took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
' stopWatch.Reset()
' concatString = String.Empty
' Dim stringBuilder = New StringBuilder()
' stopWatch.Start()
' For i As Integer = 0 To length - 1
' stringBuilder.Append("a")
' Next
' concatString = stringBuilder.ToString()
' stopWatch.[Stop]()
' aaa.Append($"String Builder took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
' stopWatch.Reset()
' concatString = String.Empty
' stopWatch.Start()
' For i As Integer = 0 To length - 1
' concatString = String.Format("a{0}", i)
' Next
' stopWatch.[Stop]()
' aaa.Append($"String.Format took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
' Alert(aaa.ToString)
'End Sub
#Region "C A T A L O G O "
Public Sub CargaDatos()