Foro de Pauscal

también les dejo las funciones "Es" que acabo de traducir!
Devuelve 1 si la cadena es tal cosa o contiene tales caracteres, Si no devuelve 0.
También esta la función "Posición" que recupera la posición de una letra en una palabra.
Y la función invertir, que invierte la palabra.
Loco, espero aportes suyos! Hay que darle con todo a este lenguaje!

Código: Seleccionar todo

'Importar "Cadena.prp" Comentado por si quieren pegarlo directamente en "Cadena" y precompilarlo.

Proc EsSimbolo(PalabraA:Cadena):Booleano ' VERIFICAR
Var Valor:Booleano
Var i:Entero
Var nums,a:Cadena
nums = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ1234567890"
Valor = Verd
Contar i = 1 a CadLong(PalabraA)
   a = ParteCad(PalabraA,i,1)
      Si Posicion(Nums,a) > 0 Entonces
         Valor = Falso
         Salir Contar
      FinSi
Seguir
   Devolver Valor
FinProc

Proc EsDecimal(PalabraA:Cadena):Booleano ' VERIFICAR
Var Valor:Booleano
Var i:Entero
Var nums,a:Cadena
nums = "123456789.,@"
Valor = Verd
Contar i = 1 a CadLong(PalabraA)
   a = ParteCad(PalabraA,i,1)
      Si Posicion(Nums,a) = 0 Entonces
         Valor = Falso
         Salir Contar
      FinSi
Seguir
   Devolver Valor
FinProc

Proc EsAlfanumerico(PalabraA:Cadena):Booleano
Var Valor:Booleano
Var i:Entero
Var nums,a:Cadena
nums = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789"
Valor = Verd
Contar i = 1 a CadLong(PalabraA)
   a = ParteCad(PalabraA,i,1)
      Si Posicion(Nums,a) = 0 Entonces
         Valor = Falso
         Salir Contar
      FinSi
Seguir
   Devolver Valor
FinProc

Proc EsMinusculas(PalabraA:Cadena):Booleano
Var Valor:Booleano
Var i:Entero
Var nums,a:Cadena
nums = "abcdefghijklmnñopqrstuvwxyz"
Valor = Verd
Contar i = 1 a CadLong(PalabraA)
   a = ParteCad(PalabraA,i,1)
      Si Posicion(Nums,a) = 0 Entonces
         Valor = Falso
         Salir Contar
      FinSi
Seguir
   Devolver Valor
FinProc

Proc EsMayusculas(PalabraA:Cadena):Booleano
Var Valor:Booleano
Var i:Entero
Var nums,a:Cadena
nums = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
Valor = Verd
Contar i = 1 a CadLong(PalabraA)
   a = ParteCad(PalabraA,i,1)
      Si Posicion(Nums,a) = 0 Entonces
         Valor = Falso
         Salir Contar
      FinSi
Seguir
   Devolver Valor
FinProc

Proc EsCadena(PalabraA:Cadena):Booleano
Var Valor:Booleano
Var i:Entero
Var nums,a:Cadena
nums = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
Valor = Verd
Contar i = 1 a CadLong(PalabraA)
   a = ParteCad(PalabraA,i,1)
      Si Posicion(Nums,a) = 0 Entonces
         Valor = Falso
         Salir Contar
      FinSi
Seguir
   Devolver Valor
FinProc

Proc EsNumero(NumeroA:Cadena):Booleano
Var Valor:Booleano
Var i:Entero
Var nums,a:Cadena
nums = "0123456789"
Valor = Verd
Contar i = 1 a CadLong(NumeroA)
   a = ParteCad(NumeroA,i,1)
      Si Posicion(Nums,a) = 0 Entonces
         Valor = Falso
         Salir Contar
      FinSi
Seguir
   Devolver Valor
FinProc

Proc Posicion(CadenaA,CaracterA:Cadena):Booleano
Var A:Entero,B:Cadena,Final:Booleano
Final = 0
Contar A = 1 a CadLong(CadenaA)
   b = ParteCad(CadenaA,A,1)
      Si b = CaracterA Entonces
         Final = A
         Salir Contar
      FiNSi
Seguir
   Devolver Final
FinProc

Proc Invertir(Cadenilla:Cadena):Cadena
Var Longitudes,EsteNumero:Entero,TextoDevuelto,Letrita:Cadena
   Contar EsteNumero = CadLong(Cadenilla) a 1 Dec 1
      Letrita = ParteCad(Cadenilla,EsteNumero,1)
      TextoDevuelto = TextoDevuelto + Letrita
   Seguir
Devolver TextoDevuelto
FinProc


Saludos!

Esto esta muy bueno amigo, solo que te recomiendo no trabajar mucho con valores de cadena, ya que este tipo de dato no esta opimizado al 100% y en cantidades grandes (1mb de longitud del texto) se vuelve extremadamente lento.

Sugerencia: los parámetros de tipo Cadena deberían ser por referencia siempre que sea posible. Esto hace que si el código que invoca a la función o procedimiento te pasa una variable de Cadena, entonces se pasa una referencia a dicha variable. De lo contrario se pasa una copia de la cadena de dicha variable. Hacer esta copia es un proceso costoso, y hace que el programa sea más lento. Ejemplo:

Proc Ejemplo(miVariable:Cadena)
...
FinProc

Var miCadena:Cadena
miCadena = "holaaaa"
Ejemplo(miCadena)

En este ejemplo, la cadena "holaaaa" es copiada antes de ser pasada al procedimiento. En cambio en este otro ejemplo, la cadena no es copiada, y simplemente se pasa una referencia a la variable original:

Proc Ejemplo(Referencia miVariable:Cadena)
...
FinProc

Var miCadena:Cadena
miCadena = "holaaaa"
Ejemplo(miCadena)

Ya veo, pero las veces que eh utilizado "Referencia" detrás de un parámetro de procedimiento a sido para modificar el contenido de la variable pasada al procedimiento, no se si se me entienda.

Proc A(Referencia VarQ:Cadena):Cadena
VarQ = "Hola que tal"
FinProc

Var Alto:Cadena
Alto = "Hola Mundo"

A(Alto)

'Alto ahora es igual a "Hola que tal"

Esta bien que el parámetro pasado como referencia sea mas rápido, Pero ¿Se modifica?

PowerDeath escribiste:Esta bien que el parámetro pasado como referencia sea mas rápido, Pero ¿Se modifica?

Si modificás el valor del parámetro, se va a modificar la variable con la que invocaste la función o procedimiento. La realidad es que normalmente no necesitás modificar el valor de un parámetro de Cadena, por lo tanto conviene usar una Cadena por referencia. Si en tu caso puntual necesitás modificar el valor, entonces sí, no queda otra que usar parámetros por valor (no por referencia).

The women made it themselves when hunting had been good and meat was plentiful. Same thing here in the case of Reckful and Becca. Flacco despite playing at Deleware, took them to the national title game and through for 4400 yards as a senior completing at 64 percent.

cheap nfl jerseys From the sometimes evil, and devious character played by Marcia Cross on Desperate Housewives to the funny, and sometimes crazy, character of Grace on Will Grace, played by Debra Messing, who has gone on to star in the hit show, Smash, which has since been cancelled. cheap nfl jerseys

cheap jerseys Is now taking place he wasn't little bit cautious with that sweet bell adding that good things are happening. From John Lennon, Bob Marley, David Bowie, Kurt Cobain, and Tu pac Shakur, all predicted their death through lyrics or might have hinted at it during interviews with almost prophetic precision of their untimely demise. cheap ncaa jerseys

All I asking is that you be consistent, because I can tell that you already support this idea.. What really worked for me was making her sit and stay before going outside. Certainly we can blame the Internet, sex saturated media, and a "pornification" ideal that says above all things a female should be "hot." It's also very easy for girls to dress that way.

seys china|cheap nhl jerseys|cheap mlb jerseys|cheap football jerseys|cheap nba jerseys|cheap ncaa jerseys|wholesale jerseys|wholesale china jerseys|wholesale jerseys china|cheapjerseys|cheap jerseys wholesale|cheap authentic jerseys}[/url] But that is not what OP screenshot shows. Yeah I can assume it a whole lot different if you read the source material first. Commission for Social Development: The Council elected by acclamation nine members to serve a four year term beginning at the first meeting of the fifty eighth session in2019 and expiring at the close of the sixty first session in2023: Chad, Morocco, Sierra Leone and South Africa (African States); Iraq(Asia Pacific States); Argentina, Colombia and Guatemala (Latin American and Caribbean States); and Israel (Western European and Other States). seys china|cheap nhl jerseys|cheap mlb jerseys|cheap football jerseys|cheap nba jerseys|cheap ncaa jerseys|wholesale jerseys|wholesale china jerseys|wholesale jerseys china|cheapjerseys|cheap jerseys wholesale|cheap authentic jerseys}[/url]

wholesale jerseys china Everyone there talks to eachother. If the materials get wet, the temperature difference is not as drastic.. I never made any "brown" comment, and its not a projection to realize that the majority of the population in Haiti are minorities here in the US.. cheap authentic jerseys

When leaving to get married, I told my mum that if I had a little red wagon I'd put all my wedding gifts on it and pull them away. I just don think he anywhere near as smart as he thinks he is, and that he wants to have his cake and eat it sometimes and praises the ones that he likes and bashes the ones that he dislikes.

That is more responsible than executive action for large scale changes in the economy in the short run, especially when you consider that Trump hasn really implemented many policies that affect the economy at large.. However, I do have research lab experience in antibiotic production so I could use that to help obtain a career in more of the healthcare side of microbiology.

cheap baskball jerseys I did a session of these with that mentality, and my abs were actually weak after, and sore the next day. That would cut out the waste of administering this money down through the channels of government. It makes sense to me and makes be a better person who can make the world a better place, and that what it comes down to right?. cheap baskball jerseys

This way when teams get relegated they don go out of business. Recreational centers, sports, and other such facilities form an important part of a country's economy. You can still add your fancy china and silverware right on top of it along with your blinged out candleabras, because burlap is tough.

cheap football jerseys And a GROWING business.. On the question of Palestine, President Abdel Fattah Al Sisi of Egypt stressed that "it is time to permanently overcome the barrier of hatred". What is a reasonable price? I say about $50.00 is fair. 1 point submitted 25 days agoIdk, lucky to me is me getting all elevators at levski working and 35+ FPS. cheap football jerseys

cheap nfl jerseys It used to be building a new computer was literally a game changer. First, prepare the eyes by cutting out a small piece of foam to make the backs of them straight (usually they're concave at the back). For a lot of people, the no talking rule seems the craziest and most difficult cheap nfl jerseys.

Only felt like playing a unit too so its the ideal bet for me, would be interested to see what others think though. They involve using government money to pay for PRIVATE insurances. Previously, if its an app that you use a lot (and you guys use it a lot), iOS could trigger the refresh as often as every couple minutes.

cheap jerseys wholesale Now the bank launched cooler and easier way to link Paypal money transfer to Unionbank account by means of EON Visa Debit Card which offers lots of amazing services to its clients not only cash card accounts, debit card, credit card and more wire money bank account stuff.. cheap nhl jerseys

They're not particularly well educated and yet they can be, they don't often provide logical material but it can be humerous, quick witted and intended to have an effect. Worth jail. Be sure to add lots of Modge Podge to the card edges. My name is Patrick Ratzow, a fairly experienced player in Paladins competitive scene, I used to play for Mousesports, Burrito Esports and other orgs.The 23th April 2017 Hi Rez sent out a payment form for all Masters LAN Gauntlet players that didn qualify for LAN, my team Wolves Esports didn qualify, finishing in the third place, winning $2000.The $2000 has to be split among the team consisting of 5 players, giving each of us $400.I filled the form around the 24th April, and received a tax form email on the 26th April asking me to fill some tax forms, links included in the emailAs shown in the picture of the email I repetitively asked about when we get paid but got no response, it be fine if they stated they don know yet, at least reply to the email.After getting no replies or anything, on the 24th July, 1 day before the 90 days deadline I contacted another Hi Rez employee on Discord, seeking for help.

cheap football jerseys Tant donn que l en question porte sur ma suppose suffisance, c ce niveau l que ma rponse doit porter. With the back (sealed) side of the mailer facing up, position the sealed mailer in landscape view.2. I'm just glad that the temptations have subsided and I can now think rationally about situations like this, realizing that this scene isn't for me, despite others being able to enjoy it. cheap football jerseys

cheap jerseys supply The defending is vastly better in the Premier League than the Tippeligaen, and he get nothing like this much time on the ball. 3 Cox, are making it available only to customers who have more expensive digital cable services and who also have subscribed to a special package of channels for which they have to pay an additional fee.. cheap jerseys supply

cheap jerseys china They fell for the Otherism. You do the most beautiful. And I can see how anyone could see this is as something minor, or something that you should expect when you pass out drunk (at your own house, with three people you knew and invited over).. First up instead of it being under a box, we've got straight in front of the box. cheap authentic jerseys

wholesale jerseys Bonyeza Kiwango cha Mteja (Custom Level) 5. It scared me that much I've woke up shaking and in tears. I ended up not taking my upset pick because I saw there was a chance he might not play and he was the big reasons I had faith in them as a team. The A frame is an apparatus that is quite expensive to purchase, but not difficult to build. wholesale jerseys

They really good at navigating social situations, so throw in a bunch of really quirky characters that they won be able to figure out at first. There is two advantages for doing this. Like Staples) just to make copies, and the cost was comparable to buying a low end laser printer.

cheapjerseys If so to improve productivity, try setting the pace for newer team members when pushing freight. Let's see if I can outdrink him. I can relate to Christopher Donner. Remember this quote: colored man looms large in the Communist plan to take over America? using personal moneys to co op important issue groups and burry them deep in misdirection, misinformation, and obfuscation. cheapjerseys

cheap jerseys china Down I goes. The body of the engine is casted using sand moulds with great precision. Numerous research studies show that these food supplements help reduce joint pain and swelling in individuals with osteoarthritis [source: Shiel]. Louis Vuitton only makes limited numbers of its bags available specifically to avoid them being re sold cheap chian jerseys.

That tax thing is dumb as fuck. I hated all the Hobbit films, but this last one was much better to handle. You'd need at least 3 vacuum cleaners to make the puck float. And he's just doing it he's not they're not really genuine about it. Recipients of the procedure sometimes forget that their UCL probably didn't just snap.

cheap nfl jerseys I regularly run license plates using my computer while driving. It is an ancient cultural heritage, deeply Japanese, and almost impenetrable to the Western mind in its subtlety and sophistication. That the theory anyway, except.. It shows them both in freefall for a least a few stories and then land on a car I think.. cheap nfl jerseys

Two handers tend to handle high backhands better. In addition, Mr. The same is the case in the second era as well. Granted as you said, two episodes in, so the new antagonist stuff could actually be more grounded and realistic and the second episode introducing them was just awkwardly written.

I am just giving my opinion and experience on UFC 219. They smell, they want, but cannot have, and it totally distracting. Did my patient lose his salvation? Did the accident change his soul? How can there be a soul if it can be so radically changed by a bump on the head?.

cheap football jerseys White went from 1,000 yd rusher to 773 yds. As a matter of fact it was never really about skin color in the first place. Now granted, that specific area is an exceedingly elevated area. When I see you lose your God damn mind for not getting your way. wholesale jerseys

cheap authentic jerseys I loved the first album. We had three days to pitch lines and ideas and create six complete sketches," Caesar recalled in a 2011 interview.. It is by its success in performing this one function that it must be judged. C pour a que je prfre le systme de CS:GO, TF2 et Dota2. cheap ncaa jerseys

This is chance to educate both engineers. Statue will serve as a beacon calling for compassion and empathy among all living creatures, Lucien Greaves, a spokesman for the Satanic Temple, said in a prepared statement. And that's and that is truly Ruiz.

cheap nhl jerseys Kevin Leman and Dr. I in Canada and sedentarity / obesity is an issue, especially in the 30 years old+ age group. Even if all ends well, a happy conclusion cannot erase the suffering that preceded it. I'm talking about building oneself. I think what I would tell people at this point, when they're about to walk into their pilot, is just try to let the everything is riding on this and this is my big break and my children's college education is riding on this you know, like, let that all go and just try to enjoy it for the gift that it is. cheap nhl jerseys

cheap jerseys wholesale Besides the hundreds of millions spent on Zuma Nkandla (see Nkandla), government offices housing PW officials were renovated at the cost of R330 million (up from the initial budget of R59 million), a prison construction in Kimberly budgeted at R100 million ended up costing R1 billion and renovations to 10 Ministerial houses in the Cape Town cost R100 million. cheap jerseys wholesale

cheap jerseys china Went to reinstall the plug and found a massive oil mess under the truck. So if you want an analysis of your heart rate throughout your workout, you have to install a third party app to get that functionality. Nevertheless, great fight, lots of action. wholesale china jerseys

