Считывание текста из файла

[Van-89]

Допустив в файле 100 слов... нужно каждое слово внести в переменную и после его надо будет обработать...

В общем проблема в том что целые строки берёт в одну переменную а надо только одно слово...
С цифрами проблем нету но вот с текстом проблема... помогите плиз)

VAR mass: array[1..100] of integer; i: integer;

    f1, f2: text;

Begin

Assign(f1, 'c:\book.txt');
Reset(f1);

For i:=1 to 100 do Read(f1, mass[i]);

Write(mass[2]);

Close(f1);
End.

[Hacker19_90]

а в чём проблема читайте строку и разбивайте её на слова
с помошью copy и delete

[denisbrain]

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

а в чём проблема читайте строку и разбивайте её на слова
с помошью copy и delete

пример на паскале

uses crt;
type
Tpoint=record
 x,y:integer;
end;

var
  WordEnd:array[1..60] of char;
  
Procedure init; // задаем массив знаков разделителей
begin
     WordEnd[1]:='’';WordEnd[2]:='[';WordEnd[3]:=']';WordEnd[4]:='(';WordEnd[5]:=')';
     WordEnd[6]:='{';WordEnd[7]:='}';WordEnd[8]:=':';WordEnd[9]:=',';WordEnd[10]:='–';
     WordEnd[11]:='—';WordEnd[12]:='…';WordEnd[13]:='!';WordEnd[14]:='.';WordEnd[15]:='-';
     WordEnd[16]:='‘';WordEnd[17]:='’';WordEnd[18]:='“';WordEnd[19]:='”';WordEnd[20]:='«';
     WordEnd[21]:='»';WordEnd[22]:=#39;WordEnd[23]:=';';WordEnd[24]:='/';WordEnd[25]:='/';
     WordEnd[26]:=' ';WordEnd[27]:='·';WordEnd[28]:='&';WordEnd[29]:='@';WordEnd[30]:='*';
     WordEnd[31]:='\';WordEnd[32]:='•';WordEnd[33]:='^';WordEnd[34]:='©';WordEnd[35]:='¤';
     WordEnd[36]:='†';WordEnd[37]:='‡';WordEnd[38]:='°';WordEnd[39]:='#';WordEnd[40]:='№';
     WordEnd[41]:='%';WordEnd[42]:='‰';WordEnd[43]:='¶';WordEnd[44]:='®';WordEnd[45]:='§';
     WordEnd[46]:='~';WordEnd[47]:='™';WordEnd[48]:='_';WordEnd[49]:='|';WordEnd[50]:='¦';
     WordEnd[51]:='0';WordEnd[52]:='1';WordEnd[53]:='2';WordEnd[54]:='3';WordEnd[55]:='4';
     WordEnd[56]:='5';WordEnd[57]:='6';WordEnd[58]:='7';WordEnd[59]:='8';WordEnd[60]:='9';
 end;

Function SimvolBreakWord(s:char):boolean; // Символ s:char - является знаком припенания?
var x:integer;
begin
result:=false;
   for x:=1 to 60 do
     if s=WordEnd[x] then begin result:=true; exit; end;
end;


Function GetWordCount(s:string;len:integer):integer;
 var y,x:integer;
    s2:string;
begin
  y:=0;
  s2:='';
  result:=0;
  for X:=1 to length(s) do begin
    if (ord(s[x])<33) or (SimvolBreakWord(s[x])) or (x=length(s)) then
                       begin
                       if (s2<>'') and ((len=0) or (length(s2)>=len)) then begin
                             y:=y+1;
                             end;
                             s2:='';
                          end else s2:=s2+s[x];
  end;
  result:=y;
end;
// вернуть позицию слова номер index из строки s
Function GetPosIndex(s:string;index:integer;len:integer):Tpoint;
var y,x:integer;
    s2:string;
begin
  y:=0;
  s2:='';
  result.X:=1;
  result.y:=0;
  for X:=1 to length(s) do begin
if (ord(s[x])<33) or (SimvolBreakWord(s[x])) or (x=length(s)) then
                       begin
                       if not ((SimvolBreakWord(s[x])) or (ord(s[x])<33)) then s2:=s2+s[x];
                       if (s2<>'') and ((len=0) or (length(s2)>=len))  then begin
                             y:=y+1;
                             if y=index then begin
                               result.y:=length(s2);
                               exit;
                             end
                             end;
                             s2:='';
                          end
                          else begin
                          if s2='' then result.X:=x; // запоминаем позицию начала слова
                          s2:=s2+s[x]; // копируем слово

                          end;


  end;

end;

