[ Zoksyz @ 21.04.2015. 20:17 ] @
Treba da posaljem naredbu ceo Text2 zajedno sa izvojenim delom iz unosa Text1
kao ( 1|23 ili 12|3456 ), i druga poruka
ceo Text2 zajedno sa zadnjim delom na primer ( 45 ili 789 ) bez znaka |.

Unos podataka u Text1, na primer 1|23|45 ili 12|3456|789

Private Sub Command1_Click()
Text2.Text = "abcde" & Text1.Text
Winsock1.SendData Text2.Text
Winsock1.SendData Chr(13)
End Sub

Pozdrav

[Ovu poruku je menjao Zoksyz dana 22.04.2015. u 08:53 GMT+1]
[ captPicard @ 22.04.2015. 09:39 ] @
Mislim da ti fale parametri za spajanje. Kamo šalješ te podatke? gdje ti se spaja winsock1?
[ Zoksyz @ 22.04.2015. 18:49 ] @
Odradio sam spajanje i to radi, mogu da saljem podatke i da primam.
Ovo je primer:

Tamo nege je unos Text1 = "1|23|45" ili "1|2|3

Private Sub Command1_Click()
Text2.Text = "abcde" & Text1.Text
Winsock1.SendData Text2.Text
Winsock1.SendData Chr(13)
End Sub

0o ovome ce mi poslati : abcde1|23|45 ili abcde1|2| a treba da mi posalje:
abcde1|23 ili abcde1|2 ili druga forma sa desne strane "abcde45" ili "abcde3"
Mislio sam da odradim sa izajanjem karaktera iz teksta sa LEFT$ ILI RIGHT$ ,
posto mi treba i od desne strane podatka i to bi mi zvrsilo posao ali se pojavio problem
da ima promena broja karaktera podatka.
Granica unaosa teksta je druga | , ako neko ima neki predlog ako ne moracu drugacije da odradim.
[ captPicard @ 22.04.2015. 19:37 ] @
Tebe muči kako dobiti samo željeni dio teksta? Znak | je delimiter?
[ Zoksyz @ 23.04.2015. 17:59 ] @
Da,
"1|23|45" ili "1|2|3
^ ^
ova druga da bude granica , levo i desno .
[ captPicard @ 24.04.2015. 10:02 ] @
"pos" je funkcija, mislim da se u visual basicu zove InStr. Uglavnom, malo preradi za visual basic i to je to.

Code:
function UzmiDelimiter(s: string; c: char; n: integer): string;
var
  i: integer;
  temps: string;
begin
  if n = 0 then
  begin Result := '';
    Exit;
  end;

  if pos(c, s) = 0 then
  begin
    if n > 1 then
      UzmiClan := ''
    else
      UzmiClan := Trim(s);
    Exit
  end
  else
  begin
    for i := 1 to n do
    begin
      temps := Trim(copy(s, 1, pos(c, s) - 1));
      delete(s, 1, pos(c, s));
      s := Trim(s);
      if c = ' ' then s := s + ' ';
    end;
    temps := Trim(temps);
    UzmiClan := temps;
  end;
end;


Koristi se ovako:

Code:
strTest := 12|34|56;
strDio := uzmiClan(strTest, "|", 2);


strDio bi imao vrijednost 34.
[ Zoksyz @ 24.04.2015. 21:21 ] @
Zahvaljujem na objasnjenju verovatno cu uspeti sada da odradim do kraja.
[ captPicard @ 26.04.2015. 11:08 ] @
Ovo

Code:
function UzmiDelimiter(s: string; c: char; n: integer): string;


mora biti

Code:
function UzmiClan(s: string; c: char; n: integer): string;