Пётр написал(а):
Илена написал(а):
К удивлению, не нашлось сходу функций типа printf()/fprintf()
Есть они.
Да, работают такие функции, правда, только в ANSI...
И потом, функция fprintf() не хочет понимать идентификатор PureBasic из OpenFile().
Да и функции эти, вообще говоря, с переменным числом аргументов, как их объявить-то, по-правильному? Уж Бейсик, коли, дык мог бы и перегрузить их на край...
А то у меня какие-то совсем затеи некошерные! 
Код:
ImportC ""
printf3(Format.s, Param1, Param2, Param3) As "_printf"
printf2(Format.s, Param1, Param2) As "_printf"
printf1(Format.s, Param1) As "_printf"
;printf(Format.s, ...)
fprintf(Param0, Format.s, Param1, Param2, Param3) As "_fprintf"
puts(String.s)
fopen(String.s, mode.s) As "_fopen"
fclose(file) As "_fclose"
EndImport
; кодировка ANSI
CompilerIf #PB_Compiler_ExecutableFormat<>#PB_Compiler_Console
CompilerError "Формат исполняемого файла должен быть 'Console'"
CompilerEndIf
OpenConsole()
printf1("%s" + #CRLF$, @"parrots")
printf2("%d %s" + #CRLF$, 38, @"parrots")
printf3("%s, %d %s" + #CRLF$, @"Hello", 38, @"parrots")
puts("Hello, 38 parrots")
;OpenFile(0, "test.txt", #PB_File_Append)
; запись в файл не прошла, хоть сам файл, конечно, создался
file = fopen("test.txt", "a")
fprintf(file, "%s, %d %s" + #CRLF$, @"Hello", 38, @"parrots")
fclose(file)
;CloseFile(0)
Input()Отредактировано Илена (06.07.2014 01:26:23)