Storing Variables

[=?Utf-8?B?SmFzb24gSGFydHNvZQ==?=]

I have a sub routine that's passing in a variable. I need to take that
variable and store it globally...but here's what's happening.

ex: I'm executing my routine: doMyThing(path, "test")
I'm executing that command at least 10 times replacing the word test with my
next object. When im receving that variable:
Sub doMyThing(ByVal Path As String, ByVal other As String)
I can use my variable...now how can I take that variable from this sub and
pass it to another sub? Is there a way to store that variable or set during
each call of doMyThing? Does that make sense? lol

Basically I want to store it and change it during each call...i'm doing some
async stuff and need it to change each time it's called....

thanks!

[Armin Zingler]

"Jason Hartsoe" <Ja**********@d iscussions.micr osoft.comschrie b

I have a sub routine that's passing in a variable. I need to take
that variable and store it globally...but here's what's happening.

ex: I'm executing my routine: doMyThing(path, "test")
I'm executing that command at least 10 times replacing the word test
with my next object. When im receving that variable:
Sub doMyThing(ByVal Path As String, ByVal other As String)
I can use my variable...now how can I take that variable from this
sub and pass it to another sub? Is there a way to store that
variable or set during each call of doMyThing? Does that make
sense? lol

Probably it makes sense, but you should explain it to us. ;-)

Basically I want to store it and change it during each call...i'm
doing some async stuff and need it to change each time it's
called....

thanks!

Could you please give a complete example of what the input and output
values of the whole process are?
AZ

[Harry]

"Jason Hartsoe" <Ja**********@d iscussions.micr osoft.comwrote in message
news:54******** *************** ***********@mic rosoft.com...

>I have a sub routine that's passing in a variable. I need to take that
variable and store it globally...but here's what's happening.

ex: I'm executing my routine: doMyThing(path, "test")
I'm executing that command at least 10 times replacing the word test with
my
next object. When im receving that variable:
Sub doMyThing(ByVal Path As String, ByVal other As String)
I can use my variable...now how can I take that variable from this sub and
pass it to another sub? Is there a way to store that variable or set
during
each call of doMyThing? Does that make sense? lol

Basically I want to store it and change it during each call...i'm doing
some
async stuff and need it to change each time it's called....

thanks!

Don't know if I understand you correctly, but you may be looking for a
Static variable. Static variables hold their values between calls to a
method.

[Mr. Arnold]

"Jason Hartsoe" <Ja**********@d iscussions.micr osoft.comwrote in message
news:54******** *************** ***********@mic rosoft.com...

>I have a sub routine that's passing in a variable. I need to take that
variable and store it globally...but here's what's happening.

ex: I'm executing my routine: doMyThing(path, "test")
I'm executing that command at least 10 times replacing the word test with
my
next object. When im receving that variable:
Sub doMyThing(ByVal Path As String, ByVal other As String)
I can use my variable...now how can I take that variable from this sub and
pass it to another sub? Is there a way to store that variable or set
during
each call of doMyThing? Does that make sense? lol

Basically I want to store it and change it during each call...i'm doing
some
async stuff and need it to change each time it's called....

thanks!

Public HoldOther as string.

HoldOther = "Help"
doMything(path, HoldOther)
doMyThing(byval ppath as string byref pholdother as string)

dowhaterver

pholderother = "Help Me" -- and HoldOther should contain "Help Me"
I don't know if that's what you're looking for or not, well you can get
away with in C#.

[Cor Ligthert[MVP]]

Mr. Arnold,

Sorry but I am curious what you mean by this sentence, I don't understand
why it is added to your message?

I don't know if that's what you're looking for or not, well you can get
away with in C#.

Cor

[=?Utf-8?B?SmFzb24gSGFydHNvZQ==?=]

