Discuz!NT
欢迎 游客 , 注册 | 登录 | 界面 | 简洁版本 | 在线 | 帮助
分栏模式|网站首页|语言学网文

本主题被查看1625次, 共5个帖子, 1页, 当前为第1页     选择页数: 1      跳转到第   上一主题   下一主题
标题: 求助:怎样能查找到同语格式(X是X)的语料?北大语料库没有这一格式的语料,有同语格式语料的搜索软件吗?
 

来自:
状态: 离线
juanli1036@hotmail.com juanli1036@hotmail.com
QQ: 593953976593953976
juanli1036@hotmail.com
只看楼主 2008-03-18 10:22
求助:怎样能查找到同语格式(X是X)的语料?北大语料库没有这一格式的语料,有同语格式语料的搜索软件吗?
求助各位前辈,怎样能找到同语格式的语料,如X是X,X归X,在北大语料库中没有这一类格式的语料,只能自己输入"好是好",然后就会出现所以"好是好"的例句,怎样能找到所有同语格式的例句了?先谢谢各位了
#1  
kingsky
 

来自:
状态: 离线
kingsky@kingsky.org kingsky@kingsky.org
2008-03-19 08:42
供你参考
我给你一个能够自动搜索你所需要的语料的小工具。

请复制下面的代码1:

Public Sub Finder()
'声明原始变量
Dim a$  '记录所要搜索的字符串
Dim count_ '记录字符串出现的次数
'使用通配符
Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchFuzzy = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute
    '光标移至文档开始
Selection.HomeKey Unit:=wdStory
'显示输入对话框,将需要搜索的字符串赋给变量a$
a$ = WordBasic.[InputBox$]("查找一个词并将上下文复制在文挡2上。请填入欲找的词", "查找")
WordBasic.EditFind Find:=a$
'开始搜索操作循环
While WordBasic.EditFindFound()  '如果发现目标,则开始下面的操作
      count_ = count_ + 1      '计数器加一
      WordBasic.SentRight 1    '下面三句:选中字符串所在的一行
      WordBasic.SentLeft 1
      WordBasic.SentRight 1, 1
      WordBasic.EditCopy        '复制该行入剪贴板
      WordBasic.NextWindow      '将焦点转移至下一个Word文档
      WordBasic.Insert "  "      '插入两个空格
      WordBasic.EditPaste        '粘贴剪贴板的内容
      WordBasic.InsertPara      '换行
      WordBasic.NextWindow      '回到原来的Word文档
      WordBasic.CharLeft 1
      WordBasic.CharRight 1
      WordBasic.SentRight 1
      WordBasic.EditFind
Wend  '循环结束
'在文档中输出搜索结果
WordBasic.NextWindow  '将焦点转移至下一个Word文档
WordBasic.InsertPara  '换行
WordBasic.Insert "[包含"      '以下七句:输出字符串出现的次数
WordBasic.Insert "" + Chr(-24144) + ""
WordBasic.Insert a$
WordBasic.Insert "" + Chr(-24143) + ""
WordBasic.Insert "的句子出现次数:"
WordBasic.Insert Str(count_)
WordBasic.Insert "]"
WordBasic.NextWindow  '将焦点转移至下一个Word文档
End Sub

以上为源代码。接下来请您打开Word中的“工具——宏——宏”宏编辑器:

在菜单中选择创建(或者编辑),键入宏文件的名字:finder,系统会弹出一个编辑框:



选中右边编辑框中自动生成的命令语句(如图),将上面的代码粘贴到编辑框中(覆盖所选的命令语句),关闭编辑框,退出回到Word编辑框。
现在你的Word中的宏就具有了查找语料的功能了。现在可以调入一个电子文本(比如一篇小说),然后打开一个空白文件(用于存放寻找到的语料)。将光标停留到文件的开始部分,点击Word中的工具——宏——宏——运行,选择finder,系统会打开一个对话框,要求使用者填入所需要搜索的关键词,例如:

当关键词填入并确定之后,宏开始运行,它自动在电子文本中搜寻包含指定关键词的语句,并将这些语句复制到另一个已经打开的空白文档中。运行结束,便可以得到这一文本中所指定的包含特定关键词的所有语句。这个宏命令不仅可以查找包含特定的词的句子,也可以查找包含特定的两个词的句子,例如“连……也”,“是……的”,“不但……而且”等。只要在查找的对话框中所输入的需要查找的两个词之间输入一个星号(半角状态)即可,例如“连*也”“是*的”“不但*而且”即可。

具体的操作介绍和图片说明(计算机上的实际显示结果)请参看拙作《语言研究方法导论》3.2.2“语料库的利用”。

此书在卓越亚马逊上有。



kingsky 最后编辑于 2008-03-19 08:49:37
#2  
 

来自:
状态: 离线
juanli1036@hotmail.com juanli1036@hotmail.com
QQ: 593953976593953976
juanli1036@hotmail.com
只看楼主 2008-03-19 21:47
非常感谢!
谢谢您的帮助!对我来说太重要了!因为我正在写关于同语格式的文章,正为语料不充分不具有说服力而担心.
#3  
silu
 

来自:
状态: 离线
ijjji@163.com ijjji@163.com
QQ: 490029907490029907
2008-09-03 08:57
具体怎么操作呢??
具体怎么操作呢??
能不能烦劳给出图示
#4  
kingsky
 

来自:
状态: 离线
kingsky@kingsky.org kingsky@kingsky.org
2008-09-05 21:49
你太懒 :P
具体的操作介绍和图片说明(计算机上的实际显示结果)请参看拙作《语言研究方法导论》3.2.2“语料库的利用”。
#5  
本主题被查看1625次, 共5个帖子, 1页, 当前为第1页     选择页数: 1      跳转到第







现在的时间是 2008-12-05 06:20:56
沪ICP备010383

版权所有 东方语言学网Eastling.Org  
         Powered by Discuz!NT 1.0.2656    Copyright © 2001-2008 Comsenz Inc.
Processed in 0 seconds