410521a
发表于 2010-7-7 21:09:26
晕`` 那是咋回事呀` 我这现在都快700条了只能读取633条`
410521a
发表于 2010-7-7 21:12:30
本帖最后由 410521a 于 2010-7-7 21:13 编辑
我怎么把代码发给你看看呀
不留QQ就` `留个信箱吧` 我一会发你信箱里边`` 行吗?
afan
发表于 2010-7-7 21:15:36
你生成1000条试试~$a = '' & @CRLF
For $i = 1 To 1000
$a &= $i & '=项目' & $i & @CRLF
Next
FileWrite('test.ini', $a)估计是你的ini文件有问题
410521a
发表于 2010-7-7 21:19:54
本帖最后由 410521a 于 2010-7-7 21:25 编辑
回复 95# afan
我试过了` 可以`` 那为啥呢``我数据库有啥问题呀?
afan
发表于 2010-7-7 21:28:35
估计是你的数据超出了iniread限制,可以试试使用我那个ini函数库
http://www.autoitx.com/thread-12319-1-1.html
410521a
发表于 2010-7-7 21:42:37
回复 97# afan
超出限制? 晕`限制为多少呀```
afan
发表于 2010-7-7 21:44:58
内置函数有效数据仅有32767字符可以被正常返回
你在第633条数据上增减部分字符,可能会只能显示632条或634条,就说明是这个问题了
410521a
发表于 2010-7-7 21:49:27
回复 99# afan
大哥你那个是不是把_.ini.au3下载下来放到D:\autoit3\Include 这个里边` 然后把带码里的INI函数前边加_就可以了?
我看那个还有打开模式`` 需不需添加?
afan
发表于 2010-7-7 21:51:19
是的,放到脚本目录也可以
记得必须在脚本前面 #include <_Ini.au3>
打开模式一般默认就行
410521a
发表于 2010-7-7 21:55:50
回复 101# afan
O了`` 大哥你真棒`` 我什么时候才能有你这样的水平啊` 崇拜 ``我现在都不知道怎么学习了`
afan
发表于 2010-7-7 21:59:25
O了就好,至于如何学我也没发言权,从感兴趣的入手吧~
410521a
发表于 2010-7-7 22:11:45
回复 103# afan
对学习这块我真的很迷茫`` 想学又没目标```有时候总是偷机取巧
还有个问题`` 带关键字`` 我只能贴图片`` 这个正规怎么使用``` 要他检测`` 是不是 shengfenzhen 号
afan
发表于 2010-7-7 22:20:43
$Str1 = '101123456781231'
If StringRegExp($str1, '^(\d{15}|\d{18})$') Then Msgbox(0, $Str1, '是身份证号')
$Str2 = '10112345678123122'
If StringRegExp($str2, '^(\d{15}|\d{18})$') Then Msgbox(0, $Str2, '是身份证号')
$Str3 = '101123456781231220'
If StringRegExp($str3, '^(\d{15}|\d{18})$') Then Msgbox(0, $Str3, '是身份证号')
410521a
发表于 2010-7-7 22:51:11
本帖最后由 410521a 于 2010-7-7 22:52 编辑
回复 105# afan
这个好像只是检测位数`` 有没有办法让他检测 号是不是正确?#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 244, 177, 274, 213)
$Input1 = GUICtrlCreateInput("Input1", 32, 32, 153, 21)
$Button1 = GUICtrlCreateButton("Button1", 64, 88, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Str1 = GUICtrlRead($Input1,"")
If StringRegExp($str1, '^(\d{15}|\d{18})$') Then
Msgbox(0, $Str1, '是身份证号')
Else
Msgbox(0, $Str1, '不是身份证号')
EndIf
EndSwitch
WEnd
afan
发表于 2010-7-7 22:53:04
这个需要了解第一代和第二代身份证的编号规则