Question on Scripting in Visual Basic

  • Thread starter Thread starter Time Traveler
  • Start date Start date
  • Tags Tags
    Visual
Click For Summary
To automate the analysis of multiple files in Visual Basic without manually changing file names, the script needs to dynamically construct file paths using variable values for month and time. Instead of using a static string for file paths, concatenate the month and time variables into the file name. For example, use "\diff\diff_2003_" & Mth & "_" & Tim to generate paths like "\diff\diff_2003_3_17". Additionally, utilizing the Dir() function can streamline file handling by iterating through files in a specified directory, allowing for efficient processing of multiple files without manual intervention. This approach ensures that the script can loop through all desired files automatically.
Time Traveler
Messages
4
Reaction score
0
I've been trying to figure this out for the past couple of days but I'm at a complete lost on it. I know I'm missing something or mayby it just can't be done but how can I loop over a set of files as seen in part of the script below instead of changing the file name manually?

I have a couple hundred files that I want to analyze but I don't want to have to change the time and month in the file name manually by editing the script after each run. I though something along the lines of what I have below would work but apperently it's not. Please note that I'm relatively new at Visual Basic so any imput would be appreciated.

Dim File As String
Dim File1 As String
Dim File2 As String
Dim File3 As String
Dim File4 As String

Dim Mth As Integer
Dim Tim As Integer

For Mth = 03 To 10 Step 1
For Tim = 17 To 22 Step 1
File = SurferApp.Path + "\Summer Project\data\2003"
File1 = File + "\diff\diff_2003_Mth_Tim"
File2 = File + "\Images\diff_2003_Mth_Tim"
File3 = File + "\Surfer Files\diff_2003_Mth_Tim"
File4 = File + "\Grid Files\diff_2003_Mth_Tim"

......

Next Tim
Next Mth


I should also note that the script works fine when I execute it one day at a time ... it does exactly what i want it to do ... it's only looping over all the files automatically that won't work.
 
Last edited:
Computer science news on Phys.org
perhaps its too late here for my to think clearly, but what exactly are you trying to do, you say analyze, but analyze for what?
 
Why don't you use the dir() function?

IE:

Dim temp as string
temp = dir("C:\*")
while temp <> ""
'do stuff to file (filepath = "C:\" & temp)
temp = dir() 'get next file matching last call
wend
 
Using the string "\diff\diff_2003_Mth_Tim" will not automatically substitute the values of Mth and Tim; it'll just give you a string that literally contains "\diff\diff_2003_Mth_Tim".

Instead, use something like "\diff\diff_2003_" & Mth & "_" & Tim, which will produce strings like "\diff\diff_2003_3_17".
 
Thread 'ChatGPT Examples, Good and Bad'
I've been experimenting with ChatGPT. Some results are good, some very very bad. I think examples can help expose the properties of this AI. Maybe you can post some of your favorite examples and tell us what they reveal about the properties of this AI. (I had problems with copy/paste of text and formatting, so I'm posting my examples as screen shots. That is a promising start. :smile: But then I provided values V=1, R1=1, R2=2, R3=3 and asked for the value of I. At first, it said...

Similar threads

  • · Replies 19 ·
Replies
19
Views
2K
  • · Replies 5 ·
Replies
5
Views
3K
Replies
1
Views
2K
  • · Replies 1 ·
Replies
1
Views
8K
  • · Replies 5 ·
Replies
5
Views
11K
  • · Replies 5 ·
Replies
5
Views
2K
  • · Replies 6 ·
Replies
6
Views
4K
  • · Replies 5 ·
Replies
5
Views
2K
  • · Replies 9 ·
Replies
9
Views
2K
  • · Replies 25 ·
Replies
25
Views
6K