PC Toledo

Código: Selecionar todos

PROCEDURE Main

   LOCAL cTxt, aList, cLine, cFile, aPrgList := {}, nPos, aItem

   SetMode(33,100)
   SetMode("W/B")
   CLS
   cTxt := MemoRead( "errorlist.txt" )
   aList := hb_RegExSplit( hb_Eol(), cTxt )

   FOR EACH cLine IN aList
      IF "procedure returns value" $ Lower( cLine )
         cFile := Substr( cLine, 1, At( ":", cLine ) - 1 )
         cLine := Substr( cLine, At( ":", cLine ) + 1 )
         cLine := Val( Substr( cLine, 1, At( ":", cLine ) - 1 ) )
         nPos := hb_AScan( aPrgList, { | e | e[1] == cFile } )
         IF nPos == 0
            AAdd( aPrgList, { cFile, {} } )
            nPos := Len( aPrgList )
         ENDIF
         AAdd( aPrgList[ nPos ][ 2 ], cLine )
      ENDIF
   NEXT
   hb_MemoWrit( "test.txt", hb_jsonEncode( aPrgList ) )
   FOR EACH aItem IN aPrgList
      IF File( aItem[1] )
         ? aItem[1]
         RemoveReturn( aItem[1], aItem[2] )
      ENDIF
   NEXT
   Inkey(0)

   RETURN

FUNCTION RemoveReturn( cFile, acLine )

   LOCAL cTxt, aList, cItem, nLine

   cTxt := MemoRead( cFile )
   aList := hb_RegExSplit( hb_Eol(), cTxt )

   FOR EACH nLine IN acLine
      IF nLine < Len( aList )
         IF Right( Upper( Trim( aList[ nLine ] ) ), 10 ) == "RETURN .T."
            aList[ nLine ] := Trim( aList[ nLine ] )
            aList[ nLine ] := Substr( aList[ nLine ], 1, Len( aList[ nLine ] ) - 3 )
         ENDIF
      ENDIF
   NEXT
   cTxt := ""
   FOR EACH cItem IN aList
      cTxt += cItem + hb_Eol()
   NEXT
   hb_MemoWrit( cFile, cTxt )

   RETURN Nil