Здравствуйте,
Примеры для Free Basic & Power Basic
Проблем:
' Err_print.bas '2012 - Hristo Boevski, hristojb@yahoo.com
' Bulgaria, Varna
' fbc -version: 0.23.0 (08-14-2011) for win32
' Before the execution Mark and Copy (Windows'98)WinHelp!!
' Visual Basic and Power Basic clear nonstandard chars... and not problems!
#INCLUDE "WINDOW9.BI" ' 06-02-2012
DIM AS STRING Buffer, RowStr
DIM AS INTEGER FileNum
Buffer=GetClipBoardText: Buffer=RTRIM$(Buffer): Buffer=LTRIM$(Buffer)
IF Buffer<"" or Buffer<=CHR$(0) THEN
MessBox("Who is this: Buffer < "+chr$(34)+""+chr$(34)+"??",Buffer )
MessBox("", "Firstly mark and copy (Windows'98)WinHelp !!", MB_OK)
END ' If not exist MB_OK (default) - it not work??
ENDIF
MessBox("This is well!",Buffer )
FileNum = FREEFILE
OPEN "BUFFER.TXT" FOR OUTPUT AS FileNum
PRINT #FileNum, Buffer: Close FileNum: Buffer=""
' Added: аММММММММ or Њ Њ Њ Њ Њ Њ Њ Њ in BUFFER.TXT!!
OPEN "BUFFER.TXT" FOR INPUT AS #FileNum ' "utf32"...не работает
DO UNTIL EOF(FileNum): LINE INPUT #1, RowStr :Buffer=Buffer+RowStr:Loop
MessBox("This is well, but BUFFER.TXT is NOT well !!",Buffer )
CLOSE #FileNum
SHELL("NOTEPAD.EXE BUFFER.TXT") ' что-то добавляет
END
--------------------------------------------------------------------------------------------------------------------
Хорошо:
' Pbedit'05 (хорошо для кириллицы) + Pbwin10.02 (но нет Debug)
#COMPILE EXE
#OPTION WIN95 ' поддержка UNICODE
#DIM ALL
FUNCTION PBMAIN () AS LONG
DIM Buffer AS STRING , RowStr AS STRING
DIM FileNum AS INTEGER
CLIPBOARD GET TEXT TO Buffer : Buffer=RTRIM$(Buffer): Buffer=LTRIM$(Buffer)
IF Buffer<"" THEN
MSGBOX Buffer,,"Who is this: Buffer < "+CHR$(34)+""+CHR$(34)+"??"
MSGBOX "Firstly mark and copy (Windows'98)WinHelp !!"
END
END IF
MSGBOX Buffer,,"This is well!"
FileNum = FREEFILE: OPEN "BUFFER.TXT" FOR OUTPUT AS FileNum
PRINT #FileNum, Buffer: CLOSE FileNum: Buffer=""
' Not Added: аММММММММ or Њ Њ Њ Њ Њ Њ Њ Њ in BUFFER.TXT!!
OPEN "BUFFER.TXT" FOR INPUT AS FileNum
DO UNTIL EOF(FileNum): LINE INPUT #1, RowStr :Buffer=Buffer+RowStr:LOOP
MSGBOX Buffer,,"This is well, BUFFER.TXT also is well !!"
CLOSE #FileNum
SHELL("NOTEPAD.EXE BUFFER.TXT")
END FUNCTIONДобавлено (17.05.2012, 06:13)
---------------------------------------------
Проблем: (обновление)
' Err_print.bas '2012 - Hristo Boevski, hristojb@yahoo.com
' Bulgaria, Varna
' fbc -version: 0.23.0 (08-14-2011) for win32
' Before the execution Mark and Copy (Windows'98)WinHelp!!
' Visual Basic and Power Basic clear nonstandard chars... and not problems!
#INCLUDE "WINDOW9.BI" ' 06-02-2012
DIM AS STRING Buffer, RowStr
DIM AS INTEGER FileNum
Buffer=GetClipBoardText: Buffer=RTRIM$(Buffer): Buffer=LTRIM$(Buffer)
' Еще: В FBIDE интервал (междина/межа) " " не то що в Notepad...
IF Buffer="" OR Buffer<=CHR$(0) THEN
MessBox("Who is this(1):",Buffer, MB_OK) ' Не работает если Buffer=""??
MessBox("Who is this(2):","", MB_OK) ' Работает!!
MessBox("?", "Firstly mark and copy (Windows'98)WinHelp !!")
END
ENDIF
' Buffer=Buffer+STR$(ASC(Buffer)) ' Не работает!? Not work!?
MessBox("This is well!",Buffer)
FileNum = FREEFILE: OPEN "BUFFER.TXT" FOR OUTPUT AS FileNum
PRINT #FileNum, Buffer
Close FileNum ' Здесь уже что-то добавляет в BUFFER.TXT!
Buffer=""
OPEN "BUFFER.TXT" FOR INPUT AS #FileNum ' "utf32"...не понимает!?
DO UNTIL EOF(FileNum): LINE INPUT #1, RowStr :Buffer=Buffer+RowStr:Loop
MessBox("This is well, but BUFFER.TXT is NOT well !!",Buffer )
CLOSE #FileNum
SHELL("NOTEPAD.EXE BUFFER.TXT")
END
Добавлено (17.05.2012, 06:16)
---------------------------------------------
Проблем: (обновление)
' Err_print.bas '2012 - Hristo Boevski, hristojb@yahoo.com
' Bulgaria, Varna
' fbc -version: 0.23.0 (08-14-2011) for win32
' Before the execution Mark and Copy (Windows'98)WinHelp!!
' Visual Basic and Power Basic clear nonstandard chars... and not problems!
#INCLUDE "WINDOW9.BI" ' 06-02-2012
DIM AS STRING Buffer, RowStr
DIM AS INTEGER FileNum
Buffer=GetClipBoardText: Buffer=RTRIM$(Buffer): Buffer=LTRIM$(Buffer)
' Еще: В FBIDE интервал (междина/межа) " " не то що в Notepad...
IF Buffer="" OR Buffer<=CHR$(0) THEN
MessBox("Who is this(1):",Buffer, MB_OK) ' Не работает если Buffer=""??
MessBox("Who is this(2):","", MB_OK) ' Работает!!
MessBox("?", "Firstly mark and copy (Windows'98)WinHelp !!")
END
ENDIF
' Buffer=Buffer+STR$(ASC(Buffer)) ' Не работает!? Not work!?
MessBox("This is well!",Buffer)
FileNum = FREEFILE: OPEN "BUFFER.TXT" FOR OUTPUT AS FileNum
PRINT #FileNum, Buffer
Close FileNum ' Здесь уже что-то добавляет в BUFFER.TXT!
Buffer=""
OPEN "BUFFER.TXT" FOR INPUT AS #FileNum ' "utf32"...не понимает!?
DO UNTIL EOF(FileNum): LINE INPUT #1, RowStr :Buffer=Buffer+RowStr:Loop
MessBox("This is well, but BUFFER.TXT is NOT well !!",Buffer )
CLOSE #FileNum
SHELL("NOTEPAD.EXE BUFFER.TXT")
END
