blocks|key|2997039|text|在MSDN上找到的文本：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2997040|http://msdn.microsoft.com/en-us/library/aa264524(VS.60).aspx|offset|length|2997041|2997042|+Visual+Basic+for+Applications引用字符串空间不足(错误14)|blockquote|2997043|2997044|细节|2997045|Visual+Basic允许您使用非常大的字符串。但是，其他程序的要求和您操作字符串的方式可能会导致此错误。此错误有以下原因和解决方案：|2997046|2997047|要求创建用于计算的临时字符串的|2997048|表达式可能会导致此错误。例如，以下代码在某些操作系统上会导致字符串空间不足错误：|unordered-list-item|2997049|2997050|MyString+=+"Hello"
For+Count+=+1+To+100
MyString+=+MyString+&+MyString
Next+Count|code-block|syntax|javascript|2997051|2997052|将字符串赋给另一个名称的变量。*您的系统可能已耗尽内存，这会阻止字符串|2997053|2997054|正在被分配。|2997055|从内存中删除任何不必要的应用程序以创建更多空间。|2997056|有关其他信息，请选择有问题的项目，然后按F1。|2997057|entityMap|0|LINK|mutability|MUTABLE|url^0|0|0|1O|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|1H|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|1I|8|@]|9|@$D|1J|E|1K|1|1L]]|A|$]]|$1|F|3|-4|5|6|7|1M|8|@]|9|@]|A|$]]|$1|G|3|H|5|I|7|1N|8|@]|9|@]|A|$]]|$1|J|3|-4|5|6|7|1O|8|@]|9|@]|A|$]]|$1|K|3|L|5|6|7|1P|8|@]|9|@]|A|$]]|$1|M|3|N|5|6|7|1Q|8|@]|9|@]|A|$]]|$1|O|3|-4|5|6|7|1R|8|@]|9|@]|A|$]]|$1|P|3|Q|5|6|7|1S|8|@]|9|@]|A|$]]|$1|R|3|S|5|T|7|1T|8|@]|9|@]|A|$]]|$1|U|3|-4|5|6|7|1U|8|@]|9|@]|A|$]]|$1|V|3|W|5|X|7|1V|8|@]|9|@]|A|$Y|Z]]|$1|10|3|-4|5|6|7|1W|8|@]|9|@]|A|$]]|$1|11|3|12|5|I|7|1X|8|@]|9|@]|A|$]]|$1|13|3|-4|5|6|7|1Y|8|@]|9|@]|A|$]]|$1|14|3|15|5|6|7|1Z|8|@]|9|@]|A|$]]|$1|16|3|17|5|6|7|20|8|@]|9|@]|A|$]]|$1|18|3|19|5|6|7|21|8|@]|9|@]|A|$]]|$1|1A|3|-4|5|6|7|22|8|@]|9|@]|A|$]]]|1B|$1C|$5|1D|1E|1F|A|$1G|C]]]]

Text found on MSDN:

<a href="http://msdn.microsoft.com/en-us/library/aa264524(VS.60).aspx" rel="nofollow noreferrer">http://msdn.microsoft.com/en-us/library/aa264524(VS.60).aspx</a>

<blockquote>
 Visual Basic for Applications
 Reference Out of string space (Error
 14)
 
 Specifics
 
 Visual Basic permits you to use very
 large strings. However, the
 requirements of other programs and the
 way you manipulate your strings may
 cause this error. This error has the
 following causes and solutions:
 
 <ul>
 <li>Expressions requiring that temporary strings be created for
 evaluation may cause this error. For
 example, the following code causes an
 Out of string space error on some
 operating systems:</li>
 </ul>
</blockquote>

<pre><code>MyString = "Hello"
For Count = 1 To 100
MyString = MyString &amp; MyString
Next Count
</code></pre>

