검색어 입력폼

역파일

등록일 2004.12.27 파일확장자압축파일 (zip) | 가격 2,000원

소개글

명사추출및 역파일 까지 구현

컴파일 실행환경

비주얼 베이직 6.0

본문내용

Option Explicit
Public Frequency_Dictionary(1000) As String '고빈도 분석베제 배열
Public Exclusion_Dictionary(10000) As String '명사베제 단일형태소 배열
Public NameAfter_Dictionary(1 To 10, 1000) As String '후절어 배열
Public Name_Dictionary(140338) As String '명사사전 배열
Public indexStr(700) As String '명사사전 인덱스 해당명사
Public index(700) As Long '명사사전 인덱스

Public Sub Name() '명사
Dim FileNum As Integer '파일번호를 위한변수
Dim FC As String '파일내용을 줄단위로 읽는변수
Dim FileContent As String '파일내용 저장변수
Dim FileName As String '파일명
Dim k As Long
Dim i As Long

Dim longTemp As Long
Dim imsi As String '22, 23행
Dim imsiarray(20) As String '22행
Dim j As Integer '44행 임시로씀
Static longA As Long

imsi = "가나다라마바사아자차카타파하"
For j = 0 To 13
imsiarray(j) = Left(imsi, 1)
imsi = Right(imsi, 13 - j)
Next j

' < 명사사전 배열에 저장
FileName = App.Path & "\audlist.txt"
FileNum = FreeFile
Open FileName For Input As FileNum
Do Until EOF(FileNum)

압축파일 내 파일목록

1.TXT
1.vbp
1.vbw
2.TXT
3.TXT
4.TXT
5.TXT
6.TXT
7.TXT
8.TXT
9.TXT
10.TXT
11Contrary_File.bas
140,337개의 명사 리스트 파일audlist.txt
고빈도 분석 배제 어절 리스트 파일golist.txt
명사를 배제한 단일 형태소 리스트 파일mlist.txt
역파일.exe
후절어 리스트 파일houlist.txt
audlist.txt
audtk.bas
Form1.frm
Form1.frx
frmRead.frm
frmSub.frm
golist.txt
houlist.txt
mlist.txt
ModCallDoc.bas
ModCompare.bas
ModContrary_File.bas
ModDictionary.bas
ModQuickSort.bas
ModRepetition_word.bas
MSSCCPRJ.SCC
ReadText.bas
다운로드 맨위로