Convert Function Delphi to vb.net 2010
$10-30 USD
Pagado a la entrega
Contert function delphi to vb.net
function [url removed, login to view](wStri: String): String;
var
Simbolos: array [0..4] of String;
x : Integer;
begin
Simbolos[1]:= 'ABCDEFGHIJLMNOPQRSTUVXZYWK ~!@#$%^&*()';
Simbolos[2]:= 'ÂÀ©Øû׃çêùÿ5Üø£úñѪº¿®¬¼ëèïÙýÄÅÉæÆôöò»Á';
Simbolos[3]:= 'abcdefghijlmnopqrstuvxzywk1234567890';
Simbolos[4]:= 'áâäàåíóÇü龶§÷ÎÏ-+ÌÓ߸°¨·¹³²Õµþîì¡«½';
for x := 1 to Length(Trim(wStri)) do
begin
if pos( copy( wStri, x, 1 ),Simbolos[1] ) > 0 then
Result := Result + copy( Simbolos[2], pos( copy( wStri, x, 1 ), Simbolos[1] ), 1 ) else
if pos( copy( wStri, x, 1), Simbolos[2] ) > 0 then
Result := Result + copy( Simbolos[1], pos( copy( wStri, x, 1), Simbolos[2] ), 1 ) else
if pos( copy( wStri, x, 1), Simbolos[3] ) > 0 then
Result := Result + copy( Simbolos[4], pos( copy( wStri, x, 1), Simbolos[3] ) ,1) else
if pos( copy( wStri, x, 1), Simbolos[4] ) > 0 then
Result := Result + copy( Simbolos[3], pos( copy( wStri, x, 1), Simbolos[4] ), 1);
end;
end;
Nº del proyecto: #5344799
Sobre el proyecto
Adjudicado a:
Hi Sir, I have great real time experience in complex web design and business model projects. I have worked on different technologies and domains. I will provide you good code with better look and feel (Responsive) w Más