如何在MS Access中提取磁条卡扫描字符串第2-26位的25个有效字符？

这问题我之前帮不少做客户管理系统的朋友处理过，磁条扫描仪确实经常会附带起始/结束标记和额外的轨道数据，咱们直接上几个实用的方案，完美提取你需要的25位卡号：

1. 用Access内置函数快速提取（适合查询/计算字段） #

Access的Mid()函数刚好能满足你的需求——它可以从指定位置开始，提取指定长度的字符串。你需要的是从第2位开始，取25个字符，直接用这个表达式就行：

Mid([磁条卡号字段名], 2, 25)

• 如果你要批量清理已有的数据，新建一个查询，把这个表达式作为字段，就能批量生成干净的卡号；
• 要是想永久存储清理后的卡号，可以给表加一个计算字段，把这个表达式填进去，系统会自动帮你生成对应的值。

2. 表单实时自动处理（适合录入时即时清理） #

如果是在表单里扫描录入，咱们可以给文本框加个事件，扫描完成后自动清理多余字符，用户完全感知不到额外操作：

打开表单的设计视图，找到存储磁条卡号的文本框，添加AfterUpdate事件的VBA代码：

Private Sub txtMagstripeCard_AfterUpdate()
    Dim rawCardText As String
    rawCardText = Me.txtMagstripeCard.Value
    
    ' 先检查原始字符串长度是否符合要求，避免报错
    If Len(rawCardText) >= 26 Then
        ' 提取第2到26位的25个字符
        Me.txtMagstripeCard.Value = Mid(rawCardText, 2, 25)
    Else
        ' 格式不对时提示用户重新扫描
        MsgBox "扫描的卡号格式异常，请重新扫描磁条卡！", vbExclamation
    End If
End Sub

额外优化提示 #

有些扫描仪是模拟键盘输入，你也可以尝试用KeyPress事件实时过滤，但AfterUpdate稳定性更高，能完整处理扫描后的整段字符串，更推荐用这个方案。

3. 批量清理已有数据 #

如果你的表已经存了一批带多余字符的卡号，直接运行一个更新查询就能一次性搞定：

1. 新建一个更新查询；
2. 选择你的客户数据表，添加磁条卡号字段；
3. 在「更新到」的输入框里填入：Mid([磁条卡号字段名], 2, 25)；
4. 先点击「视图」按钮预览结果，确认没问题后再执行更新。

注意：执行更新前一定要备份数据，避免误操作！

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