For each x$ in My$()

[jj2007]

I've always wondered what VB's for each var in collection syntax was good for. Now here is a test:

Code Select Expand

include \masm32\MasmBasic\MasmBasic.inc
  Init
  Dim My$()
  Dim MyDw() As DWORD ; WORD + BYTE are OK, too
  Dim MyQw() As QWORD
  Dim MyByte() As BYTE
  Dim MyR4() As REAL4
  Dim MyR8() As REAL8
  Dim MyR10() As REAL10
  Dim rc() As RECT

  For_ ecx=0 To 2 ; we create 3 elements in each array
Let My$(ecx)=Str$("String %i", ecx) ; fill the string array
mov rc(ecx, left), ecx ; fill the RECT array
push ecx
fild stack
fld1
fadd
fmul FP8(1111222233330000000.0)
fistp MyQw(ecx) ; fill the QWORD array
pop edx
add rc(ecx, left), 100
mov rc(ecx, right), ecx
add rc(ecx, right), 200
mov MyDw(ecx), ecx ; fill the DWORD array
add MyDw(ecx), 100
mov MyByte(ecx), cl
add MyByte(ecx), 100 ; fill the BYTE array
fldpi
fild MyDw(ecx)
fadd
fst MyR4(ecx) ; load real4
fst MyR8(ecx) ; and real8 arrays
fstp MyR10(ecx) ; even Real10 is OK
  Next

  PrintLine "------------- Qword array:" ; time to print the elements
  For_ each q in MyQw()
PrintLine "[", Str$(q), "]"
  Next
  PrintLine "------------- String x$:"
  For_ each x$ in My$()
PrintLine "[", x$, "]"
  Next
  PrintLine "------------- String reg32:"
  For_ each eax in My$()
PrintLine "[", eax, "]" ; jjj
  Next
  PrintLine "------------- Rect:"
  For_ each rcx in rc()
Print Str$(ForNextCounter), Tb$
PrintLine Str$("[%i] left", rcx.left), Str$(", [%i] right", rcx.right)
  Next
  PrintLine "------------- Real4:"
  For_ each varReal in MyR4()
PrintLine Str$("[%Hf]", varReal)
  Next
  PrintLine "------------- Real8:"
  For_ each varReal in MyR8()
PrintLine Str$("[%Hf]", varReal)
  Next
  PrintLine "------------- Real10:"
  For_ each varReal in MyR10()
PrintLine Str$("[%Jf]", varReal)
  Next
  Print Str$("PI=%Jf\n", PI)
  PrintLine "------------- Dword:"
  For_ each varDw in MyDw()
PrintLine Str$("[%i]", varDw), Str$("\t at ct=%i", ForNextCounter)
  Next
  PrintLine "------------- Dword (repeated):"
  For_ each varDw in MyDw()
PrintLine Str$("[%i]", varDw), Str$("\t at ct=%i", ForNextCounter)
  Next
  PrintLine "------------- Byte:"
  For_ each varDw in MyByte()
PrintLine Str$("[%i]", varDw), Str$(" - repeated: [%i]", varDw)
  Next
  Inkey "-- done -----------"
EndOfCode

Output:

Code Select Expand

------------- Qword array:
[1111222233330000000]
[2222444466660000000]
[3333666699990000000]
------------- String x$:
[String 0]
[String 1]
[String 2]
------------- String reg32:
[String 0]
[String 1]
[String 2]
------------- Rect:
0       [100] left, [200] right
1       [101] left, [201] right
2       [102] left, [202] right
------------- Real4:
[103.14159393310547]
[104.14159393310547]
[105.14159393310547]
------------- Real8:
[103.14159265358980]
[104.14159265358980]
[105.14159265358980]
------------- Real10:
[103.1415926535897932]
[104.1415926535897932]
[105.1415926535897932]
PI=3.141592653589793238
------------- Dword:
[100]    at ct=0
[101]    at ct=1
[102]    at ct=2
------------- Dword (repeated):
[100]    at ct=0
[101]    at ct=1
[102]    at ct=2
------------- Byte:
[100] - repeated: [100]
[101] - repeated: [101]
[102] - repeated: [102]
-- done -----------

Beta attached - use at your own risk, Final version uploaded on 14 May 2016. Give me feedback especially on the syntax 8)

[jj2007]

Two demos attached. This one shows the positions, dimensions and captions of all top level windows.

include \masm32\MasmBasic\MasmBasic.inc
  ct dd ?            ; global string counter
  Init

  Dim caption$()
  Dim topwinrect() As RECT
  MyEnum PROTO :DWORD, :DWORD
  invoke EnumWindows, MyEnum, 0
  Print cfm$("#\tx\ty\tw\th\tcaption")
  For_ each rcx in topwinrect()
      Print Str$("\n%i\t", ForNextCounter), Str$(rcx.left), Tb$, Str$(rcx.top), Tb$, Str$(rcx.right), Tb$, Str$(rcx.bottom), Tb$, Left$(caption$(ForNextCounter), 40)
  Next_

  Exit

MyEnum proc uses esi hwnd, dummyarg
  mov esi, Win$(hwnd)
  .if Len(esi)
      .if StringsDiffer(esi, "MSCTFIME UI")            ; exclude some
            .if StringsDiffer(esi, "Default IME")            ; boring little windows
                  Let caption$(ct)=esi
                  invoke GetWindowRect, hwnd, VarPtr(topwinrect(ct))      ; store the dimensions
                  inc ct
            .endif
      .endif
  .endif
  or eax, -1      ; continue
  ret
MyEnum endp

EndOfCode

[Siekmanski]

Code Select Expand

------------- Qword array:
[1111222233330000000]
[2222444466660000000]
[3333666699990000000]
------------- String x$:
[String 0]
[String 1]
[String 2]
------------- String reg32:
[String 0]
[String 1]
[String 2]
------------- Rect:
0       [100] left, [200] right
1       [101] left, [201] right
2       [102] left, [202] right
------------- Real4:
[103.14159393310547]
[104.14159393310547]
[105.14159393310547]
------------- Real8:
[103.14159265358980]
[104.14159265358980]
[105.14159265358980]
------------- Real10:
[103.1415926535897932]
[104.1415926535897932]
[105.1415926535897932]
PI=3.141592653589793238
------------- Dword:
[100]    at ct=0
[101]    at ct=1
[102]    at ct=2
------------- Dword (repeated):
[100]    at ct=0
[101]    at ct=1
[102]    at ct=2
------------- Byte:
[100] - repeated: [100]
[101] - repeated: [101]
[102] - repeated: [102]
-- done -----------

[jj2007]

Thanks, Marinus :icon14:

I am tempted to allow also

Code Select Expand

For_ each x$()
  Print "The element of the array: [", each, "]"
Next_

For_ each R8()
  Print Str$("The element of the array: [%f]", each)
Next_

It would be actually non-ambiguous because
- no to
- no in
- last arg must be an array identifier

But it looks a bit ugly ::)

Java solves it like this:

Code Select Expand

    for (TimerTask t : c)
        t.cancel();

When you see the colon (:) read it as "in." The loop above reads as "for each TimerTask t in c."

In short: If you don't understand The Oracle, hire an interpreter 8)