请帮忙把一个VB function转为php，谢谢！

[caaclxf]

FunctionCheckBIG(strSourceAsString)AsBoolean
DimidxAsLong
DimByteTemp()AsByte
CheckBIG=False
Foridx=1ToLen(strSource)
ByteTemp=StrConv(Mid(strSource,idx,1),vbFromUnicode)
IfUBound(ByteTemp)>0Then
IfByteTemp(1)>=64AndByteTemp(1)<=126Then
CheckBIG=True
ExitFor
EndIf
EndIf
Next
EndFunction

[「已注销」]

一个是前台一个是后台，可以这样转吗？

[lantersen]

说说你的VB函数功能，应该可以的。

[caaclxf]

这个function的功能是判断一段文字中是否含有BIG5码汉字,可用做内码的自动识别
返回True表示包含BIG5码

[zeroleonhart]

Function CheckBIG(strSource As String) As Boolean
Dim idx As Long
Dim ByteTemp() As Byte
CheckBIG = False
For idx = 1 To Len(strSource)
ByteTemp=StrConv(Mid(strSource,idx,1),vbFromUnicode)
If UBound(ByteTemp) > 0 Then
If ByteTemp(1) >= 64 And ByteTemp(1) <= 126 Then
CheckBIG = True
Exit For
End If
End If
Next
End Function

[颓废的老猫]

帮你顶

[caaclxf]

.........我也頂