// получить слово номер
Function GetSlovoIndex(s:string;index:integer;len:integer):string;
var pr:Tpoint;
begin
    pr:=GetPosIndex(s,index,len);
    if pr.X>0 then
    if pr.y>0 then result:=copy(s,pr.x,pr.y);

end;

var wCount:integer; // кол-во слов
    stexT:string; // текст
    x:Integer;
begin
  clrscr;
  init; // инициализация массива разделителей
  stexT:='cортировка методом bubbles (пузырьков)';
  wCount:=GetWordCount(stexT,0); // получаем кол-во слов в тексте stexT
  Writeln('Кол-во слов в тексте "'+stext+'" ', WCount);
  
  Writeln('Номер; Слово');
  for x:=1 to wCount do
  Writeln(X:4,';  "',GetSlovoIndex(stexT,x,0)+'"');

end.

[Serge_Bliznykov]

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

var
  WordEnd:array[1..60] of char;
  
Procedure init; // задаем массив знаков разделителей
begin
     WordEnd[1]:='’';WordEnd[2]:='[';WordEnd[3]:=']';WordEnd[4]:='(';WordEnd[5]:=')';
     WordEnd[6]:='{';WordEnd[7]:='}';WordEnd[8]:=':';WordEnd[9]:=',';WordEnd[10]:='–';
     WordEnd[11]:='—';WordEnd[12]:='…';WordEnd[13]:='!';WordEnd[14]:='.';WordEnd[15]:='-';
     WordEnd[16]:='‘';WordEnd[17]:='’';WordEnd[18]:='“';WordEnd[19]:='”';WordEnd[20]:='«';
     WordEnd[21]:='»';WordEnd[22]:=#39;WordEnd[23]:=';';WordEnd[24]:='/';WordEnd[25]:='/';
     WordEnd[26]:=' ';WordEnd[27]:='·';WordEnd[28]:='&';WordEnd[29]:='@';WordEnd[30]:='*';
     WordEnd[31]:='\';WordEnd[32]:='•';WordEnd[33]:='^';WordEnd[34]:='©';WordEnd[35]:='¤';
     WordEnd[36]:='†';WordEnd[37]:='‡';WordEnd[38]:='°';WordEnd[39]:='#';WordEnd[40]:='№';
     WordEnd[41]:='%';WordEnd[42]:='‰';WordEnd[43]:='¶';WordEnd[44]:='®';WordEnd[45]:='§';
     WordEnd[46]:='~';WordEnd[47]:='™';WordEnd[48]:='_';WordEnd[49]:='|';WordEnd[50]:='¦';
     WordEnd[51]:='0';WordEnd[52]:='1';WordEnd[53]:='2';WordEnd[54]:='3';WordEnd[55]:='4';
     WordEnd[56]:='5';WordEnd[57]:='6';WordEnd[58]:='7';WordEnd[59]:='8';WordEnd[60]:='9';
 end;

Денис, во-первых, строго говоря, то этот код не совсем на Паскале (на ТурбоПаскале, например, КАТЕГОРИЧЕСКИ не пойдёт...)

во-вторых, что же Вам так этот безумный набор разделителей понравился то?!
тогда уже проще описать МНОЖЕСТО ДОПУСТИМЫХ символов и любой символ, который не входит в данное множесто - значит разделитель:

  
  for i:=1 to Length(s) do
     if s[i] in ['a'..'z','A'..'Z', 'А'..'Я','а'..'п','р'..'я' ] then - БУКВА
     else НЕ БУКВА (по-вашему мнению, значит, разделитель!)

хотя для 99.9% учебных (да и не только учебных задач) вполне достаточно считать, что разделителями слов являются символы

  WordDelimiters : set of char = [' ',',','.','-','!','?',':',';',')','(','[',']'];

ну и последнее, вот, например, функция из модуля TPSTRING.PAS 5.05 (с) Copyright (c) TurboPower Software 1987. (библиотека Turbo Professional)
для подсчёта количества слов в строке:

  function WordCount(S : string; WordDelims : CharSet) : Byte;
    {-Given a set of word delimiters, return number of words in S}
  var
    Count : Byte;         
    I : Word;                
    SLen : Byte;
  begin
    SLen := Length(S); 
    Count := 0;
    I := 1;

    while I <= SLen do begin
      {skip over delimiters}
      while (I <= SLen) and (S[I] in WordDelims) do
        Inc(I);

      {if we're not beyond end of S, we're at the start of a word}
      if I <= SLen then
        Inc(Count);

      {find the end of the current word}
      while (I <= SLen) and not(S[I] in WordDelims) do
        Inc(I);
    end;

    WordCount := Count;
  end;

BTW, забавно, а чем у Вас константа WordEnd[1] отличается от WordEnd[17] ?!

[denisbrain]

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

