For Each A In B Next -- loop problem

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

For Each A In B Next -- loop problem

Logged in as: Guest

arrSession:exec spGetSession 2,2,65835

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> For Each A In B Next -- loop problem
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

For Each A In B Next -- loop problem - 11/1/2008 3:46:39 PM

TKS

Posts: 187
Score: 0
Joined: 5/16/2008
Status: offline

I'm designing an Image Previewer custom hta in vbs and javascript.
Here's the code I've come up with so far for previewing images :

Definition : The above code populates the innerHTML of a div with images in a directory.

This code works, but it has one flaw.
It shows all the images in a given directory, which can be slow/ problematic.
I would like to know how to show only 20 images at a time.
And I guess this would involve an image bar right? "<< < [ 1 ] [2] [3] [4] > >>"
So if I click "1", it loads the first 20 images, but if I click "2" it loads the second 20 images.
"<<" would stand for the first 20.
"<" would stand for the previous 20.
">>" would stand for the last 20.
">" would stand for the next 20.

I know this is a lot to ask.
You guys don't have to give me all the answers here if you don't want to.
All I really need is a push in the right direction.
TNO, Dm... dudes... I'd dig to hear your opinions on the matter too if you're not too busy.
Looking forward to your responses.
TKS.

< Message edited by TKS -- 11/1/2008 3:53:17 PM >

Post #: 1

RE: For Each A In B Next -- loop problem - 11/1/2008 8:24:19 PM

TKS

Posts: 187
Score: 0
Joined: 5/16/2008
Status: offline

Ok I'm on the job guys. I think I might be getting somewhere... when I've finished compiling something I'll post it up here. *feels excited*

(in reply to TKS)

Post #: 2

RE: For Each A In B Next -- loop problem - 11/2/2008 2:01:01 AM

TKS

Posts: 187
Score: 0
Joined: 5/16/2008
Status: offline

