维克苗综合站

修改终端服务端口的方法
  
具体操作如下 
在终端服务器上做如下修改 
1.KEY＿LOCAL＿MACHINE\SYSTEM\CurrentControlSet\ Control\Terminal Server\Wds\ 
rdpwd\Tds\tcp和HKEY＿LOCAL＿ MACHINE\SYSTEM\CurrentControlSet\Control\Te 
rminal Server\WinStations\RDP-Tcp下都有一个PortNumber值，通常为3389，将其修改

为自己的值，如9833(可自己指定端口，但最好不要设为低端端口，以免冲突)； 
2.重新启动服务器。 

在客户端做如下改动 客户端下载(For 9x/Me/2k)
1.打开客户端连接管理器； 
2.输入主机地址，后面跟端口号，例如: 202.120.1.1:9833

(转)文本插入与编辑处理实例

‘文本插入与编辑处理实例
‘VB操作文本文件的方法很多,下面的例子是我自己作项目或者回答网友提问时做的,很有代表性,希望能够给各位朋友一些启发.

  ’功能：删除、替换文本中一行，或者插入内容到文本中某一行
  ’作者: soho_andy (冰)
  ’参数：
  ’strSourceFile  原始文件完整名
  ’strTargetFile  生成新文件的完整名
  ’intRow         操作的行数

  Sub 操作文件中一行(strSourceFile As String, strTargetFile As String, intRow As Long)
    Dim filenum         As Integer
    Dim fileContents    As String
    Dim fileInfo()      As String
    Dim i               As Integer
    Dim j               As Integer
    
    filenum = FreeFile
    Open strSourceFile For Binary As #filenum
        fileContents = Space(LOF(filenum))
        Get #filenum, , fileContents
    Close filenum
    fileInfo = Split(fileContents, vbCrLf)
    ’取出源文件行数，按照回车换行来分隔成数组
    
    filenum = FreeFile
    If Dir(strTargetFile, vbNormal) <> ”" Then
        Kill strTargetFile
    End If
    Dim Filestr() As String
    
    ’删除一行代码块
    Open strTargetFile For Append As #filenum
        ’循环每一行
        For i = 0 To UBound(fileInfo) - 1
            If i <> intRow - 1 Then
                Print #filenum, fileInfo(i)
            End If
        Next
    Close #filenum

 ’替换一行代码块
    Open strTargetFile For Append As #filenum
        ’循环每一行
        For i = 0 To UBound(fileInfo) - 1
            If i = intRow - 1 Then
                Print #filenum, ”你要替换进去的内容”
            End If
        Next
    Close #filenum
    
    ’插入一行代码块
    Open strTargetFile For Append As #filenum
        ’循环每一行
        For i = 0 To UBound(fileInfo) - 1
            If i = intRow - 1 Then
                Print #filenum, ”你要插入到这行的内容”
                Print #filenum, fileInfo(i)           ’保留原来的行，位置后移一位
            End If
        Next
    Close #filenum
    
    
    MsgBox ”完毕”
  End Sub

  ’另外一个解决实际问题的例子
  ’
  ’网友的要求
  ’设有文件a.txt，其中存放了两行数据，数据用逗号分隔，现在要读取第一行的奇数位置的数据写  入到另一个文本文件（b.txt）的第一行，类似地，把第二行的奇数位置的数据写入到第二行。
  ’比如:
  ’文件a.txt如下:
  ’1，2，3，4，5
  ’6，7，8，9，10
  ’操作完成后，文件b.txt应为
  ’1,3,5
  ’6,8,10

  ’作者: soho_andy (冰)
  ’参数：
  ’strSourceFile  原始文件完整名
  ’strTargetFile  生成新文件的完整名
   Sub 提取奇数位数据(strSourceFile As String, strTargetFile As String)
    Dim filenum         As Integer
    Dim fileContents    As String
    Dim fileInfo()      As String
    Dim i               As Integer
    Dim j               As Integer
    
    Dim tmpDemData As String
    filenum = FreeFile
    Open strSourceFile For Binary As #filenum
        fileContents = Space(LOF(filenum))
        Get #filenum, , fileContents
    Close filenum
    fileInfo = Split(fileContents, vbCrLf)
    ’取出源文件行数，按照回车换行来分隔成数组
    
    filenum = FreeFile
    tmpDemData = ”"
    If Dir(strTargetFile, vbNormal) <> ”" Then
        Kill strTargetFile
    End If
    Dim Filestr() As String

    Open strTargetFile For Append As #filenum
        ’循环每一行
        For i = 0 To UBound(fileInfo) - 1
            Filestr = Split(Trim(fileInfo(i)), ”,”)  ’按照逗号分隔每一行的数据
            tmpDemData = ”"
            For j = 0 To UBound(Filestr)
                ’判断是否为奇数位
                If (j Mod 2) = 0 Then
                    tmpDemData = tmpDemData & Filestr(j)
                ElseIf j <> 0 And j <> UBound(Filestr) Then
                    tmpDemData = tmpDemData & ”,”
                End If
            Next
            ’保存一行如目标文件
            Print #filenum, tmpDemData
        Next
    Close #filenum
    MsgBox ”完毕”
  End Sub

  Private Sub Command1_Click()
    提取奇数位数据 ”d:\aa.txt”, ”d:\bb.txt”
  End Sub

玖月留言结束

KiteGirl(小仙妹) 的“跳蚤算法”

下面是传统“跳蚤算法”的一个功能比较全的函数。
使用前需要编写一个过程将pList()的每个元素逐一赋值为对应的编号初始化。

