ss ae:
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]entrei em vb no sv e dei play e ai esta a linha com defeito:
'Start Blank
Erase sAllCode
ReDim sDefines(0)
iFileNum = FreeFile 'Get new file number (thats not in use)
Open sfile For Input As iFileNum 'Open file Do Until EOF(iFileNum) = True 'Loop until file is at the end
Line Input #iFileNum, sTemp 'Get 1 line and put in sTemp
sTemp = Trim(Replace(sTemp, vbTab, vbNullString)) 'Trim string, get rid of all tabs
If Left(sTemp, 1) <> "#" And Trim(sTemp) <> vbNullString Then 'If line is a comment, ignore
sTotalTemp = sTotalTemp & sTemp & vbNewLine 'Add line to the string
Else
'Yeah we got include statement
If LCase(Left(sTemp,
) = "#include" Then
sTemp = Mid(sTemp, InStr(sTemp, "<") + 1, Len(sTemp) - InStr(sTemp, "<") - 1)
sTemp = ReturnstringFromFile(Path & "\" & sTemp)
sTotalTemp = sTemp & vbNewLine & sTotalTemp
ElseIf LCase(Left(sTemp, 7)) = "#define" Then
sTemp = Right(sTemp, Len(sTemp) -
sDefines(UBound(sDefines)).sVari = Mid(sTemp, 2, InStr(sTemp, "> <") - 2)
sDefines(UBound(sDefines)).sValue = Mid(sTemp, InStr(sTemp, "> <") + 3, Len(sTemp) - InStr(sTemp, "> <") - 3)
ReDim Preserve sDefines(UBound(sDefines) + 1)
End If[/code]
@ EDIT: LOL EU FUI EXCLUINDO AS LINHAS Q DEU DEBUG E É UM MONTE O.O