Понедельник, Июль 5th, 2010

Лабораторный практикум по интеллектуальным информационным системам

Для этого исходные файлы для формирования объекты обучающей выборки должны быть средствами Word представлены в виде текстовых файлов, стандарта «Текст DOS» (без разбиения на строки).
Затем каждый из этих файлов разбивается на столько файлов, сколько в нем строк, причем имена этих файлов должны иметь вид: ####SUBSTR(File_name,4).TXT, где #### – сквозной номер файлов, соответствующий будущему номеру анкеты обучающей выборки, SUBSTR(File_name,4) – первые 4 символа имени исходного файла.
Полученные файлы должны быть помещены в поддиректорию DOB системы «Эйдос», а исходные – удалены из нее.
Это осуществляется одним из трех способов:
1. Вручную.
2. С использованием специальной программы, текст которой приводится ниже (язык программирования xBase).
3. В режиме: «Словари – Программные интерфейсы для импорта данных – Импорт данных из TXT-файлов стандарта «Текст DOS», формируем описательные шкалы и градации (рисунок 61), причем в качестве признаков выбираем слова.

Исходный текст программы записи TXT-файлов с данными по строкам
**************************************************************************
********** Разбиение текстовых файлов DOS на нумерованные файлы по строкам
********** Луценко Е.В., 03/31/04 04:24pm
**************************************************************************
scr_start=SAVESCREEN(0,0,24,79)
SHOWTIME(0,58,.T.,»rb/n»)
FOR j=0 TO 24
@j,0 SAY SPACE(80) COLOR «n/n»
NEXT
********** Удаление TXT-файлов, имена которых начинаются на 0
FILEDELETE(«0*.TXT»)
***** РЕКОГНОСЦИРОВКА
Count = ADIR(«*.TXT») && Кол-во TXT-файлов
IF Count = 0
Mess = «В текущей директории TXT-файлов не обнаружено !!!»
@15,40-LEN(Mess)/2 SAY Mess COLOR «gr+/n»
INKEY(0)
RESTSCREEN(0,0,24,79,scr_start)
SHOWTIME()
QUIT
ENDIF
PRIVATE Name[Count],Size[Count] && Имена и размеры файлов
Count = ADIR(«*.txt»,Name,Size)
SortData(Name,Size,LEN(Name),1) && Сортировка файлов по алфавиту
CrLf = CHR(13)+CHR(10) && Конец строки (абзаца) (CrLf)
*** Загрузка TXT-файлов
Num_pp = 0 && Номера выходных файлов
FOR f = 1 TO Count && Начало цикла по TXT-файлам
****** Загрузка файла
Buffer = FILESTR(Name[f],.T.)
Buffer = CHARONE(» «,Buffer) && Удаление повторяющихся пробелов
Buffer = Buffer + CrLf
Len = AT(CrLf,Buffer)
DO WHILE Len > 0 .AND. LASTKEY() <> 27 && Цикл по строкам
Len = AT(CrLf,Buffer)
IF Len > 0
****** Запись фрагмента файла
Str_pr = ALLTRIM(SUBSTR(Buffer,1,Len-1))
Fn_out = STRTRAN(STR(++Num_pp,4),» «,»0″)+SUBSTR(Name[f],1,4)+».TXT»
STRFILE(Str_pr,Fn_out)
****** Исключение из буфера записанной строки
Buffer = ALLTRIM(SUBSTR(Buffer,Len+1))
ENDIF
ENDDO
NEXT
*** Удаление исходных TXT-файлов
FOR f=1 TO Count
FILEDELETE(Name[f])
NEXT
RESTSCREEN(0,0,24,79,scr_start)
SHOWTIME()
QUIT

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121

Подробное описание кофемашина бу на сайте.

2 комментария

14.05.2013
muhammadali

plese you can help me if you know односвязный кольцевой список java if you know plese send me program


26.10.2016
Anara Saipbekova

Dear Sir/Madam,

I need contact with person who create these LabWorks

best regards

Professor
Anara Saipbekova
Osh State University
Kyrgyz Republic