Const ForReading = 1
               Const ForWriting = 2
               Const ForAppending = 8
               Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
               Dim objFOL : Set objFOL = objFSO.GetFolder(".")
               Dim objFILES : Set objFILES = objFOL.Files
               Dim objFILE, strPATH, I
               I = 0 
               For Each objFILE In objFILES
                   I = I + 1 
                   strPATH = objFILE.Path
                   If I > 20 Then
                   Elseif I < 21 Then 
                       window.document.getElementById("scrollboxid").innerHTML = window.document.getElementById("scrollboxid").innerHTML & _ 
                       "<img src=""" & strPATH & """ /><br/>"
                   Else 
                   End If 
               Next
               Set objFSO = Nothing
               Set objFOL = Nothing
               Set objFILES = Nothing
               Set objFILE = Nothing
               Set strPATH = Nothing

For some reason the code above isn't working the way I intended it to.

Its supposed to only display the first 20 images in the set, but it still displays them all.

Any ideas to what the problem might be?

(in reply to TKS)

Post #: 3

RE: For Each A In B Next -- loop problem - 11/2/2008 2:54:30 AM

TKS

Posts: 187
Score: 0
Joined: 5/16/2008
Status: offline

I've gone an ditched the previous script...

Const ForReading = 1
               Const ForWriting = 2
               Const ForAppending = 8
               Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
               Dim objFOL : Set objFOL = objFSO.GetFolder(".")
               Dim objFILES : Set objFILES = objFOL.Files
               Dim strCountFiles : strCountFiles = objFILES.Count
               Dim strNumber : strNumber = Round(strCountFiles/20,0)
               Dim objFILE, strPATH, I 
               I = 0 
               For Each objFILE In objFILES
                   I = I + 1 
                   strPATH = objFILE.Path
                   window.document.getElementById("scrollboxid").innerHTML = window.document.getElementById("scrollboxid").innerHTML & _ 
                   "<img src=""" & strPATH & """ /><br/>"
               Next
               Set objFSO = Nothing
               Set objFOL = Nothing
               Set objFILES = Nothing
               Set objFILE = Nothing
               Set strPATH = Nothing

Still working still waiting for some help.

(in reply to TKS)

Post #: 4

RE: For Each A In B Next -- loop problem - 11/3/2008 6:43:25 AM

TKS

Posts: 187
Score: 0
Joined: 5/16/2008
Status: offline

Ok, I'm officially lost on this one. Haven't come up with anything that works yet... anyone got any pointers? tips? anything?

(in reply to TKS)

Post #: 5

RE: For Each A In B Next -- loop problem - 11/3/2008 7:43:29 AM

ehvbs

Posts: 2224
Score: 50
Joined: 6/22/2005
From: Germany
Status: offline

Hi TKS,

some code to get you started:

Dim nWhole   : nWhole   = 46
 Dim nGrpSize : nGrpSize = 10
 Dim nGroup   : nGroup   = 4
 Dim sInp
 Do While True
    WScript.Stdout.Writeline "Group: " & nGroup
    Dim nIdx
    For nIdx = nGroup * nGrpSize To Min( (nGroup + 1) * nGrpSize, nWhole )
        WScript.Stdout.Write Right( Space( 3 ) & nIdx, 3 )
    Next
    WScript.Stdout.Writeline
    WScript.Stdout.Write "<< < "
    For nIdx = 1 To nWhole \ nGrpSize
        WScript.Stdout.Write "[" & nIdx & "]"
    Next
    WScript.Stdout.Writeline " > >> [Q:uit]"
    sInp = UCase( Trim( WScript.Stdin.Readline() ) )
    Select Case True
      Case "Q" = sInp
        Exit Do
      Case "<<" = sInp
        nGroup = 0
      Case ">>" = sInp
        nGroup = nWhole \ nGrpSize
      Case "<" = sInp
        nGroup = Max( nGroup - 1, 0 )
      Case ">" = sInp
        nGroup = Min( nGroup + 1, nWhole \ nGrpSize )
      Case Else
        If IsNumeric( sInp ) Then
           nGroup = CLng( sInp )
           nGroup = Max( 0, nGroup )
           nGroup = Min( nGroup, nWhole \ nGrpSize )
        End If
    End Select
 Loop

Function Max( vFrs, vSec )
 Max = vFrs
 If vSec > vFrs Then Max = vSec
End Function

Function Min( vFrs, vSec )
 Min = vFrs
 If vSec < vFrs Then Min = vSec
End Function

Good luck!

ehvbs

(in reply to TKS)

Post #: 6

RE: For Each A In B Next -- loop problem - 11/4/2008 11:06:42 AM

TKS

Posts: 187
Score: 0
Joined: 5/16/2008
Status: offline

Hey ehvbs thanks for the code buddy! Can't wait to dig my teeth into it, but before I do I was just wandering. I ran the thing in a .vbs file and it gave me "The handle is invalid" error at line 6. What could be wrong?

< Message edited by TKS -- 11/4/2008 11:16:57 AM >

(in reply to ehvbs)

Post #: 7

RE: For Each A In B Next -- loop problem - 11/4/2008 12:46:24 PM

dm_4ever

Posts: 2728
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

If you ever see something like this

WScript.Stdout.Writeline

....it means you need to use it using CScript.exe instead of WScript.exe....so start > run > cmd > cscript.exe scriptname.vbs

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to TKS)

Post #: 8

RE: For Each A In B Next -- loop problem - 11/5/2008 11:10:24 AM

TKS

Posts: 187
Score: 0
Joined: 5/16/2008
Status: offline

Hey dm thanks for the help. ehvb's script works beautifully now!

Its been a busy day but I finally put something together.
See if you guys like it (I think it might have a few bugs but its working nicely)

<html>
  <head>
      <script language="vbscript">
          Function Browsing()
              window.document.getElementById("idPageNumbers").innerHTML = "" 
              window.document.getElementById("idImageDump").innerHTML = "" 
              Dim objFSO           : Set objFSO         = CreateObject( "Scripting.FileSystemObject" )
              Dim objFolder       : Set objFolder     = objFSO.GetFolder( "./Images/" )
              Dim objFiles       : Set objFiles     = objFolder.Files 
              Dim objFile
              Dim nFiles           : nFiles             = objFiles.Count
              Dim nGrpLimit       : nGrpLimit         = 10
              Dim nGrps             : nGrps             = nFiles/nGrpLimit : If nGrps <> Fix(nGrps) Then nGrps = Fix(nGrps) + 1 End If 
              Dim I               : I                 = 0 
              Dim nIdx 
                  For nIdx = 1 To nGrps
                      window.document.getElementById("idPageNumbers").innerHTML = window.document.getElementById("idPageNumbers").innerHTML & _ 
                      "[<span style=""cursor:pointer;color:rgb(77,109,243);"" onClick=""imgDump('" & nIdx & "')"">" & nIdx & "</span>]"
                  Next 
                  For Each objFile In objFiles 
                      I = I + 1 
                      If I < nGrpLimit + 1 Then
                          window.document.getElementById("idImageDump").innerHTML = window.document.getElementById("idImageDump").innerHTML & _ 
                          "<img src=""" & objFile.Path & """ />"
                      Elseif I = nGrpLimit + 1 Then 
                      Else 
                      End If 
                  Next
              Set objFSO = Nothing 
              Set objFolder = Nothing 
              Set objFiles = Nothing 
              Set objFile = Nothing 
              Set nFiles = Nothing 
              Set nGrpLimit = Nothing 
              Set nGrps = Nothing 
              Set I = Nothing 
              Set nIdx = Nothing 
          End Function 
          Function imgDump(Var1)
              window.document.getElementById("idImageDump").innerHTML = "" 
              Dim objFSO             : Set objFSO         = CreateObject( "Scripting.FileSystemObject" )
              Dim objFolder         : Set objFolder     = objFSO.GetFolder( "./Images/" )
              Dim objFiles         : Set objFiles         = objFolder.Files 
              Dim objFile 
              Dim I                 : I                 = 0 
                  For Each objFile In objFiles 
                      I = I + 1 
                      If I < (Var1 - 1) * 10 Then
                      Elseif I < (Var1 * 10) Then 
                          window.document.getElementById("idImageDump").innerHTML = window.document.getElementById("idImageDump").innerHTML & _ 
                          "<img src=""" & objFile.Path & """ />"
                      Elseif I = (Var1 * 10) Then Exit For 
                      Else 
                      End If 
                  Next 
          End Function 
      </script>
  </head>
  <body>
      <div id="idPageNumbers">
      </div>
      <br/>
      <div id="idImageDump">
      </div>
      <input type="button" value="Refresh" onClick="window.location.reload()"></input>
      <input type="button" value="Initiate!" onClick="Browsing()"></input>
  </body>
</html>

(in reply to dm_4ever)

Post #: 9

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> For Each A In B Next -- loop problem

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts