Convert Function Delphi to vb.net 2010

En curso Publicado Jan 21, 2014 Pagado a la entrega
En curso 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;

.NET Delphi Visual Basic

Nº del proyecto: #5344799

Sobre el proyecto

1 propuesta Proyecto remoto Activo Jan 21, 2014

Adjudicado a:

Bharat8793272983

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

$24 USD en 0 días
(3 comentarios)
4.3