请问这段c#代码用vb怎么写？

Question

private static string sqlEncode(string sqlString)
{
string Result= "";
for (int i=0; i<sqlString.Length; i++)
Result+= (sqlString[i]=='\'' ? "\'\'" : sqlString[i]+"");
return Result;
}

Answer 1

自己顶一下
主要是for (int i=0; i<sqlString.Length; i++)
Result+= (sqlString[i]=='\'' ? "\'\'" : sqlString[i]+"");
这一句

Answer 2

dim i as integerfor i=0 to sqlString.length
   if sqlString(i)='\''
       result+="\'\'"
   else
       result+=sqlString(i)
   end if
next for

Answer 3

Function sqlEncode(ByVal sqlString As String) As String
        Dim Result As String = ""
        For i As Integer = 0 To sqlString.Length
            Result += IIf(sqlString.Substring(i, 1) = "''", "''''", sqlString.Substring(i, 1))
        Next
        Return Result    End Function

Answer 4

Private Shared Function sqlEncode(ByVal sqlString As String) As String 
 Dim Result As String = "" 
 Dim i As Integer = 0 
 While i < sqlString.Length 
   Result += (Microsoft.VisualBasic.IIf(sqlString(i) = "'"C,"''",sqlString(i) + "")) 
   System.Math.Min(System.Threading.Interlocked.Increment(i),i-1) 
 End While 
 Return Result 
End Function

Answer 5

Private Shared Function sqlEncode(ByVal sqlString As String) As String 
 Dim Result As String = "" 
 Dim i As Integer = 0 
 While i < sqlString.Length 
   Result += (Microsoft.VisualBasic.IIf(sqlString(i) = "'"C,"''",sqlString(i) + "")) 
   System.Math.Min(System.Threading.Interlocked.Increment(i),i-1) 
 End While 
 Return Result 
End Function
--------------------------------------------
顶楼上。

Answer 6

我这样写可以吗？
Private Shared Function sqlEncode(ByVal sqlString As String) As String
            Dim Result As String = ""
            Dim i As Integer
            For i = 0 To sqlString.Length - 1
                If sqlString(i) = "'" Then
                    Result += "''"
                Else
                    Result += sqlString(i)
                End If
            Next
            Return Result
        End Function

Answer 7

'你的代碼是要把一個單引號換成兩個單引號，只需要替換就好了。Function sqlEncode(ByVal sqlString As String) As String
        return  sqlString .Replace("'", "''")
End Function