Problem oko slanja naredbe u Winsock-u.

Problem oko slanja naredbe u Winsock-u. 21.04.2015. u 21:17 · pre 140 meseci #1

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

Re: Problem oko slanja naredbe u Winsock-u. 22.04.2015. u 10:39 · pre 140 meseci #2

Mislim da ti fale parametri za spajanje. Kamo šalješ te podatke? gdje ti se spaja winsock1?

Potpis

F

Re: Problem oko slanja naredbe u Winsock-u. 22.04.2015. u 19:49 · pre 140 meseci #3

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.

Re: Problem oko slanja naredbe u Winsock-u. 22.04.2015. u 20:37 · pre 140 meseci #4

Tebe muči kako dobiti samo željeni dio teksta? Znak | je delimiter?

Potpis

F

Re: Problem oko slanja naredbe u Winsock-u. 23.04.2015. u 18:59 · pre 140 meseci #5

Da,
"1|23|45" ili "1|2|3
^ ^
ova druga da bude granica , levo i desno .

Re: Problem oko slanja naredbe u Winsock-u. 24.04.2015. u 11:02 · pre 140 meseci #6

"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.

Potpis

F

Re: Problem oko slanja naredbe u Winsock-u. 24.04.2015. u 22:21 · pre 140 meseci #7

Zahvaljujem na objasnjenju verovatno cu uspeti sada da odradim do kraja.

Re: Problem oko slanja naredbe u Winsock-u. 26.04.2015. u 12:08 · pre 140 meseci #8

Ovo

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

mora biti

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

Potpis

F

Forum kao aplikacija na telefonu

Srodne teme