[shootingstars]

 option explicit

dim fso,line,data,grade,avg,sum
dim inFile,i
sum = 0

Set fso = CreateObject("Scripting.FileSystemObject")
set inFile = fso.openTextFile("grade.dat",1)

line = infile.readline()
do while not infile.AtEndOfStream

data = spit(line)
for i = 1 to 4 
sum = sum + data(i)
next
avg = sum/4
grade = getGrade(avg)
write(data(0) & vaTab & avg & vbTab & grade & vbCrLf)
sum = 0
line = infile.readline()
Loop
infile.close()

function getGrade(n)
dim grade
if n >= 90 then
   grade = "A"
elseif n >= 80 then
   grade = "B"
elseif n >= 70 then
   grade = "C"
elseif n >= 60 then
   grade = "D"
else
   grade = "F"
end if
   getGrade = grade 
end function

sub write(s)
 wscript.stdout.write(s)
end sub

who can help me correct it

[June7]

What is not working? If you debugged and it bombed, what line of code failed?

This post has been edited by June7: 08 April 2009 - 06:50 PM

[PsychoCoder]

Are you receiving any errors? Does this code not work that way you intended it? When asking for help there are a couple items that are vital in order for someone to properly help you:

• Post the code you're having problems with (DONE)
  
• Post the exact error you're receiving, if you are receiving one
  
• If no error explain what the code is doing versus what you want it to do
  
• Post your question in the body of your post, not the description field

[shootingstars]

sorry

option explicit

dim fso,line,data,grade,avg,sum
dim inFile,i
sum = 0

Set fso = CreateObject("Scripting.FileSystemObject")
set inFile = fso.OpenTextFile("C:\grade.dat",1)

line = infile.readline()
do while not infile.AtEndOfStream
data = split(line)
for i = 1 to 4 
  sum = sum + data(i)   error right here(subscript out of range:'1')
next
avg = sum/4
grade = getGrade(avg)
write(data(0) & vaTab & avg & vbTab & grade & vbCrLf)
sum = 0
line = infile.readline()
Loop
infile.close()

function getGrade(n)
dim grade
if n >= 90 then
   grade = "A"
elseif n >= 80 then
   grade = "B"
elseif n >= 70 then
   grade = "C"
elseif n >= 60 then
   grade = "D"
else
   grade = "F"
end if
   getGrade = grade 
end function

sub write(s)
 wscript.stdout.write(s)
end sub

error after for

[June7]

This error occurs when referencing a variable as an array but code doesn't recognize it as an array or you use a row/column index value outside the boundaries of the declared array. Think you need to declare 'data' as an array and define its boundaries (1 or 2 dimensions, how many rows) in a Dim statement. Right now it's just a variant. Else use a Redim statement in code before the For line. Check MS help if you need more familiarity with how to use arrays. Here's a tutorial I found with a quick search: http://patorjk.com/p...ls/vbarrays.htm

This post has been edited by June7: 08 April 2009 - 07:54 PM

[raziel_]

rly dude i avoid using array any way you are programing on VB6.0 witch i like most is becose i use vbalGrid for my buffer or array way easy and no need to define the how big to be try using one and make it visible=false all the time the simple user will never know it is there

[GreaseMonkey]

NoBrain, on 9 Apr, 2009 - 12:14 AM, said:

rly dude i avoid using array any way you are programing on VB6.0 witch i like most is becose i use vbalGrid for my buffer or array way easy and no need to define the how big to be try using one and make it visible=false all the time the simple user will never know it is there

avoid using arrays seriously dude are you taking the p***. yu can dynamically create arrays for one

dim array1() as integer	'blank, empty array'
dim i as integer

for i = 1 to 5
	redim preserve array1(1 to i) as integer
	'increments an array as much as need, the preserve keyword keeps all previous values intact
next i

and in response to the code throwing up the errors use this technique with the data variable. just remember to increase the array size before you do anything to it, therefore not throwing any errors up.

[raziel_]

dude when i study for core C devoleper they tell me not to use dynamically arrays for reasons that you must all time think what will hapen if the size you try to resize will be smaller then the one you have now. But still i am not so good programar ty for info GreaseMonkey

This post has been edited by NoBrain: 09 April 2009 - 04:07 AM

[GreaseMonkey]

NoBrain, on 9 Apr, 2009 - 03:02 AM, said:

dude when i study for core C devoleper they tell me not to use dynamically arrays for reasons that you must all time think what will hapen if the size you try to resize will be smaller then the one you have now. But still i am not so good programar ty for info GreaseMonkey

lulz no worries fella, i kinda has that been shoved down my neck with C++ because of memory addressing etc but you may as well take advatntage of it in VB, it saved my arse many of times

[raziel_]

yes the thing i like in VB C is kind a too strict

This post has been edited by NoBrain: 09 April 2009 - 10:23 AM

[June7]

Flex Grid control is handy. According to one of my references on VB you may have to install MSFlxGrd.ocx into \Windows\System.

[raziel_]

yep

This post has been edited by NoBrain: 09 April 2009 - 10:49 AM