Simple ASP Application Page 2

Here’s the code for Enhanced.ASP

The function neg_to_red takes a string and
returns a string with around all the
negative numbers. This function assumes the maximum length of a line
on the report is 132 and negative sign is trailing on negative
numbers ex 12.23- Feel free to use the function if you ever find a
need for it.

function neg_to_red(line)

pos = 2

last_end = 0

Do While pos

chr1 = Mid(Line, pos, 1)

chr2 = Mid(Line, (pos – 1), 1)

chr3 = Mid(Line, (pos + 1), 1)

If ((chr1 = “-“) And (chr3 = ” “) And (IsNumeric(chr2))) then

        pnt = pos – 1

       finished = 0

       Do While finished = 0

             
If ptr

                
finished = 1

            
Else

           
If Mid(Line, pnt, 1) = ” ” Then

                 
hold_line = ““

                
build_line = build_line & Mid(Line, last_end + 1, (pnt –
last_end))

                
build_line = build_line & hold_line

                
build_line = build_line & Mid(Line, pnt + 1, (pos – (pnt)))

                
build_line = build_line & “

”

                
last_end = pos

                
finished = 1

           
Else

                   
pnt = pnt – 1

                  
If pnt = 1 Then

                       
hold_line = ““

                       
build_line = build_line & Mid(Line, last_end + 1, (pnt –
last_end + 1))

                       
build_line = build_line & hold_line

                       
build_line = build_line & Mid(Line, pnt + 1, (pos – (pnt)))

                        
build_line = build_line & “”

                       
last_end = pos

                       
finished = 1

                   
End If

             
End If

           End
If

         Loop

         End
If

    pos = pos +
1

Loop

build_line = build_line & Mid(Line, (last_end + 1), pos –
(last_end + 1))

neg_to_red = build_line

end function

%>

Here is the code that reads and displays the
text file

RESPONSE.WRITE “”

‘CHR(34) is a double quote the line
ends up being   written as

FTP_VIRTUAL_PATH =
“/REPORTS”

FTP_PATH =
SERVER.MAPPATH(FTP_VIRTUAL_PATH) ‘ Get
the physical path to the reports directory

SET O_FSO =
CREATEOBJECT(“SCRIPTING.FILESYSTEMOBJECT”)

IN_FILE = REQUEST (“E_FILE”)
        ‘Get the file name posted to the
page

FILE_NAME = FTP_PATH &
IN_FILE

SET INSTREAM = FILEOBJECT.OPENTEXTFILE
( FILE_NAME, 1, FALSE, FALSE)  ‘Open
the text file for input

RESPONSE.WRITE “

"
             

‘Use the HTML tag

meaning the
following code is preformatted(keeps the spacing)

WHILE NOT
INSTREAM.ATENDOFSTREAM     ‘Proccess until end of file reached

   IN_LINE =
INSTREAM.READLINE

   IF INSTR (IN_LINE, “-“)
THEN
           
‘ If there is a negative sign in the line
call the function neg_to_red

        
RESPONSE.WRITE     NEG_TO_RED(IN_LINE) &
“
”  

   ELSE
                                                        
‘ Else we just write back the
line

        
RESPONSE.WRITE      IN_LINE &
“
“

  END IF

WEND

%>