<blockquote>
<pre><code> Assign the string to a variable of another name.
* Your system may have run out of memory, which prevented a string from
</code></pre>
 
 being allocated.
 
 Remove any unnecessary applications from memory to create
 more space.
 
 For additional information, select the
 item in question and press F1.
</blockquote>

blocks|key|2997082|text|假设您是在循环中追加数据，请确保没有将其追加到自身，这将极快地消耗内存。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2997083|错误含义示例和描述：http://msdn.microsoft.com/en-us/library/aa264524.aspx|offset|length|2997084|entityMap|0|LINK|mutability|MUTABLE|url|http://msdn.microsoft.com/en-us/library/aa264524.aspx^0|0|A|1H|0|0^^$0|@$1|2|3|4|5|6|7|N|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|O|8|@]|9|@$D|P|E|Q|1|R]]|A|$]]|$1|F|3|-4|5|6|7|S|8|@]|9|@]|A|$]]]|G|$H|$5|I|J|K|A|$L|M]]]]

Assuming that you are appending data in a loop, ensure that it's not being appended to itself, which will eat memory extremely quickly.

Example and description of error meaning:
<a href="http://msdn.microsoft.com/en-us/library/aa264524.aspx" rel="nofollow noreferrer">http://msdn.microsoft.com/en-us/library/aa264524.aspx</a>

blocks|key|2997145|text|正如其他人指出的那样，VB中的每个字符串连接都会分配一个新的字符串，然后复制数据，然后在可能的情况下释放原始数据。在循环中，这可能会导致问题。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2997146|要解决此问题，您可以创建一个简单的StringBuilder类，如下所示：|2997147|Option+Explicit

Private+data+As+String
Private+allocLen+As+Long
Private+currentPos+As+Long

Public+Function+Text()+As+String
++Text+=+Left(data,+currentPos)
End+Function

Public+Function+Length()+As+Long
++Length+=+currentPos
End+Function

Public+Sub+Add(s+As+String)

++Dim+newLen+As+Long
++newLen+=+Len(s)
++If+((currentPos+%2B+newLen)+>+allocLen)+Then
++++data+=+data+&+Space((currentPos+%2B+newLen))
++++allocLen+=+Len(data)
++End+If

++Mid(data,+currentPos+%2B+1,+newLen)+=+s
++currentPos+=+currentPos+%2B+newLen

End+Sub

Private+Sub+Class_Initialize()
++data+=+Space(10240)
++allocLen+=+Len(data)
++currentPos+=+1
End+Sub|code-block|syntax|javascript|2997148|这个类将通过强制字符串中包含空格，然后根据需要覆盖空格来最小化字符串分配的数量。当它发现它没有足够的预初始化空间时，它会重新分配大约两倍的大小。Text方法将返回字符串中实际使用的部分。|2997149|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|N|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|O|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|P|8|@]|9|@]|A|$]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

As others have pointed out, every string concatenation in VB will allocate a new string and then copy the data over and then de-allocate the original once it can. In a loop this can cause issues.

To work around this you can create a simple StringBuilder class like this one:

<pre><code>Option Explicit

Private data As String
Private allocLen As Long
Private currentPos As Long

Public Function Text() As String
 Text = Left(data, currentPos)
End Function

Public Function Length() As Long
 Length = currentPos
End Function

Public Sub Add(s As String)

 Dim newLen As Long
 newLen = Len(s)
 If ((currentPos + newLen) &gt; allocLen) Then
 data = data &amp; Space((currentPos + newLen))
 allocLen = Len(data)
 End If

 Mid(data, currentPos + 1, newLen) = s
 currentPos = currentPos + newLen

End Sub

Private Sub Class_Initialize()
 data = Space(10240)
 allocLen = Len(data)
 currentPos = 1
End Sub
</code></pre>

This class will minimize the number of string allocations by forcing the string to be built with spaces in it and then overwriting the spaces as needed. It re-allocates to roughly double its size when it finds that it does not have enough space pre-initialized. The Text method will return the portion of the string that is actually used.

blocks|key|5252115|text|听起来像是你经常附加一个字符串。您可以尝试使用StringBuilder+class|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|5252116|此外，您可能有一些陈旧的对象，其中包含挂起的字符串，这些字符串没有被使用，应该释放。可以通过在Class_Initialize/Class_Finalize中记录对象分配/释放来检查循环引用|style|CODE|5252117|entityMap|0|LINK|mutability|MUTABLE|url|http://www.vbaccelerator.com/home/VB/Code/Techniques/StringBuilder/article.asp^0|N|J|0|0|1B|V|0^^$0|@$1|2|3|4|5|6|7|P|8|@]|9|@$A|Q|B|R|1|S]]|C|$]]|$1|D|3|E|5|6|7|T|8|@$A|U|B|V|F|G]]|9|@]|C|$]]|$1|H|3|-4|5|6|7|W|8|@]|9|@]|C|$]]]|I|$J|$5|K|L|M|C|$N|O]]]]

It sounds like you are appending a string often. You could try using a <a href="http://www.vbaccelerator.com/home/VB/Code/Techniques/StringBuilder/article.asp" rel="nofollow noreferrer">StringBuilder class</a>

Also, it could be you have some stale objects that contain strings hanging around that aren't being used and should be freed. Check for circular references perhaps by logging object allocation/frees in <code>Class_Initialize/Class_Finalize</code>

blocks|key|3841580|text|除了雅科的响应，vbAccelerator有一个很棒的String+Builder类，它完成了几乎相同的事情，但更健壮一些。作者还介绍了解决方案，解释了它是如何工作的。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|3841581|entityMap|0|LINK|mutability|MUTABLE|url|http://www.vbaccelerator.com/home/VB/Code/Techniques/StringBuilder/article.asp^0|8|D|0|0^^$0|@$1|2|3|4|5|6|7|L|8|@]|9|@$A|M|B|N|1|O]]|C|$]]|$1|D|3|-4|5|6|7|P|8|@]|9|@]|C|$]]]|E|$F|$5|G|H|I|C|$J|K]]]]

Adding to Jacco's response, <a href="http://www.vbaccelerator.com/home/VB/Code/Techniques/StringBuilder/article.asp" rel="nofollow noreferrer">vbAccelerator</a> has a great String Builder class that accomplishes much the same thing but is a little more robust. The author also walks through the solution explaining how it works.

blocks|key|751840|text|在2009年春天的某个时候，微软进行了一次XP更新，干扰了Armadillo/Silicon+Realms包装器。抛出错误14的代码行不符合逻辑。过大的字符串没有问题。这是一个简单的任务，我甚至将其更改为"foo“，但仍然出现了错误14。我认为在XP中错误地映射了错误。我们的答案是从Armadillo保护项目中删除copyMem-11，并重新包装可执行文件。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|751841|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

Sometime in the spring of 2009, Microsoft did an XP update that interferes with Armadillo/Silicon Realms wrapper. 
The line of code that was throwing error 14, Out of String space was not logical. There was no problem with a over sized string. It was a simple assignment that I even changed to be "foo" and error 14 still occurred. I think the error is mapped incorrectly in XP. 
The answer for us was to remove copyMem-11 from the Armadillo protection project and rewrap the the exe.

We are getting an error in a VB6 application that sends data back and forth over TCP sockets. We get a runtime error "out of string space". Has anyone seen this or have any thoughts on why this would happen? It seems like we are hitting some VB6 threshhold so any other thoughts would be helpful as well.

Out of String Space in Visual Basic 6

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我们在通过TCP套接字来回发送数据的VB6应用程序中遇到错误。我们得到一个运行时错误“超出字符串空间”。有没有人看到过这一点，或者对为什么会发生这种情况有任何想法？似乎我们正在达到一些VB6阈值，所以任何其他想法也将是有帮助的。

问Visual Basic 6中的字符串空间不足
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Visual Basic 6中的字符串空间不足EN