Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Problem oko slanja naredbe u Winsock-u.

[es] :: Visual Basic 6 :: Problem oko slanja naredbe u Winsock-u.

[ Pregleda: 3342 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Zoksyz

Član broj: 20084
Poruke: 130
*.dynamic.isp.telekom.rs.



Profil

icon Problem oko slanja naredbe u Winsock-u.21.04.2015. u 20:17 - pre 109 meseci
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]
 
Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119



+19 Profil

icon Re: Problem oko slanja naredbe u Winsock-u.22.04.2015. u 09:39 - pre 109 meseci
Mislim da ti fale parametri za spajanje. Kamo šalješ te podatke? gdje ti se spaja winsock1?
F
 
Odgovor na temu

Zoksyz

Član broj: 20084
Poruke: 130
*.dynamic.isp.telekom.rs.



Profil

icon Re: Problem oko slanja naredbe u Winsock-u.22.04.2015. u 18:49 - pre 109 meseci
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.
 
Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119



+19 Profil

icon Re: Problem oko slanja naredbe u Winsock-u.22.04.2015. u 19:37 - pre 109 meseci
Tebe muči kako dobiti samo željeni dio teksta? Znak | je delimiter?
F
 
Odgovor na temu

Zoksyz

Član broj: 20084
Poruke: 130
*.dynamic.isp.telekom.rs.



Profil

icon Re: Problem oko slanja naredbe u Winsock-u.23.04.2015. u 17:59 - pre 109 meseci
Da,
"1|23|45" ili "1|2|3
^ ^
ova druga da bude granica , levo i desno .
 
Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119



+19 Profil

icon Re: Problem oko slanja naredbe u Winsock-u.24.04.2015. u 10:02 - pre 109 meseci
"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.
F
 
Odgovor na temu

Zoksyz

Član broj: 20084
Poruke: 130
*.dynamic.isp.telekom.rs.



Profil

icon Re: Problem oko slanja naredbe u Winsock-u.24.04.2015. u 21:21 - pre 109 meseci
Zahvaljujem na objasnjenju verovatno cu uspeti sada da odradim do kraja.
 
Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119



+19 Profil

icon Re: Problem oko slanja naredbe u Winsock-u.26.04.2015. u 11:08 - pre 109 meseci
Ovo

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


mora biti

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

F
 
Odgovor na temu

[es] :: Visual Basic 6 :: Problem oko slanja naredbe u Winsock-u.

[ Pregleda: 3342 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.