使用InStr处理日文字符时出现「内存不足」的解决方法

针对处理邮件文件夹时内存不足、添加Set objItem = Nothing等释放代码仍无效，且错误触发于含日文字符的InStr判断行的问题，给出以下实用解决办法：

1. 替换字符串比较方式，规避非ASCII字符的内存泄漏 #

vbTextCompare在处理日文等非ANSI字符时，可能因字符集映射逻辑导致异常内存占用。建议改用以下两种方式：

• 改用二进制比较（vbBinaryCompare），若需忽略大小写，可先统一转换为全角/半角或大小写后再比较：

' 示例：判断strLine是否包含strEntryName（忽略大小写时先统一转小写）
If InStr(1, LCase(strLine), LCase(strEntryName), vbBinaryCompare) > 0 Then
    ' 你的业务逻辑
End If

• 用StrComp函数替代InStr做匹配判断，该函数对Unicode字符的内存管理更稳定：

' 示例：判断strLine是否以strEntryName开头（适配日文场景）
If StrComp(Left(strLine, Len(strEntryName)), strEntryName, vbTextCompare) = 0 Then
    ' 你的业务逻辑
End If

2. 强化循环内的内存清理 #

除了释放Outlook对象，还要主动清理字符串变量，避免内存堆积：

' 每处理完一行/一封邮件后执行
strLine = vbNullString
strEntryName = vbNullString
Set objMail = Nothing ' 若使用了MailItem对象
DoEvents ' 让出CPU资源，辅助内存回收

3. 优化邮件内容的读取方式 #

不要一次性加载整封邮件的正文到内存，改为逐行读取并即时处理：

Dim objMail As Outlook.MailItem
Dim arrLines() As String
Dim i As Long

Set objMail = objItem ' 假设objItem是当前处理的邮件
arrLines = Split(objMail.Body, vbCrLf) ' 按换行拆分正文

For i = LBound(arrLines) To UBound(arrLines)
    strLine = arrLines(i)
    ' 处理当前行逻辑
    strLine = vbNullString ' 即时清空当前行变量
Next i

Erase arrLines ' 释放数组内存
Set objMail = Nothing

4. 间隔触发内存回收 #

在循环中每处理一定数量的邮件后，手动触发系统内存回收：

' 模块顶部添加API声明（32位Office适用，64位需调整参数）
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

' 循环内添加：
If i Mod 10 = 0 Then ' 每处理10封邮件执行一次
    Set objItem = Nothing
    DoEvents
    Sleep 100 ' 暂停100毫秒，让系统回收内存
End If

内容的提问来源于stack exchange，提问作者alancc