Søg
Avatar billede skovjuul Nybegynder
30. april 2008 - 21:25 Der er 4 kommentarer og
2 løsninger

Flytte tekst x antal tegn af gangen

Jeg er ved at lave understøttelse for sms'er over 160 tegn i mit program men jeg har stirret mig godt og grundig blind på følgende udfordring:

if Length(OrgMsg)>160 then
  AmountToSend := 160
else
  AmountToSend := Length(OrgMsg);
StrMove(PChar(BitOfMsg),PChar(OrgMsg),AmountToSend);

Hvad jeg gerne ville opnå er at flytte x antal tegn fra OrgMsg til BitOfMsg og samtidig forkorte Orgmsg med den flyttede streng.

Hmm... Helt optimalt skulle man vel egentlig måle på om sidste ord er for langt og så gå tilbage til sidste mellemrum.

Nogen der har en hurtig løsning ved hånden? Eller en idé til at komme videre?

På forhånd tak
Jesper
Avatar billede arne_v Ekspert
30. april 2008 - 22:05 #1
proev:

OrgMsg := Copy(OrgMsg, AmountToSend + 1, Length(OrgMsg) - AmountToSend);
Avatar billede skovjuul Nybegynder
01. maj 2008 - 23:46 #2
Hmmm... ikke helt hvad jeg umiddelbart havde i tankerne.

Idéen er at hvis en besked er f.eks. 200 tegn (i OrgMsg) så bliver AmountToSend := 160 og de første 160 tegn i OrgMsg bliver derved flyttet over i BitOfMsg, hvilket efterlader de sidste 40 tegn i OrgMsg som så bliver sendt i anden iteration.
Avatar billede kroning Nybegynder
02. maj 2008 - 00:36 #3
var
  OrgMsg,BitOfMsg : string;
  AmountToSend : integer;
begin
  if Length(OrgMsg)>160 then
    AmountToSend := 160
  else
    AmountToSend := Length(OrgMsg);

  BitOfMsg:=Copy(OrgMsg,1,AmountToSend);
  Delete(OrgMsg,1,AmountToSend);
end;
Avatar billede skovjuul Nybegynder
02. maj 2008 - 01:21 #4
Sorry kroning, burde ha opdateret her hurtigere, var selv kommet frem til næsten det samme for halv times tid siden baseret på arnes svar:

BitOfMsg := Copy(OrgMsg, 0, AmountToSend);
OrgMsg := Copy(OrgMsg, AmountToSend + 1, Length(OrgMsg) - AmountToSend);

Men smid et svar begge to, så får du 10 af pointene kroning.
Avatar billede arne_v Ekspert
02. maj 2008 - 02:09 #5
svar
Avatar billede kroning Nybegynder
02. maj 2008 - 10:16 #6
k
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel Indlæg Oprettet Seneste aktivitet
Bat file. Af johnnylassen i Andet programmering 4 23/04/202616:10 24/04/202609:43
Hjælp til Api.asmx Af lurup i Andet programmering 1 17/03/202609:27 17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering 2 12/11/202514:10 02/12/202520:42
Hjælp til programmering af website Af hamdenlange i Andet programmering 16 17/08/202522:26 19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering 8 24/07/202513:06 28/07/202517:03
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 18:58 Mellemled til forsendelse fra Tyskland Af nu_igen i E-handel
I går 12:44 Lenovo ThinkPad X1 Yoga Af mort1 i PC
03/0710:40 Dagens vits fra AI Af nu_igen i Andet software
03/0710:28 Stifinder gemmer de sidste 20 åbnede dokumenter, nu er de pludselig væk. Af Uvanga i Windows
01/0715:18 Min PC kan nu ikke se den ekstra skærm Af KurtG i Windows
White papers
Flere white papers »