PureBasic Forums - English

zer0c0de

This is a date checker program, but i would like to check the date, and if the date on the file is greater like the current date, just then repair the date of the file. Some reason the program is repair the date on the file but the date is the current date.

zer0c0de

Procedure.s CalculateTime(Time$)
If Mid(Time$,1,2) = "00"
Time$ = ReplaceString(Time$,"00","01")
ProcedureReturn Time$
EndIf

If Mid(Time$,1,2) = "01"
Time$ = ReplaceString(Time$,"01","02")
ProcedureReturn Time$
EndIf
If Mid(Time$,1,2) = "02"
Time$ = ReplaceString(Time$,"02","03 ...

zer0c0de

Code: Select all

If OpenFile(0,dir$+"/1.html")
  Repeat 
    r$ = ReadString(0)
    res = FindString(r$,"Tel: ")
    Print(res) ; This is the syntax error, how to fix it?
  Until Eof(0)

__________________________________________________
Code tags added
28.12.2015
RSBasic

zer0c0de

Thank you, Vera.

zer0c0de

It's a part of my code.
For example.

command> cd directory

When i type cd and after the cd the directory's name, the program can't change the working directory, cause the arg$ variable is empty. Why stay empty the argument?
Sorry for my bad english.

zer0c0de

Code: Select all

If Left(cmd$, 3) = "cd "
    arg$ = Mid(cmd$, 3)
    arg$ = Trim(cmd$)
    arg$ = Trim(cmd$,Chr(9))
SetCurrentDirectory(arg$)

;The arg$ is empty, why?

PureBasic Forums - English

Search found 6 matches

Re: What the matter? The program is always repair the file.

What the matter? The program is always repair the file. HELP

How to print the FindString result? (Sytax error)

Re: What is the problem? Console arguments.

Re: What is the problem? Console arguments.

What is the problem? Console arguments.