提问：
　　假设我从Excel表格中复制了一些数据到剪贴板中，比如是这样一些信息：
　　Allen12
　　Anderson13
　　Douglas12
　　Ohio49
　　
　　我怎样才能把这些名字和数字读进一个数组或者一个Grid框中呢？用Clipboard.GetText(vbCFText)只能一下子读入所有数据，而我希望一个一个地读。
　　
　　回答：
　　新建一个项目，在窗体上放两个label和一个command。以下是代码：
　　PrivateSubCommand1_Click()
　　DimvTekst$
　　
　　vTekst$="Allen12"
　　vTekst$=vTekst$&"Anderson13"
　　vTekst$=vTekst$&"Bernard14"
　　vTekst$=vTekst$&"Constance15"
　　Label1.Caption=vTekst$
　　
　　SelectCaseCommand1.Caption
　　Case"CopyClipboard"
　　Clipboard.Clear
　　Clipboard.SetTextLabel1.Caption
　　Command1.Caption="PutintoLabel"
　　Case"PutintoLabel"
　　Label2.Caption=GetPartofString(Clipboard.GetText,1)
　　Command1.Caption="CopyClipboard"
　　
　　'readinarray
　　DimvText(7)AsString
　　Dimc
　　
　　Forc=0To7
　　　　vText(c)=GetPartofString(Clipboard.GetText,c 1)
　　Nextc
　　
　　'showresult
　　Forc=0To7
　　　　MsgBoxvText(c)
　　Nextc
　　
　　EndSub
　　
　　PrivateFunctionGetPartofString(source$,part)AsString
　　Dimp,c,tmp$
　　
　　tmp$=source$
　　c=0
　　Do
　　p=InStr(tmp,Chr(32))
　　Ifp<>0Then
　　　　GetPartofString=Left(tmp,p-1)
　　　　c=c 1
　　　　tmp=Right(tmp,Len(tmp)-p)
　　EndIf
　　LoopWhilec<>part
　　
　　EndFunction
　　--1-------------------------------------------------------------
　　
　　提问：
　　我如何才能数出一个字符串中的字母数？举例来说：我想在用户按下OK时计算在Text1.Text中的字母数。
　　
　　回答：
　　使用LEN(Text1.text)命令如何？你就可以得到长度……包括空格和其它非字母的字符。所以如果你希望去掉它们的话，必须要一个小函数来检查Text1.Text中的字符是否为真正的字母：
　　
　　PublicFunctionCountCharacters(source$)AsInteger
　　Dimcounter,t
　　ConstCharacters$="abcdefghijklmnopqrstuvwxyz"
　　
　　Fort=1ToLen(source$)
　　IfInStr(Characters,LCase$(Mid$(source$,t,1)))<>0Then
　　　　counter=counter 1
　　EndIf
　　Nextt
　　CountCharacters=counter
　　EndFunction
　　
　　使用时就象这样：
　　vString$="Testing....aboutwhat?"
　　MsgBoxCountCharacters(vString$)
　　
　　--2-------------------------------------------------------------
　　
　　提问：
　　有没有人知道怎样来做这样一个特殊的循环？我需要把一个字符串，比如“Heyhowareyou”，中的每个字母放到不同的变量中。例如对上面这句话，H放在A1中，e放在A2中，以此类推。谢谢你的帮助。
　　
　　回答：
　　DimvChar()asString
　　
　　SubPlaceInArray(source$)
　　
　　Dimp
　　
　　Forp=1ToLen(source$)
　　RedimPreservevChar(p)
　　vChar(p)=Mid$(source$,p,1)
　　Nextp
　　EndSub
　　在数组vChar的每一项中就分别是给出字符串的所有字母。
　　
　　--3-------------------------------------------------------------
　　
　　提问：
　　你怎样把一个文本文件中的单词一个一个读入字符串变量中？文件中每个单词都被空格分隔。
　　
　　回答：
　　DimvWords()asString
　　
　　SubSplitStringintoWords(bron$)
　　Dimc,p,t,vCheck
　　DimTempBron$,tmp$
　　
　　'把一行输入分成单词
　　t=0
　　TempBron$=bron$
　　Forc=1ToLen(bron$)
　　p=InStr(TempBron$,Chr(32))
　　Ifp<>0Then
　　ReDimPreservevWords(t)
　　　　tmp=Left$(TempBron$,p-1)
　　　　vWords(t)=StripString(tmp)
　　　　TempBron$=Right$(TempBron$,Len(TempBron$)-p)
　　　　t=t 1
　　　　c=c p
　　EndIf
　　Nextc
　　ReDimPreservevWords(t)
　　vWords(t)=StripString(TempBron)
　　
　　EndSub
　　
　　首先你必须先读入一行文本，然后使用以上这个过程。在数组vWords中就是文本文件中的所有单词。如果你在读文件方面也需要帮助，告诉我。
　　--4-------------------------------------------------------------
　　
　　提问：
　　我需要替换窗体上所有文本框中的某一个单词，应该怎么做？先说声谢谢了。
　　
　　回答：
　　试试这个……
　　
　　'在新窗体上放一个command和三个textbox，然后加入以下代码
　　'按F5运行，注意先把Command的caption改成"&Replacesomebodywithme"
　　
　　PrivateSubCommand1_Click()
　　ConstvString$="testingforsomebodyonthenet"
　　SelectCaseCommand1.Caption
　　Case"&Replacetextinalltextboxes"
　　Text1.Text=vString
　　Text2.Text=vString
　　Text3.Text=vString
　　Command1.Caption="&Replacesomebodywithme"
　　Case"&Replacesomebodywithme"
　　CallChangeText
　　Command1.Caption="&Replacetextinalltextboxes"
　　EndSelect
　　
　　EndSub
　　
　　FunctionsReplace(SearchLineAsString,SearchForAsString,ReplaceWithAsString)
　　DimvSearchLineAsString,foundAsInteger
　　
　　found=InStr(SearchLine,SearchFor):vSearchLine=SearchLine
　　Iffound<>0Then
　　vSearchLine=""
　　Iffound>1ThenvSearchLine=Left(SearchLine,found-1)
　　vSearchLine=vSearchLine ReplaceWith
　　Iffound Len(SearchFor)-1<Len(SearchLine)Then_
　　　　vSearchLine=vSearchLine Right$(SearchLine,_
　　Len(SearchLine)-found-Len(SearchFor) 1)
　　EndIf
　　sReplace=vSearchLine
　　
　　EndFunction
　　
　　PrivateSubChangeText()
　　DimControl
　　
　　ForEachControlInForm1.Controls
　　IfTypeOfControlIsTextBoxThen
　　　　Control.Text=sReplace(Control.Text,"somebody","me")
　　EndIf
　　NextControl
　　
　　EndSub
　　--5-------------------------------------------------------------
　　
　　提问：
　　现在我有一个文本框来输入字符串。另外有60个文本框的控件数组，它们包含了我的一个字典。我设法检查字符串中的每一个单词，看它是否符合控件数组中的也就是字典中的单词。我在检验前不得不把标点全部去掉。如果整个句子都拼写对了，我发出一个消息，如果拼错了，发出另一个消息。
　　感谢所有对此提出的任何建议和想法。
　　
　　回答：
　　假定你有一个文本框来输入单词，然后你对照一个数组来检查它们……你可以使用以下代码作为你的起点……但是请考虑把你的字典转换成一个数据库，因为当它成为一个真正的字典时，数据库工作起来快得多。
　　
　　'onthegeneralsection
　　DimvWords()
　　DimMax
　　DimvCheckWord()
　　
　　PrivateForm1_Load()
　　Text1.SetFocus
　　Text1.Text="livinginamericabutnotreally"
　　Max=10
　　
　　'makearray
　　'youcanuseanasciifiletogetthewords
　　RedimvCheckWord(Max)
　　vCheckWord(0)="walther"
　　vCheckWord(1)="musch"
　　vCheckWord(2)="america"
　　vCheckWord(3)="tilburg"
　　vCheckWord(4)="hallo"
　　vCheckWord(5)="testen"
　　vCheckWord(6)="testing"
　　vCheckWord(7)="really"
　　vCheckWord(8)="visual"
　　vCheckWord(9)="basic"
　　
　　EndSub
　　
　　SubSplitStringintoWords(bron$)
　　Dimc,p,t,vCheck
　　DimTempBron$,tmp$
　　DimvOkeAsBoolean
　　
　　'splittingtheinputintowords
　　t=0
　　TempBron$=bron$
　　Forc=1ToLen(bron$)
　　p=InStr(TempBron$,Chr(32))
　　Ifp<>0Then
　　ReDimPreservevWords(t)
　　　　tmp=Left$(TempBron$,p-1)
　　　　vWords(t)=StripString(tmp)
　　　　TempBron$=Right$(TempBron$,Len(TempBron$)-p)
　　　　t=t 1
　　　　c=c p
　　EndIf
　　Nextc
　　ReDimPreservevWords(t)
　　vWords(t)=StripString(TempBron)
　　
　　'checkingagainstspellingschecker
　　vOke=False
　　Forc=0Tot
　　ForvCheck=0ToMax
　　　　IfvCheckWord(vCheck)<>vWords(c)Then
　　　　vOke=False
　　　　Else
　　　　vOke=True
　　　　vCheck=Max
　　　　EndIf
　　NextvCheck
　　IfNotvOkeThenMsgBoxvWords(c)
　　vOke=False
　　Nextc
　　
　　EndSub
　　
　　
　　PrivateSubText1_KeyPress(KeyAsciiAsInteger)
　　IfKeyAscii=13Then
　　'splitstringintowords
　　CallSplitStringintoWords(Text1.Text)
　　EndIf
　　
　　EndSub
　　
　　FunctionStripString(sourceAsString)AsString
　　ConstLetters$="abcdefghijklmnopqrstuvwxyz"
　　Dimp,tmp$
　　
　　tmp=source$
　　Forp=1ToLen(source$)
　　IfInStr(Letters,LCase(Mid$(source$,p,1)))=0Then
　　　　SelectCasep
　　　　Case1
　　　　tmp=Right$(source$,Len(source$)-p)
　　　　CaseLen(source$)
　　　　tmp=Left$(source$,Len(source$)-1)
　　　　CaseElse
　　　　tmp=Left$(source$,p)&Right$(source$,Len(source$)-p)
　　　　EndSelect
　　EndIf
　　Nextp
　　StripString=tmp
　　
　　EndFunction
　　
　　--6-------------------------------------------------------------
　　
　　提问：
　　我需要帮助，如何判断一个文件名是否有后缀名，然后剥除这个后缀。原本我是想获得文件名，然后用另一个后缀名来把它存为一个备份文件。有没有一个方便的方法，不用搜索整个路径字符串中的“”。
　　
　　回答：
　　从路径字符串的后面向前查找第一个“”，用Right$命令，这样你就可以得到文件名。
　　如果你要删掉后缀名，也这么做，只是查找第一个“.”而已。注意在W95中，文件名可以包括一个以上的“.”
　　
　　可以使用这样的代码：
　　Dimp
　　
　　FunctionGetFileName(PathString$)AsString
　　
　　GetFileName=PathString
　　Forp=Len(PathString)To0Step-1
　　IfMid$(PathString,p,1)=""then
　　GetFileName=Right$(PathString,p)
　　ExitFunction
　　EndIf
　　Nextp
　　EndFunction->