как работать с тхт файлами?

[uairat]

нет.не работает utf8
а как в win1251 сохранить? в блокноте нет такого варианта

[uairat]

ну помогите пожалуйста мне для одной проги нужно считывать русские символы из тхт

[MotoMustanger]

Посмотри >>тут<< В самом конце темы есть ф-я, которая переводит русскую кирилицу. Набирать текст надо через редактор в МР. У меня заработало.

[Frank]

Блин... только что сам наткнулся на эту проблему и изобрел велосипед
Вот мой вариант этой функции, у меня все работает - проверял

Function StrToUtf8(s: string;): string; // Корректирует русскую кодировку в строках взятых из ресурсов...
var i, c: integer; ch: char; ss: string;
begin
	if (pos(s,chr(65488))<>-1) or (pos(s,chr(65489))<>-1) then begin // если строка содержит русские симовлы, то
		for i:=1 to Length(s) do begin // перебираем строку
			ch:=GetChar(s,i-1); c:=ord(ch);	// берем по байтику
			if c=65488 then begin				// если байт равен 65488, то следующий байт отвечает за русскую букву
				ss:=ss+CHR(ord(GetChar(s,i))-64384);	// находим русскую букву и запоминаем
				i:=i+1;																// это чтобы мы перешли на следующую букву, а не брали следующий байт
			end
			else begin
				if c=65489 then begin						// то же самое но с другим байт-кодом
					ss:=ss+chr(ord(GetChar(s,i))-64320);
					i:=i+1;
				end
				else ss:=ss+ch;										// если это не русская буква, то просто ее добавим
			end;
		end;
		StrToUtf8:=ss;							// возвращаем откорректированный текст
	end
	else StrToUtf8:=s;			// если строка не содержала русских букв, то просто ее и возвратим...
end;

[odd]

Кому надо - вот моя процедура по перегонке текста из Win1251 (например, текстовый файл, сохраненный в блокноте как ANSI) в UTF8.

 
Function Encode(a: string): string;
var len, ch: integer;
  st: string;
begin
 st:=''; len:=Length(a)-1;
 for i:=0 to len do begin ch:=ord(GetChar(a,i));
 if ch>126 then st:=st+chr(ch+1104) else st:=st+chr(ch); end;
 Encode:=st;
end;

[rimm]

Для сохранения в формате win1251 и не только поможет текстовый редактор EmEditor

[rimm]

И вот такой вопрос: почему бы не считывать инфу с текстового ресурса побайтово? Подскажите код символа перехода на новую строку please...

[odd]

Коды перехода на новую строку в Windows: 0x0D 0x0A (в десятичной: 13 и 10) они всегда должны идти в паре и именно в такой последовательности. Можно читать и побайтово, но скорость чтения упадет раза в 2, а это не есть гуд. Лучше читать строками, а в конце строки ставить только символ с кодом 0x0D и всё будет работать и давать неплохую экономию памяти если строк очень много. Для обработки текстовых файлов я использую MiBEditor 1.26. Там просто ставишь формат файла "Mac" и он автоматом все переносы строки делает 0x0D.

[rimm]

Как я понял, функция readLine считывает следующую строку из ресурса. Значит, если в ресурсе несколько строк то функция должна вызываться циклически (например, в цикле с предусловием resourceAvailable(res)=true). Только вот облом какой-то: ресурс не содержит кирилицы, написан в редакторе MP, в нем 3 строки:
some text for trying it to output
string2
string3
Но эмулятор (MidpX J2ME Emulators Package) ничего не показывает.
Считывание же 1-ой строки без цикла свой результат приносит.
В чем же дело???
program OpenTxtResourse;
var
s: array[1..10] of string;
m: array[1..10] of integer;
res : resource;
line : string;
index : integer;
begin
res := OpenResource('/data1.txt');
while resourceAvailable(res) do
begin
s[2] := ReadLine(res);
line:=line+s[2];
end;
closeResource(res);
showForm;
index := formAddString('Byte is: ' + line);
delay(10000);
end.

[ViNT]

resourceAvailable(res) указывает на доступность ресурса, поэтому программа просто зависает, так как ресурс доступен и resourceAvailable(res) всегда = true.
Помоему надо делать так:

var
buf:string;
begin
...
buf:='x';
while buf<>'' do
begin

buf := ReadLine(res);
s[2]:=buf;
line:=line+s[2];
end;
index := formAddString('Byte is: ' + line);

[rimm]

Точно. Как я раньше не допер! А можно в условии указать readline(res)<>'' Тогда и переменная buf не нужна (мелочь, а приятно )...

[odd]

Сообщение от rimm

Точно. Как я раньше не допер! А можно в условии указать readline(res)<>'' Тогда и переменная buf не нужна (мелочь, а приятно )...

Не, так указывать нельзя. Ты же строку в итоге потеряешь.
Кстати, не стоит забывать об известном глюке MP: при достижении конца файла он должен возращать пустую строку, но такого почему-то не происходит. Так что условие byf<>'' будет ввыполняться всегда и соответственно и текстовый файл вы будете читать до бесконечности (программа зависнет в бесконечном цикле). Для решения этой проблемы надо в конце файла прописать какую-нибудь текстовую константу, служащую маркером конца файла. Например, в конце пишем строку ###
, условие выхода из цикла тогда будет buf<>'###'.

[rimm]

Да, TurboPascalевские замашки, похоже, здесь не пройдут...

[slotoskol]

спасибо большое

[BrainPhP]

Добрый день!
с файлами все ясно, кириллицу можно увидить исспользуя, функцию предоставленную ODDом,
при этом файл может быть в ДОС кодировке..
респект ODD!

подскажите как добиться русских букв, если мы тянем данные с сайта,
в какой кодировке нужно слать данные?


на стороне сервера пробывал следующее:

// из win1251 в utf-8
$nstr = iconv("CP1251","UTF-8", $nstr);

// из win1251 в DOS
$nstr = iconv("CP1251","CP866", $nstr);

// win1251 (без функции iconv)

не помогло(
ребята, подскажите как быть?