File: string1.gbs

package info (click to toggle)
gambas3 3.20.2-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 76,984 kB
  • sloc: ansic: 197,178; cpp: 124,076; sh: 18,999; javascript: 7,761; sql: 5,399; makefile: 2,354; perl: 1,397; xml: 490; python: 335
file content (23 lines) | stat: -rwxr-xr-x 388 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#!/usr/bin/env gbs3

Dim S As String = "abcdefgh" & "efghefgh"
Dim M As Integer = (1024 \ Len(S)) * 512
Dim G As String
Dim I As Integer
Dim L As Integer
Dim F As Float = Timer

While I < M + 1000

  Inc I
  G &= S
  G = Replace(G, "efgh", "____")
  L = Len(G)
  If L Mod (1024*64) = 0 Then
    Print CInt(Timer - F);" sec\t\t";L \ 1024;"kb"
    Flush
  Endif

Wend

Error CStr(Jit.Time)