2007年6月28日
摘要：
'$include "sqautil.sbh"
Sub Main
Dim Result As Integer
'Initially Recorded: 2007-1-10 15:09:53
'Script Name: vod_autoadd
dim i as integer
'数据池
dim dp as Variant
'文件长度
dim file_name as string
dim num_file as integer
dim le_file as string
'视频
dim vod as string
dim vod_if as string
'音频
dim auo as string
dim auo_if as string
'码率
........ 阅读全文
摘要：
'在access数据库,建表test_table,并创建两字段(name,id),两字段均为数字型
Sub main
' Declarations
'
Dim destination(1 To 50, 1 To 125) As Variant
Dim prompt As integer
Dim retcode as Variant
Dim query as String
Dim outputStr as String
dim i,j as integer
dim sumstring as string ......................
阅读全文
摘要：
declare function size(aa as string) as string
sub main
dim a,as_string as string
a=inputbox("please input first number")
as_string=size(a)
end sub
function size(a as string)
dim a_a,size_na,size_length,A_string,size_test as string
dim q,w,a_if,a_instr ,a_length as integer
size_length=""
a_length=len(a)
'根据长度折分.........................
阅读全文