离开$ Function，循环播放：这是一个满嘴。第2卷 [英] Left$ Function, Looping through: This is a mouth full. Vol 2
问题描述
再来一次，再次感谢回复：
''建议解决方案2
''我想不创建文件而只是阅读直接用Text6.Text和
''在法律文本框中输出我的发现
''我也需要/必须，因为缺乏经验，想出来我的发现在推出之前是真的第一个
''因此Text1.Text = Text6.SelLength = Len（strGetWords）诞生了
''当为true时，Text2.Text = strGetWords
''这是问题，我搜索''使用''将它添加到Text3.Text
''Text3.Text尝试搜索下面的文字和Text1.Text将
只有在使用确实存在的情况下才是真的
''它确实，我的朋友，但是在错误的位置，我告诉VB，左$（Text3.Text，3）
''我不知道这里有什么问题，STUBBORN BEAST，你不觉得！
''无论如何，我发现用于使用，你能相信吗？是？
以下是一些说明，以前没有添加：
（1）请填写一个包含3个TextBox的表格，
将它们命名为Text6，Text3，Text2，Text1，
和一个命令按钮，将其命名为strGetWordsTEXT1
或者你可以做任何你想做的事情
（2）Text6对多行设置为True，这是添加文本的地方
（3）Text3是你的搜索框，单词''use''将被添加到那里
（4）Text2将带有找到的单词，运行代码后将显示使用
（5）Text1是一个虚拟，它包含True或false。
如果在Text6中找到使用，那么它是真的，如果没有，则为假
（6）在Text6中插入下面的文字
（7）在你的Text3中添加使用
（8）点击你的strGetWordsTEXT1命令按钮
Here it goes again, thanks again for responding:
''PROPOSED SOLUTION 2
''I wanted to not creatre a file and just read straight out of Text6.Text and
''output my findings in legal text boxes
''I also needed/had to, because OF LACK OF EXPERIENCE, figure out wheter my finding was true first
''before out putting, thus Text1.Text = Text6.SelLength = Len(strGetWords) was born
''when true, Text2.Text = strGetWords
''Here is the problem, I searched ''use'' by adding it to Text3.Text
''Text3.Text attempt to search below text and Text1.Text will
only be true if use actually exists
''It does, my friends, but in the wrong position, I told VB, Left$(Text3.Text, 3)
''I do not see what the problem is here, STUBBORN BEAST, don''t you think!
''Anyway, I found use in because, can you believe this?
Here are some instructions, not previously added:
(1)Please make up a form with 3 TextBoxes,
name them Text6, Text3, Text2, Text1,
and one command button, name it strGetWordsTEXT1
or you can do whatever you want
(2)Text6 is set True for multiline, this is where text is added
(3)Text3 is your search box, the word ''use'' will be added there
(4)Text2 will carry the word found, use will be visible after you run the code
(5)Text1 is a dummy, it holds either True or false.
If use is found in Text6, it is true, if not, False
(6)Plug in Text below in your Text6
(7)Add use in your Text3
(8)Hit your strGetWordsTEXT1 command button
推荐答案
（Text3.Text，3）
''我看不出有什么问题在这里，STUBBORN BEAST，你不觉得！
''无论如何，我发现使用了使用，你能相信吗？
这是一些我nstructions，以前没有添加：
（1）请组成一个包含3个TextBox的表单，
将它们命名为Text6，Text3，Text2，Text1，
和一个命令按钮，将其命名为strGetWordsTEXT1
或者你可以做任何你想要的事情
（2）Text6对于多行设置为True ，这是添加文字的地方
（3）Text3是你的搜索框，那里会加上''use''这个词
（4）Text2将带有找到的单词，运行代码后将显示use
（5）Text1是一个虚拟，它包含True或false。
如果在Text6中找到使用，那么它是真的，如果没有，则为假
（6）在Text6中插入下面的文字
（7）在你的Text3中添加使用
（8）点击你的strGetWordsTEXT1命令按钮
(Text3.Text, 3)
''I do not see what the problem is here, STUBBORN BEAST, don''t you think!
''Anyway, I found use in because, can you believe this?
Here are some instructions, not previously added:
(1)Please make up a form with 3 TextBoxes,
name them Text6, Text3, Text2, Text1,
and one command button, name it strGetWordsTEXT1
or you can do whatever you want
(2)Text6 is set True for multiline, this is where text is added
(3)Text3 is your search box, the word ''use'' will be added there
(4)Text2 will carry the word found, use will be visible after you run the code
(5)Text1 is a dummy, it holds either True or false.
If use is found in Text6, it is true, if not, False
(6)Plug in Text below in your Text6
(7)Add use in your Text3
(8)Hit your strGetWordsTEXT1 command button
那么，我为你写的那个单词匹配函数并没有解决问题？ （对不起，我有一段时间没见过这个帖子了。）
它仍然是你所坚持的单词/字符串匹配吗？这里的消息有点压倒性。
So, that word-matching function I wrote for you didn''t solve the problem? (Sorry, I haven''t seen the thread for a while.)
Is it still the word/string matching that you are stuck on? The message here was a bit overwhelming.
我按照你的指示，在将 As String 添加到Dim语句后几次（因为我总是使用< b> DefLng 和 Option Explicit - 旧习惯）它运行。但它似乎有一些奇怪的效果。
如果我粘贴''无论如何，我发现它是因为，你能相信这个吗？进入Text6，放入使用在Text3中按下按钮，应该会发生什么？
它发生的是放置使用在Text2中，和True在Text1中。它也是，这是我发现奇怪的部分，添加使用到Text6的末尾。所以它现在包含'''无论如何，我发现它是因为，你能相信这个使用。
它应该告诉我们是否使用使用一词出现在文字中？我会把修改后的代码版本放在一起，但这是你想要的吗？
I followed your instructions, and after adding As String to the Dim statement a couple of times (because I always use DefLng and Option Explicit - old habits) it runs. But it seems to have some strange effects.
If I paste "''Anyway, I found it in because, can you believe this" into Text6, put "use" in Text3 and hit the button, what should happen?
What does happen is that it places "use" in Text2, and "True" in Text1. It alsop, and this is the part I find odd, adds "use" onto the end of Text6. So it now contains "''Anyway, I found it in because, can you believe thisuse".
Is it just supposed to tell us whether the word "use" appears in the text? I''ll throw together a modified version of the code to do this, but is it what you want?
这篇关于离开$ Function，循环播放：这是一个满嘴。第2卷的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
