for reference

Ker sefo

Dim line, column, coefMin, coefMax, lineMin, lineMax, colMin, colMax, currentLine

line = 0
column = 0

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("result.txt", True)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("stories.txt", 1)

Do Until objFile.AtEndOfStream

    line = line + 1
    currentLine = objFile.Readline
    column = Len(currentLine)

    Call doCoef(line, column)

    column = 0

Loop

a.WriteLine("Max coef: " & coefMax & " at line: " & lineMax & " and num of chars: " & colMax)
a.WriteLine("Min coef: " & coefMin & " at line: " & lineMin & " and num of chars: " & colMin)

a.Close
objFile.Close

Public Function doCoef(Byval line, Byval column)
    If line = 1 Then
	lineMin = line
	lineMax = line
	colMin = column
	colMax = column
	coefMax = line * column
	coefMin = line * column
    Elseif line > 1 Then
	If line * column > coefMax Then
	    coefMax = line * column
	    lineMax = line
	    colMax = column
	Elseif line * column < coefMin Then
	    coefMin = line * column
	    lineMin = line
	    colMin = column
	End If
    End If
End Function

Max coef: 178710 at line: 322 and num of chars: 555
Min coef: 0 at line: 6 and num of chars: 0

• Programming Challenge 4 - Delta Cpt dopel 2008-08-01 17:43:54
  • >for reference - Ker sefo 2008-09-05 06:07:28 <
  • Do I get points... - Gamma Tr The Digital Poet 2008-08-02 01:14:07
    • RE: Do I get points... - Delta Gen dopel 2008-10-10 18:52:17
      • RE: Do I get points... - Ker sefO 2008-10-11 05:34:03
        • RE: Do I get points... - Beta Gen knoledgesponge 2008-10-11 13:05:07
          • RE: Do I get points... - Delta Gen dopel 2008-10-11 14:39:13
          • RE: Do I get points... - Lambda Mar Enstyne 2008-10-11 13:08:08