中国DOS联盟

BEGIN {
        IGNORECASE = 1
        FS="\t"
        if (ARGV[1] != ""){
                for (i = 1; i <= ARGC; i++) {
                        imput=imput " " ARGV[i]
                }
        } else {
                printf "请输入待查询的关键字："
                getline imput < "-"
                }
        gsub(/^ +| +$/,"",imput)
        str=toupper(imput)
        gsub(/ +/,"",str)
        if (str == "") {
                print "\n\t\t关键字请不要留空！"
                exit
        }
        printf "\n\n%-10s%-16s%10s%10s\n","所属省市","地区","电话区号","邮政编码"
        printf "================================================\n"
        while((getline < "YBQH.txt") > 0){
                if (($0~str)||(gensub(/ +/,"","g",$3)~str)) {
                        printf "%-10s%-16s%10s%10s\n",$1,$2,$5,$6
                        flag=1
                }
        }
        print "\n"
        if (flag==0)
        print "\t\t无此关键字记录！\n"
}

@echo off
:start
setlocal
    cls
    echo 1.添加记录
    echo 2.查询记录
    echo 3.保存记录为csv格式
    echo 4.保存为数据库
    echo 5.从网页查看数据
    echo 其他任意键退出...
    set /p var=选择:
    set var=%var:~0,1%
    call :%var% %0 2>nul || goto :eof
endlocal
goto start

:1
setlocal
    cls
    echo 输入记录:
    set /p str=
    echo %str% >>%1
    if exist 电话号码数据库.mdb wscript.exe 数据库脚本.vbs /a %str%
endlocal
goto :eof

:2
setlocal
    cls
    echo 输入查询条件:
    set /p str=
    cls
    more +52 %1 | findstr %str% || echo 记录不存在!
    echo.&echo 按任意键回到主菜单! & pause>nul
endlocal & dir >nul
goto :eof

:3
setlocal >记录.csv
    for /f "skip=52 tokens=1,2" %%i in (%~fsnx1) do echo %%i,%%j >>记录.csv
endlocal
goto :eof

:4
    wscript.exe 数据库脚本.vbs /c %1 && echo 操作完毕!
    pause
goto :eof

:5
    wscript.exe 数据库脚本.vbs
goto :eof

Set objArgs = WScript.Arguments
strDataName = "电话号码数据库.mdb"
strTableName = "MyTelTable"

On Error Resume Next
If WScript.Arguments.Count <> 0 Then
    Select Case objArgs(0)
        Case "/c" bat2mdb
        Case "/a" If Not AddRecord(objArgs(1),objArgs(2)) Then bat2mdb
        Case Else PrintData
    End Select
Else
    PrintData
End If


'****************************************************************************
'bat2mdb
'****************************************************************************
Sub bat2mdb()

    CreateDataBase
With CreateObject("Scripting.FileSystemObject").OpenTextFile(objArgs(1))
    For i = 1 to 52
        .skipline
    Next
   Do While .AtEndOfStream  <> True
   On Error Resume Next
      strArray = Split(.ReadLine)
      AddRecord strArray(0),strArray(1)
   Loop

End With

End sub

'****************************************************************************
'创建数据库文件
'****************************************************************************
Sub CreateDataBase()

On Error Resume Next
    CreateObject("Adox.Catalog").Create ( _
        "Provider = Microsoft.Jet.OLEDB.4.0; " & _
            "Data Source =" & strDataName )

'建立一个新表
Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Open _
        "Provider= Microsoft.Jet.OLEDB.4.0; " & _
            "Data Source=" & strDataName
    objConnection.Execute( "CREATE TABLE " & strTableName & _
        "(Name TEXT(10) , Tel TEXT(20) )"  )
End Sub

'****************************************************************************
'添加数据
'****************************************************************************
Function AddRecord(strName,strTel)
On Error Resume Next
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

    AddRecord = objConnection.Open( _
        "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDataName )
    objRecordSet.Open _
        "SELECT * FROM " & strTablename, objConnection, 3, 3

    objRecordSet.AddNew
    objRecordSet("Name") = strName & space(1)
    objRecordSet("Tel")= strTel & space(1)
    objRecordSet.Update

End Function

'****************************************************************************
'获得HTML代码
'****************************************************************************
Function GetStrHtml()

    strHTML = "<table border='1' style='border-collapse: collapse' "  & _
        "bordercolor='#111111' width='100%' id='Table1' >"
    strHTML = strHTML & "<tr><td>姓名</td><td>电话</td></tr>"

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

    objConnection.Open _
        "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDataName
    objRecordSet.Open _
        "SELECT * FROM " & strTablename, objConnection, 3, 3

    objRecordSet.MoveFirst

Do Until objRecordSet.EOF
        strHTML = strHTML & "<tr>"
for i = 1 to objrecordset.fields.count
        strHTML = strHTML & "<td>" & objrecordset.fields(i - 1) & "</td>"
next
    strHTML = strHTML & "</tr>"
    objRecordSet.MoveNext
Loop
    GetStrHtml = strHTML & "</table>"

End Function

'****************************************************************************
'显示数据
'****************************************************************************
Sub PrintData()

Set objIE = Wscript.CreateObject("InternetExplorer.Application")
With objIE
    .menubar        = 0
    .addressbar        = 0
    .toolbar        = 0
    .statusbar        = 0
    .resizable        = 0
    .width        = 400
    .height        = 500
    .navigate "about:blank"
    .left        = fix((.document.parentwindow.screen.availwidth-.width)/2)
    .top        = fix((.document.parentwindow.screen.availheight-.height)/2)
    .visible        = 1
end With


With objIE.Document
    .Write "<HTML><HEAD><TITLE>电话数据库</TITLE></HEAD>"
    .Write "<BODY STYLE='font:14pt arial; color:white;"
    .Write "filter:progid:DXImageTransform.Microsoft.Gradient"
    .Write "(GradientType=0, StartColorStr=#800000, EndColorStr=#DB7093)'>"
    .Write "<DIV id='WriteStr'></DIV>"
    .Write "<HR COLOR=#DB7093></FONT></CENTER></BODY></HTML>"
end With
Set objDiv = objIE.Document.All.WriteStr
    objDiv.innerHTML = GetStrHtml()

End Sub