Private Sub frmMain_Load(By Val sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'To Insert start up code here.
ReadXML()
ProcessTree(myP Path)
ReadFiles(myPPa th, "HIGHRES")
ReadFiles(myPPa th, "MEDRES")
ReadFiles(myPPa th, "LOWRES")
End
End Sub

Public Sub ReadFiles(ByVal path As String, ByVal imgtype As String)
Dim di As New IO.DirectoryInf o(path & imgtype & "\")
Dim ImgExt As String
If imgtype = "HIGHRES" Then
ImgExt = "*.jpg"
Else
ImgExt = "*.*"
End If
Dim diar1 As IO.FileInfo() = di.GetFiles(Img Ext)
Dim dra As IO.FileInfo
For Each dra In diar1
ReadData(dra.Fu llName)
Next
'''*** Here is where i want to set the variable for global for each run....
''' example: highres, then set the global varable for medres etc as it's
executed
''' from frmMain. Then read that variable in any other sub below with it's
current value.
End Sub

Public Sub ReadData(ByVal Path As String)
Dim tempStateObj As New StateObj

Try

tempStateObj.fi le = New System.IO.FileS tream(Path,
IO.FileMode.Ope n)

Catch ex As System.Unauthor izedAccessExcep tion
Exit Sub
Catch ex As System.IO.IOExc eption
Exit Sub
End Try

'Debug.WriteLin e(Now & " Read Start: " &
Path.Substring( InStrRev(Path, "\")))
'Begin Write to write all images to memory then output to directories
ReDim tempStateObj.re tData(Convert.T oInt32(tempStat eObj.file.Lengt h))
tempStateObj.fi le.BeginRead(te mpStateObj.retD ata, 0,
Convert.ToInt32 (tempStateObj.f ile.Length), AddressOf OnReadDone, tempStateObj)

End Sub

Public Sub OnReadDone(ByVa l ar As IAsyncResult)
Dim state As StateObj = CType(ar.AsyncS tate, StateObj)
Dim bytesRecieved As Int32 = state.file.EndR ead(ar)

Debug.WriteLine (Now & " Read Done: " &
state.file.Name .Substring(InSt rRev(state.file .Name, "\")))

state.file.Clos e()
Dim RetNum As String
RetNum = ReturnNumbersOn ly(state.file.N ame)
Dim RNFolder As Integer
RNFolder = Len(RetNum)
Dim ReNum As Integer
Dim ReNum2 As String
Dim ReNum3 As String
ReNum2 = ""
ReNum3 = ""
Dim x As Integer
If RNFolder < 8 Then
ReNum = (8 - RNFolder)
ReNum2 = RetNum
For x = 0 To (ReNum - 1)
ReNum2 = "0" & ReNum2
Next x
ReNum3 = ReNum2
Else
ReNum3 = RetNum
End If

If Directory.Exist s(mySPath & ReNum3) Then
'Debug.WriteLin e(mySPath & "already exists")
Else
Directory.Creat eDirectory(mySP ath & ReNum3)
End If
Try
'--Open up a new file to write to

state.file = New System.IO.FileS tream(mySPath & ImgTypes & "\" &
ReNum3 & "\" & state.file.Name .Substring(InSt rRev(state.file .Name, "\")),
FileMode.Create )
'
Catch Ex As Exception
'MsgBox(Ex.Mess age)
End Try
End Sub

[=?Utf-8?B?SmFzb24gSGFydHNvZQ==?=]

I believe i figured it out by doing the following...is this proper? or a
better way?

Public Shared ImgTypes As String
Public Shared ImgExt As String
Private Sub frmMain_Load(By Val sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
ReadXML()

ImgTypes = "HIGHRESJPG "
ReadFiles(myPPa th, "HIGHRESJPG ")
ImgTypes = "MEDRESJPG"
ReadFiles(myPPa th, "MEDRESJPG" )
End
End Sub

[Armin Zingler]

"Jason Hartsoe" <Ja**********@d iscussions.micr osoft.comschrie b

I believe i figured it out by doing the following...is this proper?
or a better way?

Public Shared ImgTypes As String
Public Shared ImgExt As String
Private Sub frmMain_Load(By Val sender As System.Object, ByVal e
As System.EventArg s) Handles MyBase.Load
ReadXML()

ImgTypes = "HIGHRESJPG "
ReadFiles(myPPa th, "HIGHRESJPG ")
ImgTypes = "MEDRESJPG"
ReadFiles(myPPa th, "MEDRESJPG" )
End

End???

End Sub

I looked at the code above and I took your code from the previous
message and made it compilable, and had a look at the inline comment.
However, I'm still not sure what you're trying.

I _guess_ that the problem is the following:
The sub OnReadDone is executed asynchronusly. Right? You want to pass
information to OnReadDone. It's a different String each time, and you
don't know how to pass it. If this is correct, you can add another
property to the StateObj class, set it to any value and get the value
inside OnReadDone.

I didn't evaluate the whole concept of the task, but aren't you reading
several files in different threads? This would slow down the whole
process compared to reading them sequentially.

Setting "ImgTypes" as you've shown above will probably fail due to
asynchronous execution.
AZ

[Mr. Arnold]

"Cor Ligthert[MVP]" <no************ @planet.nlwrote in message
news:24******** *************** ***********@mic rosoft.com...

Mr. Arnold,

Sorry but I am curious what you mean by this sentence, I don't understand
why it is added to your message?

>I don't know if that's what you're looking for or not, well you can get
away with in C#.

The times I have tied to ref a variable was in C# recently where you have to
add MyMethod(ref myvar)

And then you had to do this MyMethod(ref string pmyvar). I have not tried it
in VB. My main language in .Net that I use is C#, although I have used
VB.net at client sites and used VB6 for many years. My recollection was from
VB6 on the Ref.

[Cor Ligthert[MVP]]

The rules around

C# "ref" and VB "ByRef" are exactly the same

Cor

"Mr. Arnold" <MR. Ar****@Arnold.c omschreef in bericht
news:eG******** ******@TK2MSFTN GP05.phx.gbl...

>
"Cor Ligthert[MVP]" <no************ @planet.nlwrote in message
news:24******** *************** ***********@mic rosoft.com...

>Mr. Arnold,

Sorry but I am curious what you mean by this sentence, I don't understand
why it is added to your message?

>>I don't know if that's what you're looking for or not, well you can get
away with in C#.

The times I have tied to ref a variable was in C# recently where you have
to add MyMethod(ref myvar)

And then you had to do this MyMethod(ref string pmyvar). I have not tried
it in VB. My main language in .Net that I use is C#, although I have used
VB.net at client sites and used VB6 for many years. My recollection was
from VB6 on the Ref.