I would only take Corruption if it already synergized with my existing cards.. Keep in mind Fate has to also be in a position to block Fragi shatter. It would only be spam if they continued to send you non account related info after your relationship had ceased.

wholesale football jerseys Tombstone is set up for tourists and it's a great place to go to experience a fun day of history in the Wild Wild West.. He a good coach, and well respected by the players. I realise that a very broad statement to make but it is factual. We can bend, cut, spot weld. wholesale football jerseys

At the blow of the whistle, one member swims to the other side and retrieves a coin, then swims back to the team and tags another person who goes on to retrieve another. Like putting stamps over and over on a page until you can see where the first stamps were placed.

Times, proves this point, "The big adventure in street racing is showing off in front of your friends,' [a racer] said, adding that, without the friends, the racing is far less fun.'" (Haberman). I would try and get accomodation either along Cowgate (Blackfriar St, Robertson Close) or Newington (South Clerk St, Pollock), though others may suggest otherwise.

cheap football jerseys Herbal teas such as Ginger acts as an inflammatory but aspirin is also good. It has expanded my knowledge base and taught me new skills.. Creating a metal cannon is more safe, far more capable, and as a consequence, more expensive.. A great tribute to these guys. cheap football jerseys

wholesale jerseys china The jobs Obandon has created are mostly minimum wage jobs. Like his predecessor Moyes clearly thrives on pressure and the mentality Ferguson so often spoke about will also be a big factor during the former Everton boss tenure. He said he sent Richman a copy of the two page unclassified memo and 'asked him to get the substance of it out to the media.' 'The reason I'm smiling, Bret,' Comey said. cheap chian jerseys

Everything they sell is either (a) better than in the store or (b) cheaper than in the store or (c) both. To disregard what someone says because they don belong to your party is ridiculous and shouldn be allowed. I watched every game, and when he was on the court, he did seem to fit within in the scheme of the system.

cheapjerseys The Red Shoes IllustrationsWhen I first saw the cover art for this book, I knew I had to read it, if only for the illustrations. So in the 1860s a large section was turned into a pleasure park. God Bless us All.. There a bit of evidence suggesting that a significant portion of the current housing demand is being driven by buyers attempting to purchase homes before interest rates rise, locking in rates that will likely never again be seen in our lifetimes.. cheapjerseys

cheap nba jerseys Thank you for being a voice of the Native Americans. Environmental Protection Agency. But Kyle Beckerman should be the guy watching the World Cup at a bar in Nashville with his chill hair telling stories to his bros like "Yeah man, I played youth soccer with Kobe. cheap authentic jerseys

"I feel like the LPGA lost a parent, but I'm extremely confident that her vision, her competitiveness, and most importantly, her spirit will be with this organization forever.". Guys are playing within the scheme and taking the plays that are there.

cheap jerseys wholesale Sagittarian Bobby Flay (Dec. Silicone holds are extremely expensive to make, it will run you about $5+ to make a mold and then take a few hours to make then cover in silicone. This is usually at a very, very young age. "We thought that all the devices available in the market were quite bulky there're lots of buttons; the screen isn't big enough. cheap jerseys wholesale

A dirty birdhouse can become infested with mites, ants and other pests that can put the baby birds health at risk. But hardly on a level that sets you apart from your normal person.. The fragrance in the air was heavenly.. Needless to say, the new Alpine was lighter and more nimble than the original, and thus keen competition for the MG and TR.

Gsellman fits the latter makeup better.BillW87New York Mets 13 points submitted 1 day agoHis career is in danger because he hasn had an ERA below 5 since 2015 and he lost 4 mph of average velo off of his fastball after getting his second major surgery on his pitching arm.

cheap nhl jerseys They are intended to make us want to go to work and enjoy ourselves in the process. Didn give me any explanation for the hands seizing up, however I later read that something called Spasms are something that could accompany a panic attack and it caused by hyperventilating. cheap nhl jerseys

And as a sweet floral essential oil, it can specifically address several of women's conditions including menstrual or menopausal problems, cellulite reduction, breast congestion, and several other related conditions. There are 84 Clans in Khandelwals, 82 of them have Rajput origin.

wholesale jerseys I'll stick with it. Flashback Cinema is a separate program that licenses classic films to participating theaters on a set schedule. I do know that it has been mentioned a few times that as a physician it is our responsibility to make sure that the rest of the office toes the line so to say cheap nba jerseys.