Денис, во-первых, строго ?![/I]

bkend:=[#146,#91,#93,#40,#41,#123,#125,#58,#44,#150,#151,#133,#33,
                      #46,#45,#145,#146,#147,#148,#171,#187,#39,#59,#47,#47,#32,
                      #183,#38,#64,#42,#92,#149,#94,#169,#164,#134,#135,#176,
                      #35,#185,#37,#137,#182,#174,#167,#126,#153,#95,#124,#166,'0','1','2','3','4','5','6','7','8','9'];

endWord  = set of  #0..#255;
bkend:endWord;

список символов сам делал из Wiki пишу свой модуль разделения на слова. тестируем находим ошибки исправляем...

[Serge_Bliznykov]

Денис, Вы не читаете того, что я Вам пишу?!

во-первых, зачем ТАК МНОГО РАЗДЕЛИТЕЛЕЙ?!
во-вторых,

endWord  = set of  #0..#255;
bkend:endWord;

Это не нужно совсем! А в такой последовательности, как Вы написали, вообще некомпилированный абсурд. Константы в подобных случаях намного удобнее использовать.

в-третьих, ВАЖНО! Ваш код КОДОЗАВИСИМЫЙ!
Это коды символов ИСКЛЮЧИТЕЛЬНО для кодировки Windows (ANSI, Windows 1251), в другой кодировке это будет полный бред!
Например, Ваш код в TurboPascal (кодировка символов DOS (она же 866, она же OEM) будет считать разделителями слов следущиющие символы:

Turbo Pascal  Version 7.0  Copyright (c) 1983,92 Borland International
#133:Е
#134:Ж
#135:З
#137:Й
#145:С
#146:Т
#147:У
#148:Ф
#149:Х
#150:Ц
#151:Ч
#153:Щ
#164:д
#166:ж
#167:з
#169:й
#171:л
#174:о

ещё вопросы есть?!


p.s.

bkend:=[#146,#91,#93,#40,#41,#123,#125,#58,#44,#150,#151,#133,#33,
                      #46,#45,#145,#146,#147,#148,#171,#187,#39,#59,#47,#47,#32,

символы с кодами #146 и #47 повторяются для надёжности, как я понимаю?!

[denisbrain]

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

Денис, Вы не читаете того, что я Вам пишу?!

wiki
http://ru.wikipedia.org/wiki/%C7%ED%...ED%E0%ED%E8%FF

т.е. для дос кодировки

#32,#33,#35,#37,#38,#39,#40,#41,#42 ,#44,#45,#46,#47,#48,#49,#50,#51,#5 2, #53,#54,#55,#56,#57,#58,#59,#64,#91 ,#92,#93,#94,#95,#123,#124,#125,#12 6, #58,#197,#216,#37,#39,#39,#34,#34,# 7,#45,#45,#84,#253,#179,#21,#99,#60 ,#82,#248,#20,#250,#252,#62
такой набор символов?

[Serge_Bliznykov]

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

wiki
http://ru.wikipedia.org/wiki/%C7%ED%...ED%E0%ED%E8%FF

т.е. для дос кодировки

#32,#33,#35,#37,#38,#39,#40,#41,#42 ,#44,#45,#46,#47,#48,#49,#50,#51,#5 2, #53,#54,#55,#56,#57,#58,#59,#64,#91 ,#92,#93,#94,#95,#123,#124,#125,#12 6, #58,#197,#216,#37,#39,#39,#34,#34,# 7,#45,#45,#84,#253,#179,#21,#99,#60 ,#82,#248,#20,#250,#252,#62
такой набор символов?

Денис, Вы что, издеваетесь?

во-первых, НЕТ! в данный набора вы даже латиницу включили (а она уж в любой кодировке на одном и том же месте).

Turbo Pascal  Version 7.0  Copyright (c) 1983,92 Borland International
#82:R
#84:T
#99:c

во-вторых, уходите Вы от кодов! НЕ НУЖНЫ они Вам! Совсем!!! по крайней мере с кодами больше $7F


в-третьих, я ТРЕТИЙ раз спрашиваю, ЗАЧЕМ Вы включаете в набор ОДНИ и те же коды МНОГОКРАТНО?!!

Например, код #45 Вы включили сейчас ТРИ раза, #37 и #37 по два раза и т.д. Отсортируйте код по возрастанию значений (если уж Вам так эти коды символов в голову втемяшились, что Вы без них не можете обойтись!)

[Van-89]

К сожалению с кодом который предоставил denisbrain так и не смог разобраться((...

[Van-89]

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

а в чём проблема читайте строку и разбивайте её на слова
с помошью copy и delete

Скорей всего так и придётся делать... спс за подсказку)...