帮忙把用foxpro写的函数改成用vb.net (谢谢）

[buzhidao1982]

用foxpro写的函数如下，帮忙改成用vb.net， 谢谢大家!

LPARAMETERS cPassWord
LOCAL I,cPwd,ch
cPwd=''
FOR I=1 TO LEN(cPassWord)
ch=SUBS(cPassWord,I,1)
IF ch#' '
if asc(ch)#159
cPwd=m.cPwd+CHR(ASC(m.ch)*2)
endif
ELSE
cPwd=m.cPwd+' '
ENDIF
ENDFOR
RETURN cPwd

cPassWord：字符串（輸入值）
cPwd__：加密字符串（返回_值）

[buzhidao1982]

原来要把chr() 改成chrw(),不然会什么都没有的！ 问题解决，结帖！谢谢大家！

[buzhidao1982]

怎么没人顶，自己顶一下！

[xfyxq]

楼主是不懂forpro的语法还是不懂vb的语法？

粗看了一下代码，在你这个函数体内存在一个全局的变量m，用vb写这个函数，这个m在哪里？？

[buzhidao1982]

看不懂foxpro得语法，会vb.net ，不知道m在哪里。。。。。。。。。。。。

[Lynn_8]

声明一下m。hoho，晕。

[hyperywj]

Public Function _FunctionName(ByVal cPassWord As String)
Dim i As Integer
Dim cPwd As String = ""
Dim ch As Char

For i = 1 To Len(cPassWord)
ch = Mid(cPassWord, i, 1)
If ch <> " " Then
If Asc(ch) <> 159 Then
cPwd = cPwd & Chr(Asc(ch) * 2)
End If
Else
cPwd = cPwd & " "
End If
Next
Return cPwd
End Function

[buzhidao1982]

谢谢hyperywj(hyperywj)