主要特点是：
1、取多少个随机数，程序就计算多少次，是等比关系，而且过程执行的次数是可以预料的。
2、可以对一个序列中的某一段在规定段内进行乱序。这对随机选择考试题目是非常适用的。

这个函数的参数比较多而且杂，所以如果看不明白的话可以问我。

Public Sub FleaRandom(ByRef pList() As Long, Optional ByVal pSet_Scan As Boolean = False, Optional ByVal pSet_Swap As Boolean = False, Optional ByVal pScan_Start As Long = 0, Optional ByVal pScan_End As Long = 0, Optional ByVal pSwap_Start As Long = 0, Optional pSwap_End As Long = 0)
‘FleaRandom函数
‘语法：FleaRandom(pList() ,[pSet_Scan,] [pSet_Swap,] [pScan_Start,] [pScan_End,] [pSwap_Start,] [pSwap_End] )
‘说明：以“跳蚤算法”对序列进行乱序处理。
‘参数： long pList() 必要参数。作为序列容器的数组。
‘ boolean pSet_Scan 可选参数。扫描域设置开关。使其为true则用户设置的扫描域参数有效。
‘ boolean pSet_Swap 可选参数。交换域设置开关。使其为true则用户设置的交换域参数有效。
‘ long pScan_Start 可选参数。扫描域开始。
‘ long pScan_End 可选参数。扫描域结束。
‘ long pSwap_Start 可选参数。交换域开始。
‘ long pSwap_End 可选参数。交换域结束。
‘说明：序列初始状态可以有序地储存在该数组当中。
‘ 虽然序列本身可以适合某些应用，但单一的long类型不能满足更多需要。
‘ 更多场合则以long类型的序列作为某个其他类型数组的索引，这样可以获得更丰富的应用。
‘ 交换区的绝对长度，也就是Abs(pSwap_End-pSwap_Start)不能超过2^31。

‘

‘交换设置导入

Dim tSwap_Start As Long ‘交换域开始
Dim tSwap_End As Long ‘交换域结束

If pSet_Swap Then
tSwap_Start = pSwap_Start
tSwap_End = pSwap_End
Else
tSwap_Start = LBound(pList())
tSwap_End = UBound(pList())
End If

‘交换范围

Dim tSwap_Count As Long ‘交换域元素数

tSwap_Count = (tSwap_End – tSwap_Start) + 1

‘{ tSwap_End – tSwap_Start <= 2147483646 }

‘交换补偿

Dim tSwap_Rep As Long ‘交换补偿

tSwap_Rep = tSwap_Start

‘扫描设置导入

Dim tScan_Start As Long ‘扫描开始
Dim tScan_End As Long ‘扫描结束

If pSet_Scan Then
tScan_Start = pScan_Start
tScan_End = pScan_End
ElseIf (Not pSet_Scan) And pSet_Swap Then
tScan_Start = tSwap_Start
tScan_End = tSwap_End
Else
tScan_Start = LBound(pList())
tScan_End = UBound(pList())
End If

‘序列扰乱

Dim tList_Index As Long ‘序列索引

Dim tList_Index_Sur As Long ‘序列索引_源
Dim tList_Index_Des As Long ‘序列索引_目的

For tList_Index = tScan_Start To tScan_End

tList_Index_Sur = tList_Index
tList_Index_Des = Int(Rnd * tSwap_Count) + tSwap_Rep

‘交换pList(tList_Index_Sur)和pList(tList_Index_Des)

FleaRandom_ValueSwap pList(tList_Index_Sur), pList(tList_Index_Des)

Next

End Sub

Private Sub FleaRandom_ValueSwap(ByRef pA As Long, ByRef pB As Long)
‘FleaRandom_ValueSwap过程
‘语法：FleaRandom_ValueSwap pA, pB

Dim tTemp As Long

tTemp = pA: pA = pB: pB = tTemp

End Sub

关于四舍五入函数(ROUND)的说明

VB6中文版说这个函数是四舍五入函数，实际上这个函数采用的四舍六入五留双。VB的Round所采用的算法是这样的:
    1.25留一位,则1.2=round(1.25)
    如果是1.35,则1.4=round(1.35)
    奇进偶不进。这样在一大串需要四舍五入的数相加相减相乘时误差小一点。eg:1.25+1.35+1.45+1.55+1.15+1.65=8.4=round(1.25)+round(1.35)+round(……
    ROUND函数符合国家和国际标准，该函数是正确的。原先的四舍五入只是一个简化。
    在微软的Knowledge Base的文章：“Q194983 PRB: Round Function Different in VBA 6 and Excel Spreadsheet”和微软的Knowledge Base的文章：“Q189847 INFO: New String and Format Functions in Visual Basic 6.0”中都指出Round函数实行Banker舍入，而不是我们习惯的算术舍入（四舍五入）。你可以参考微软的Knowledge Base的文章：“Q196652 HOWTO: Implement Custom Rounding Procedures”，它对于舍入问题有详细的讨论。

字符串只返回数字

– 写函数
create function fn_num(
@s varchar(2000)
)
returns varchar(200)
as
begin
   declare @r varchar(200)
   set @r=”
   while PATINDEX(‘%[0-9]%’,@s)>0
   begin
      set @r=@r+substring(@s,PATINDEX(‘%[0-9]%’,@s),1)
      set @s=stuff(@s,1,PATINDEX(‘%[0-9]%’,@s),”)
   end
   return @r
end
go

–调用
select dbo.fn_num(‘a2h5我j8 ‘)
go

drop function fn_num
go