我想编一个简单的程序，请大家帮忙

来源：百度知道 编辑：UC知道 时间：2024/06/05 15:40:39
题目很简单，可惜我实在连最基本都忘掉了，所以请各位大哥帮忙，见笑了。
我就是要统计资料，把现在的18位身份证改成15位的，具体就是把18个数字中的第7.8位和最后一位去掉，就可以了。
比如123456789123456789
** *
这个程序能帮我把作标记的数字去掉就可以。
希望回答者能稍微详细些，比如使用方法，怎样批量处理等，因为小弟实在是程序盲。
谢谢各位了！
感谢各位高手不吝赐教。但是，我还要不耻下问。本人是程序盲啊，纯粹的！所以不怕大家见笑了。
连最基本的我也不明白，二级那点东西早都还给老师了。
您各位给的程序意见很清楚，我非常感谢。
但是，敢问一句，如何运行呢？在DOS下还是WIN下？如果在WIN下，如何运行？写字板？如果在DOS下，那我现在有的XP如何进入DOS？
我手上的是大量数据，如何批量写入，然后得到批量结果？
我知道我的问题幼稚昂长，给各位添麻烦了，希望帮人帮到底送佛送西天，小弟不胜感激！！！

呵呵，我做过15变18的

你用的是VB还是什么？

Private Sub Command1_Click()
Text2.Text = Left(Text1.Text, 6) + Right(Text1.Text, 10)
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
前面忘了最后1位了呵呵
Private Sub Command1_Click()
Text2.Text = Left(Text1.Text, 6) + Mid(Text1.Text, 9, 9)'前6位＋第9位开始的9位）
End Sub

Delphi

var
old_id :integer;
new_id :integer;
begin
old_id = Txt_Id.text;
new_id = copy(old_id,0,6)+copy(old_id,9);
Showmessage(inttostr(new_id));
end;

其中的Txt_id.text是从屏幕上输入身分证编号的文本框,

vb的，是长了点。

Dim Ai As Long
Dim Yi As String
Dim S As Long
Dim Ji As Long
Dim Al As String
Private Sub Command1_Click()
If Len(Text1.Text) <> 15 Then GoTo error1
Al = Left(Text1.Text, 6) & "19" & Right(Text1.Text, 9)
On Error GoTo error2
If Right(Text1.Text, 1) / 2 = Int(Right(Text1.Text, 1) / 2) Then
Text4.Text = "女