:: Архив конференции по VFP до 2005 года
Re: Приведение к нормальной форме.
Петров Андрей

Сообщений: 2506
Откуда: Химки (М.О.)
Дата регистрации: 17.04.2002
Так ты разобрался или нет?

А то в асе вроде запустил форму... А тут нет...




------------------
PS Недочитал тему до конца...
Ratings: 0 negative/0 positive
Re: Приведение к нормальной форме.
Петров Андрей

Сообщений: 2506
Откуда: Химки (М.О.)
Дата регистрации: 17.04.2002
Вот код через программу.

#DEFINE WN_ALLSENSES 0
#DEFINE WN_FIRSTPOS 1
#DEFINE WN_FIRSTLINKTYPE 1
#DEFINE WN_LASTPOS 4
#DEFINE WN_FIRSTLINKTYPE 1
#DEFINE WN_MAXLINKTYPE 22 + 9 + 1 + 2 + 1 + 2
PRIVATE wn
m.wn = CreateObject("Wordnet.Wordnet.3")
m.wn.wninit()
*!* FOR m.x=WN_FIRSTPOS TO WN_LASTPOS
*!* thisform.combo1.additem(thisform.wn.posname(m.x))
*!* ENDFOR
*!* FOR m.x=WN_FIRSTLINKTYPE TO WN_MAXLINKTYPE
*!* thisform.combo2.additem(thisform.wn.linktypename(m.x))
*!* ENDFOR
thisword = 'Comment'
* эти значения задай сам. Это уж я не знаю как те нужно...
thispos = 1 + WN_FIRSTPOS
thislinktype = 1 + WN_FIRSTLINKTYPE
*thispos = thisform.combo1.ListIndex + WN_FIRSTPOS
*thislinktype = thisform.combo2.ListIndex + WN_FIRSTLINKTYPE
*If thisform.recurse.Value = 1
* thislinktype = -thislinktype
*EndIf
thisoutput = m.wn.findtheinfo(thisword, thispos, thislinktype, WN_ALLSENSES)
=MESSAGEBOX(m.thisoutput)
m.wn=.null.




------------------
PS Недочитал тему до конца...
Ratings: 0 negative/0 positive
Re: Приведение к нормальной форме.
rusl
Автор

Сообщений: 200
Откуда: СПб
Дата регистрации: 01.02.2005
?GETWORDCOUNT( thisoutput)
возвращает 0
Ratings: 0 negative/0 positive
Re: Приведение к нормальной форме.
Петров Андрей

Сообщений: 2506
Откуда: Химки (М.О.)
Дата регистрации: 17.04.2002
Эээ а что это за зверь то?




------------------
PS Недочитал тему до конца...
Ratings: 0 negative/0 positive
Re: Приведение к нормальной форме.
rusl
Автор

Сообщений: 200
Откуда: СПб
Дата регистрации: 01.02.2005
Считает количество слов (Counts the words in a string)
Ratings: 0 negative/0 positive
Re: Приведение к нормальной форме.
Петров Андрей

Сообщений: 2506
Откуда: Химки (М.О.)
Дата регистрации: 17.04.2002
А что выдает MessageBox(thisoutput)? Наверное пустую строку. Может нету в словаре такого слова которое ты туда подставляешь...




------------------
PS Недочитал тему до конца...
Ratings: 0 negative/0 positive
Re: Приведение к нормальной форме.
rusl
Автор

Сообщений: 200
Откуда: СПб
Дата регистрации: 01.02.2005
MessageBox(thisoutput) выдает пустую строку.
Но пустую строку он выдает для ВСЕХ слов
Ratings: 0 negative/0 positive
Re: Приведение к нормальной форме.
AleksM

Сообщений: 17881
Дата регистрации: 11.11.2003
На уровне догадки. Сделай m.thisoutpup=chrtran(m.thisoutpup, chr(0),"")




------------------
Лучше переесть, чем недоспать.
Не спеши, а то успеешь.
Ratings: 0 negative/0 positive
Re: Приведение к нормальной форме.
rusl
Автор

Сообщений: 200
Откуда: СПб
Дата регистрации: 01.02.2005
Неа... Все то же
Ratings: 0 negative/0 positive


Извините, но у вас нет прав для того, чтобы оставлять сообщения в этом форуме.

On-line: 5 (Гостей: 5)

© 2000-2024 Fox Club 
Яндекс.Метрика