PHP automatycznie dokonuje konwersji integer na string, jeśli tego wymaga operacja. Ostatecznie zawsze można zrobić konatencję z pustym ciągiem lub rzutować na string. Pierwsza strona na googlach przy zapytaniu "php rzutowanie": [url=http://wortal.php.pl/wortal/artykul... i rzutowanie...
function FileGetAttr(const FileName: string): Integer; function FileSetAttr(const FileName: string; Attr: Integer): Integer;
Hej! Zobaczcie jak ja to robię, może komuś sie to przyda: 'Powiedzmy ze zmienna Liczba(single) wynosi 22.62555426 Temp = Int(liczba) ' dzieki temu poleceniu odcinam czesc setna czyli ' zmiennej Temp(byte) przypisuje liczbę 22 Liczba = Frac(liczba) ' dzieki temu poleceniu odcinam czesc ' dziesiętną czyli zmiennej Liczba(single) przypisuje ' liczbe 0.62555426...
Witam, mam problem ze stworzeniem tabeli, w której zawarte byłby różne typy danych(konkretnie boolean, integer, string). Byłbym wdzięczny, gdyby ktoś wyjaśnił, podpowiedział jak stworzyć tabele z różnymi typami danych Z góry dziękuje za pomoc
[syntax=vbscript]Function WlasnafunkcjaWstawBranze(D As Integer, E As Integer) As String If D = 1 And E = 1 Then WlasnafunkcjaWstawBranze = D & "," & E End Function[/syntax]
Pokazuje się błąd, że: Incompatible types 'string' and 'integer' Edit1.Text:=Inttostr(Edit1.Text+1) można tak Edit1.Text:=Edit1.Text+'1'; albo tak Edit1.Text:=Edit1.Text+Inttostr(1);
[syntax=vbscript]Function CzescWspolna(Pierwszy As String, Drugi As String, Dlugosc As Integer) As String For x = 1 To Len(Pierwszy) a = Mid(Pierwszy, x, Dlugosc) If Len(a) = Dlugosc And InStr(1, Drugi, a) > 0 Then CzescWspolna = a Exit For End If Next End Function [/syntax]
Użyj funkcji VAL. var = VAL( s). s to string, a var to liczba.
O wiele prościej i elastyczniej masz tu: [syntax=vb]Function Zlozonosc(Wartosc As Integer) As String Wartosc = Int(Wartosc) Select Case Wartosc Case 0 Zlozonosc = "niemożliwe" Case 1 To 2 Zlozonosc = "niska" Case 3 To 4 Zlozonosc = "średnia" Case 5 To 6 Zlozonosc = "wysoka" Case Else Zlozonosc = "brak" End Select End Function Function Zakres(Wartosc...
Ile cyfr, czy ile liczb? W temacie podajesz cyfry, w treści liczby. Jeżeli liczby, to: [syntax=vbscript]Function IleLiczb(Komorka As String) As Integer IleLiczb = UBound(Split(Komorka, ",")) + 1 End Function [/syntax] Jeżeli cyfry, to: [syntax=vbscript]Function IleCyfr(Komorka As String) As Integer i = Len(Komorka) For x = 1 To i a = Asc(Mid(Komorka,...
No właśnie helper służy do takich rzeczy, jak m.in. nadpisywanie (override) metod. Przykładowo umieszczasz w swoim unicie: [syntax=Delphi]type THStrings = class helper for TStrings function Add(s: String): Integer; end; ... fucntion THStrings.Add(S: String): Integer; begin lblMoj.Caption := 'A teraz dodałem: ' + S; Result := inherited Add(S); // tu...
Zaproponuję taką funkcję: [syntax=vb]Function SzukajPracownika(Dzien As Integer, Zmiana As String) As Integer Sheets("Dane").Select ostw = Cells(Rows.Count, "A").End(xlUp).Row For x = 4 To ostw If Cells(x, Dzien + 2) = Zmiana Then SzukajPracownika = x Exit Function End If x = x + 1 Next End Function[/syntax] Zastosowanie: =SzukajPracownika(17;"108b")...
toString public String toString()Returns a String object representing this Integer's value. The value is converted to signed decimal representation and returned as a string, exactly as if the integer value were given as an argument to the toString(int) method. Overrides: toString in class Object Returns: a string representation of the value of this...
Proszę bardzo : [syntax=delphi]program Project1; {$APPTYPE CONSOLE} uses SysUtils; type zapytanie = packed record pytanie : string; odpowiedz : string; end; const Ile_pytan = 3; tablica_pytan : array[1..Ile_pytan] of zapytanie = ( (pytanie : 'ile to jest 2 * 2? '; Odpowiedz :'4'), (pytanie : 'ile zostanie, jeeli odejmiesz 5 od 7? '; Odpowiedz :'2'),...
Witam, myślę że te funkcje Ci się przydadzą: function BinStrToInt(BinStr : string) : integer; var counter : integer; begin if length(BinStr)>16 then raise ERangeError.Create(#13+BinStr+#13+ 'nie mieści się w zakresie 16 bit.'+#13); Result:=0; for counter:=1 to length(BinStr) do if BinStr[Counter]='1'...
[syntax=vbnet]Function WiekSlownie(Wiek As Integer) As String Select Case Wiek Case 1 w = "rok" Case 2 To 4 w = "lata" Case 5 To 21 w = "lat" Case Is > 21 j = Right(Wiek, 1) If j = 2 Or j = 3 Or j = 4 Then w = "lata" Else w = "lat" End If End Select WiekSlownie = w End Function [/syntax] P.S. To ma być po czesku?;)
' Funkcja musi być zadeklarowana przed jej pierwszym użyciem ' ponieważ kompilator musi wiedzieć jaki jest rozmiar danych ' przesyłanych do funkcji i jaki jest jej typ wyniku ' Funkcja musi mieć zdefiniowany typ wyniku, tu Integer Declare Function Test(byval Liczba As Integer , Tekst As String) As Integer ' określenie byval przed nazwą oznacza,...
Musisz od początku opisać problem. 1. Pokaż schemat. 2. O jakim nadajniku Waść prawisz? 3. Co to za czujnik? 4. W jaki sposób czytasz dane z tego nadajnika? (Chaciałeś zmienić string na integer, a się okazuje, że masz zupełnie inny problem). Ale po kolei, najpierw odpowiedz na pytania.
Tak na szybko : [syntax=delphi] function te9znakow(s1,s2 : string):string; var Polozenie : integer; begin Polozenie:=Pos(s1,s2); if polozenie>=0 then result:=copy(s2,Polozenie+length(s1),9); end;[/syntax]
A nacisnąć F1 i zerknąć do pomocy to nie łaska? procedure Delete(var S: String; Index: Integer; Count: Integer); Description Removes a substring from a string. In Delphi code, Delete removes a substring of Count characters from string S starting with S
Przepraszam. Bascom avr
Wklej tę funkcję do modułu VBA. [syntax=vb] Function PozycjaSlowa(Slowo As String, Tekst As String) As Integer PozycjaSlowa = InStr(1, Tekst, Slowo) End Function [/syntax] Użyj jej w ten sposób: =PozycjaSlowa("AAA";A1)
Np wykorzystując wyrażenie regularne: [syntax=vbscript]Sub DataKropki() Dim objRegEx As Object, objWynik As Object, tekst As String, i As Integer, strWynik As String Set objRegEx = CreateObject("VBScript.RegExp") tekst = "asd.010.324.XX/FV; tar BBB EEE WW/WY - KZ 11.11.1111; (12.12.1212) " objRegEx.Global = True objRegEx.IgnoreCase = True objRegEx.Pattern...
Prostym makrem można tak (wklej w kod arkusza i uruchom; zapisze w kol.A) [syntax=vbscript]Sub numerowanie() Dim w As Integer, test As String Dim licznik1 As Integer, licznik2 As Integer, licznik3 As Integer w = 3 Do While Cells(w, 5) <> "" If Cells(w, 4) = "__Element" Then licznik1 = licznik1 + 1 licznik2 = 0 licznik3 = 0 ElseIf Cells(w, 4) =...
Może coś w ten deseń? Aczkolwiek odradzam. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Edit9:...
Unit SysUtils function IntToHex(Value: Integer; Digits: Integer): string; W drugą stronę nie ma gotowej, ale można pokombinować np. z StrToInt.
do nowo utworzonego pliku
Problem jest banalny: [syntax=vbnet]Public Class Form1 Dim liczba As Integer Dim aStr As String = String.Empty Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click liczba = Convert.ToInt32(TextBox1.Text) + Convert.ToInt32(TextBox2.Text) aStr = System.Convert.ToString(liczba) TextBox3.Text = aStr...
Jak zmienić Integer, boolean na String ??????? Delphi
"wynik:= prostokat.tworz(StrToInt(Edit1.Text),Str... Ta linia tworzy klasę 'prostokat' pobierając dane z pól edycyjnych Edit1 i Edit2, zamieniając je z string na integer i zapisuje wskaźnik do utworzonej klasy w zmiennej 'wynik'.
Zamiana integer na łańcuch trójkowy: function ITo3(i : integer) : string; var St : string; begin St:=''; repeat St:=char((i mod 3)+$30)+St; i:=i div 3; until (i=0); ITo3:=St; end; i do dowolnej podstawy np. szesnastkowej: Const XDigits : string = '0123456789ABCDEF'; //itd.......... function...
W buforze wszystkie dane z RSa są z enterem i końcem linii. może nie być początku informacji ale zakończenie zawsze jest Tę kwestię możesz pominąć jest marginalna i nie powinna mieć kluczowego znaczenia dla poprawności odczytu danych jeśli 13 nie wystąpi to po 4096 zerowanie: Dim znak As Integer Dim ciąg As String Dim licznik As Integer licznik = 0...
Zmodyfikowałem odrobinę twój program, dział na 100% z Delphi 2009/2010. Zmieniłem procedurę odczytu plików, w formacie czytelnym dla człowieka :) Kolejne liczby zapisujesz po przecinkach. Twój plik źródłowy może teraz wyglądać np. tak : 1,2,3,4,5 7,8,9,10,234 65,58,29,352,45 -6,78,0,34,53 365,22,8,-3,2 program Project6; {$APPTYPE CONSOLE}...
Może coś takiego: [syntax=vb] Sub ukryjWiersze() Dim i As Integer Dim selRange As String For i = 60 To 70 selRange = "A" & i If range(selRange).Value = 0 Then range(selRange).Select Selection.EntireRow.Hidden = True End If Next i End Sub [/syntax]
litery inne niż małe: możesz zrobić tak: program test; uses crt; procedure test_znak; var ch : char; begin repeat writeln('Podaj znak do zakodowania: '); ch := readkey; until (ord(ch) >= ord('a')) and (ord(ch) <= ord('z')); writeln('Podales: ',ch); end; procedure test_liczba;...
A może tak: Dim Temp As Integer Dim Disp As String * 5 Temp = 366 'odczytana wartość temperatury Disp = Str(Temp) Disp = Format(Disp , " 0.0") Locate 1 , 1 Lcd Disp Pozdrawiam...
Można i tak. Z tym, że operujesz na rekordzie, więc tracisz wszystkie właściwości klasy TObject. Równocześnie, nikt nie operuje na obiektach, używając do tego TCheckBoxList, bo wspomniany komponent nie ma po prostu do tego narzędzi. Dodając obiekt do TCheckBoxList, możesz się do niego odwołać tylko przez jego kolejny indeks, a to trochę za mało :)....
Jako jeden z tych dwóch pozostałych na świecie programistów Delphi, dorzucę swoje dwa grosze. Błąd jaki otrzymałeś mówi dość wyraźnie: ta funkcja 'tu wstaw nazwę funkcji' nie może być wywołana z tymi parametrami. [syntax=delphi]wynik:=inttostr( (strtoint(edit1.text) - strtoint(edit3.text)) / strtoint(edit2.text) );[/syntax] W tym przypadku, próbujesz...
To do proste: [syntax=delphi]procedure TForm1.Button1Click(Sender: TObject); var I : integer; s : string; begin for i:=0 to self.ComponentCount-1 do if (self.Components[i] is TEdit) then begin s:=TEdit(self.Components[i]).name+'='+TE... //store s bla, bla bla end; end;[/syntax] Oczywiście zamiast 'self' można wstawić np. nazwę...
Proszę: [syntax=vbscript] Sub Przycisk2_Click() Dim f As Integer Dim g As String f = InputBox("Wprowadź numer (Lp):", "Wprowadź numer zlecenia:") g = InputBox("Wprowadź UWAGI:", "Wprowadź UWAGI:") Range("E" & WorksheetFunction.Match(f, Range("A:A"), 0)).Value = g End Sub [/syntax]
idę dobrym tropem? Jak najbardziej :idea: :) Wystarczy odchudzić ten kod, bo w nim robisz w sumie 2 operacje, wczytujesz kod do DOMObject-a w postaci tekstu który zaciągasz poprzez Line Input #intFile, strXML . Możesz od razu zrobić sprawdzanie danej gałęzi, a plik ładować do obiektu poprzez objectdom.Load(_plik_) np: [syntax=vb]Function sprawdz_xml(sciezka...
A pamiętałem ;) Jednak robię przez otwarcie portu - nawet nie jest bardzo wolno procedure EnumPorts( PortList: TStrings ); var MaxPorts : integer; hPort : THandle; PortNumber : integer; PortName : string; begin if PortList = nil then EXIT; case Win32PlatForm of VER_PLATFORM_WIN32_NT: MaxPorts := 256; VER_PLATFORM_WIN32_WINDOWS:...
skopiuję z Delphi funkcję opakowującą: GetTextExtentPoint32 Handle to oczywiście w WinAPI DC (bodajże ;) )
Poprawiłem błąd... [syntax=vb]Sub ImportujPlikizWieluLokalizacji() Application.ScreenUpdating = False Dim Plik As String, Katalog As String, x As Integer, y As Integer, NowyWiersz As Long Dim NazwaPliku As String, Zeszyt As String, i As Integer Dim ArkuszWejsciowy As String, ObszarWejsciowy As String, KolumnaGdzieWkleic As String ArkuszWejsciowy = Sheets("Parametry").Range("B1")...
A jaka to jest liczba "123milisekund" ? Delphi wyrzuci wyjątek o niemożności przekonwertowania. Jeśli już chcesz tak zrobić aby w edit'cie mieć liczbę i stringa to z powrotem musisz sobie tą liczbę odzyskać. Możesz zrobić tak: 1. szukasz na którym miejscu w stringu pobranym z edita jest ' ' <-spacja, czyli np: function LastDelimiter ( const Delimiters,...
Może to trochę pomoże: procedure TForm1.FillGrid; var i,j: Integer; begin StringGrid1.DefaultDrawing := False; for i := 0 to StringGrid1.RowCount -1 do for j := 0 to StringGrid1.ColCount -1 do StringGrid1.Cells[ j, i ] := Format('Współ. kom.: K: %d, W: %d', [j, i]); StringGrid1.Repaint; end; procedure...
Spróbuj podstawić "kryteria" jako String w cudzysłowach [syntax=vbscript]Sub ZliczNazwiska() Dim OstA As String Dim OstB As String Dim i As Integer Dim Zakres As Range Dim Kryteria As String OstA = Cells(Rows.Count, "A").End(xlUp).Row OstK = Cells(Rows.Count, "K").End(xlUp).Row For i = 2 To OstK Set Zakres = Range("K2:K" & i) Kryteria = """" & Range("K"...
znam atoi() i czasem używa, ale ta funkcja działa niestety w drugą stronę (z liczby robi stringa). Tym razem potrzebuję string --> integer
... Może ktoś wie jak to zrobić bez sztucznego sprawdzania i dopisywania końcówek. PL Ja chyba wiem ;) 'dla Frm = 0 , kompiluje Fusing() 'dla Frm = 1 , kompiluje Format() 'teraz mozna porównać "pamięciożerność" Const Frm = 0 Dim A As Single , B As Integer , C As String * 10 A = 1.1625 B = A * 10 #if Frm C = Str(b)...
Dodano po 9 Może tak będzie wygodniej.
Ale żeby kod był szybszy, to: Jeszcze szybszy :) [syntax=vbscript]Function Staly(Tekst As String, Dlugosc As Integer) Staly = Left(Tekst & String(Dlugosc, " "), Dlugosc) End Function[/syntax]
Na szybko i na kolenie to może być tak: [syntax=delphi]function Lottery(ARange, ACount : Integer) : String; var lCount : Integer; lST : TStringList; lValue : Integer; lStrValue : string; begin if ACount > ARange then raise Exception.Create('Wymagana liczba wylosowanych liczb jest większa od dopuszczonego zakresu!'); Randomize; lST := TStringList.Create;...
procedure TForm1.Button1Click(Sender: TObject); var ciag: string; I: integer; begin ciag := Edit1.Text; //Pobranie tekstu z pola edycyjnego Label1.caption := ''; //Czyszczenie labela For I := length(ciag) downto 1 do //Od długości tekstu w dół do 1 znaku Label1.Caption := Label1.Caption + ciag[I];...
To ja też się tu dotknę. Jeżeli chodzi o sumowanie cyfr w liczbie to zostaje tylko makro Myślę, że funkcja użytkownika jest wygodniejsza. Może wyglądać tak: Function CyfrySuma(Dana As String) As Integer CyfrySuma = 0 For i = 1 To Len(Dana) CyfrySuma = CyfrySuma + Val(Mid(Dana, i, 1)) Next End Function
Error 10:Wrong type(bit,byte,integer,word,or string) Linia przy której Bascom protestuje , ma za zadanie zmienić znak zmiennej T2 , na przeciwny.To co przechodzi w BascomAVR , nie działa na Bascom8051-fakt.Każdy , kto chce pisać jakiekolwiek programy na uP czy uC , nie może być z algebrą na bakier :D 2 przykłady: If T2 < 0 Then T2 = T2 * -1 lub...
Dokładnie jak kolega wspomniał powyżej. Poza tym, dodam tylko od siebie, że trochę kolega autor tematu namieszał z różnymi typami danych. W zdarzeniu nadejścia znaku ASCII ( OnRxChar ) czyta kolega dane do bufora zbudowanego z tablicy byte? To "niewielka" niekonsekwencja :) Sugeruję zdecydować się na konkretny typ danych (znaki albo bufor danych) i...
O ile znasz długości to: ahhh, bo mu chyba chodziło o co innego niż zrozumiałem. Jeśli tak, to (at)psiak ma racje, masz funkcje Copy [syntax=delphi] function Copy(S: string; Index: Integer; Count: Integer): string; Index is the first char of the substring, Count is the number of chars you want [/syntax]
Aldrin, oczywiście, że masz rację.:) No to może tak: [syntax=vb] Function PRLKtoryWyraz(Tekst As String, Ktory As Integer) As String Dim IloscWyrazow As Integer wyrazy = Split(Tekst, " ") IloscWyrazow = UBound(wyrazy) + 1 If IloscWyrazow = 0 Then PRLKtoryWyraz = "W podanym tekście brak wyrazów." Exit Function End If If Ktory > IloscWyrazow Then PRLKtoryWyraz...
Fajne te Twoje pytania. ;) Ile sam sie przy nich uczę. ;) Znalazłem rozwiązanie na Twoje pytanie, daj mi 10 min to poskładam to czytanie i wrzucę tu. ;) [syntax=vb] Private Sub txtNazwisko_Change() Call AktualizujListe(txtNazwisko.Text, 0) End Sub Private Sub txtZnaczek_Change() Call AktualizujListe(txtZnaczek.Text, 2) End Sub Private Sub AktualizujListe(ByRef...
Witaj [syntax=vb] Dim Sh As Worksheet Dim intName As Integer Dim shName As String Dim strNazwa As String ActiveWorkbook.Sheets("Template").Copy After:=ActiveWorkbook.Sheets("Template") strNazwa = "projekt" ' tutaj ustawiamy jak ma wyglądać początek nazwy arkusza intName = 0 For Each Sh In ActiveWorkbook.Worksheets shName = Sh.Name If Left(shName, Len(strNazwa))...
Cbrman, działa jak złoto! Lecz chciałbym się dowiedzieć (laiiiik) co to jest za rodzaj deklarowania zmiennych z %? Na czym to polega? Dziękuję za pomoc!+ EDIT: Doszedłem do tego. Integer i string :)
Proponuję sprawdzić taki kod : [syntax=pascal]program generator; uses crt; function LosowaZZAkresu:char; var result : char; begin repeat result:=Chr(random(255)); until result in ['0'..'9','A'..'Z']; LosowaZZAkresu:=result; end; var s : string; i : integer; begin randomize; s:='XXXXX-XXXXX-XXXXX-XXXXX-XXXXX'; for i:=1 to Length(s) do begin if s[i]='X'...
Lepiej zmień deklarację T As Word na T As Integer - zmieniono zobacz czy bit całkiem po lewej to jedynka. - Jest 1 Zmieniłem na bit 16 i error w tej linijce. Dim Tempw1 As Integer Dim Tempstr As String * 20
WItajcie Czy jest szansa, by w 2 kB 90s2313 zmieścić obsługę DS18B20 wraz z obliczeniami by uzyskać na LCD temperaturę z wartościami po przecinku. $regfile = "2313def.dat" $crystal = 16000000 Config 1wire = Portb.0 Dim T As Integer , Stt As String * 6 Cls Do 1wreset 1wwrite &HCC 1wwrite &H44 Waitms 800 1wreset 1wwrite &HCC 1wwrite...
Wczytuje dane ze wszystkich plików tekstowych znajdujących się w tym samym katalogu, co plik Excela: [syntax=vb] Sub ddd() Dim wiersz As Integer Dim wielkosc As Integer Dim lInputFile As Variant Dim linia As String Dim i As Integer Dim tekst As Variant Dim opis As String wiersz = 1 Dim plik_txt As String plik_txt = Dir(ActiveWorkbook.Path & "\*.txt")...
Ja bym to zrobił prostym makro: [syntax=vbnet]Function LX(co As String, gdzie As String) As Integer Dim x, c As Integer c = 0 If Len(co) > Len(gdzie) Then LX = 0 Exit Function End If For x = 1 To (Len(gdzie) - Len(co) + 1) If (Mid(gdzie, x, Len(co)) = co) Then c = c + 1 Next x LX = c End Function [/syntax] W arkuszu udostępniona jest nowa funkcja LX,...
Witam [syntax=vb] Sub podzial_pliku() Dim kol As String Dim wiersz As Integer Dim nazwa As String Dim ark As Worksheet kol = InputBox("Podaj litere kolumny na podstawie ktorej nastapi podzial plikow", "Pytanie") wiersz = InputBox("Podaj numer wiersza od ktorego zacznie sie podzial plikow", "Pytanie") Range(kol & wiersz).Select Set ark = ActiveSheet...
Blokowanie uzyskasz poprzez założenie hasła. Numerowanie komentarzy poniżej. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim a As String If Not Application.Intersect(Range("A1:C10"), Range(Target.Address)) Is Nothing Then i = Environ("USERNAME") & " <" & Now & ">" & vbNewLine & Target & vbNewLine...
Można zwiększyć bufor dla danych wejściowych i funkcjami Charpos , Mid pobierać dane dla silników. Charpos wyszukuje określony znak w łańcuchu i zwraca jego pozycje. Do wyszukiwania słów "silnik" można użyć funkcję InStr . Mały przykład wykorzystujący Charpos, format wprowadzanych danych p100,l99,p43;l999,l1,p4; średnik też musi być na końcu danych....
Może to Ci pomoże. Makro, dla podanej "szukana" przeszukuje każdy wiersz. Jeżeli znajdzie szukaną to kopiuje cały wiersz i przenosi do innego arkusza Dodano po 3 jeszcze raz bez zbędnych żeczy :) [syntax=vb]Sub Szukaj() Dim wiersz As Integer, kolumna As Byte, szukana As String, NumerWiersza As Integer Dim lastRow As Integer With ActiveSheet lastRow...
No skoro zostałem "zobowiązany" "Pomocnym ...", to ode mnie coś takiego: [syntax=vbscript]Option Explicit Sub rozdziel_arkusze() Const gdzie As String = "C:\Users\mirek\Desktop\R3.2_05.2018\" 'Tutaj należy podać własną ścieżkę Dim i As Integer, j As Integer, ileark As Integer, nazwa As String If Dir(gdzie, vbDirectory) = "" Then MkDir gdzie Application.ScreenUpdating...
nieco bardziej optymalna wersja (bez jakiegos Power()...) function Hex2Bin(const h : string) : string; const Hex : string = '0123456789ABCDEF'; var i, j, p : Integer; begin Result := ''; for i := 1 to length(h) do begin p := pos(h[i], Hex) - 1; for j := 0 to 3 do begin Result := Result + Chr(Ord('0') + ((p and 8) shr 3)); p := p shl 1; end; end; end;
można zrobić i funkcie któras będzie działała jak inne funkcje excela (np suma() z tym że za każdym razem przy wejściu do takiego pliku excela będzie monit o makro. Przyznam że nie jestem za dobry w makrach ale poprzez logiczne myślenie :) coś takiego stworzyłem Function KOMENTARZ(a As Integer, b As Integer) As String KOMENTARZ = Cells(a, b).Comment.Text...
Jaką funkcją skonwertować zmienną typu znakowego do typu całkowitego? W C++ robi się to przez StrToInt . Jakie są w ogóle odpowiedniki funkcji: StrToInt i IntToStr FloatToStr itd. Zamykam. - arnoldziq
Może i da się to zrobić formułą, ale ja bym to zrobił takim makro: Const Acc = "abcdefghijklmnopqrstuvwxyzABCDEFGH... W tej linijce są zdefiniowane wszystkie znaki, które są dopuszczalne. Możesz sobie dopisać jakiekolwiek inne. Jeśli znaku nie ma na tej liście, to będzie on ignorowany, czyli w tym przypadku jedynie...
Chyba zmienne pole1 i pole2 przyjęły wartość typu string, spróbuj wcześnej skonstruować zmienne int w oparciu o wartośc string, typ Integer ma konstruktor w oparciu o zmienną typu string ale nie pamiętam czy JavaScript na pewno ma typ Integer (int ma na 100%).
Liczba na tekst: Możesz użyć funkcji Val() Tekst na liczbę Możesz użyć funkcji ToString() w ten sposób: [syntax=vb] Dim num As Integer Dim str As String num = 123456789 str = Convert.ToString(num) [/syntax] lub w ten sposób: [syntax=vb] Dim num As Integer Dim str As String num = 123456789 str = num.ToString() [/syntax]
no jezeli wpisujesz recznie to mozesz zareagowac w zdazeniu SetEditText. zalozmy,ze string ma 10 znakow (12°45'78'' <- na koncu 2 apostrofy) w skladni zdarzenia SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String) wartosc value to jest aktualnie wpisywany string. robisz warunek: if length(value)=10 then..... i tu reagujesz w sposob...
I na koniec jeszcze wersja w Visual Basicu. Funkcja PLit jest wywoływana z argumentem będącym tekstem źródłowym, albo odwołaniem do komórki z tym tekstem, zwraca położenie pierwszej litery. Reszta jak poprzednio. Kod funkcji: [syntax=vb]Function PLit(s As String) As Integer Dim i As Integer For i = 1 To Len(s) If Mid(s, i, 1) >= "A" Then Exit For Next...
W kodzie masz 79, zaś w treści 77 - to poczynając, od której właściwie ma to się dziać ? Przydałby się jakiś przykład, bo nie wiadomo czy to "co 93" ma być łącznie czy rozłącznie z "komórką startową" Sprawdź, zweryfikuj, popraw, skoryguj: [syntax=vbscript]Option Explicit Sub wstaw() Dim licznik As Long 'Integer Dim ostWrs As Long 'Integer 'Dim Nazwisko...
[syntax=vbscript] Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long ' Public Function IsInternetConnected() As Boolean Dim strConnType As String Dim lngReturnStatus As Long IsInternetConnected = False lngReturnStatus...
Wstaw do modułu [syntax=vbscript]Public Function Literki(r As Range) As Integer Dim z As Range, strStr As String, i As Integer Dim licz As Integer For Each z In r strStr = strStr & z.Text Next For i = 1 To Len(strStr) If Asc(Mid(strStr, i, 1)) >= 65 And Asc(Mid(strStr, i, 1)) <= 90 Then licz = licz + 1 'jeśli również małe litery, odptaszkuj...
Zdaje się, że o coś takiego (kod wkleić do modułu) - przetestować, dostosować do własnych potrzeb. [syntax=vb]Sub bla() Dim psc As String, adr1 As String, adr2 As String Dim kom As Range, ile As Integer, msg As String psc = "100239b" 'psc = "100238b" 'psc = "elektroda" 'to w pętli po kolumnie A z Arkusz2 With Sheets("baza danych") On Error Resume Next...
cnt to integer. Kompilator traktuje go jako adres i wyświetla w ASCII, to, co tam w pamięci jest... powinieneś najpierw zamienić ten integer na string (na np. char txt[16], funkcja Int2Str lub IntToStr lub sprintf), a potem wyświetlić te txt.
Dzięki za odpowiedź. A jak to samo zrobić bez printf? Można właśnie kombinować z itoa, lecz funkcja ta nie należy do standardowej i lepiej użyć sprintf albo bezpośrednio printf. Ponadto itoa konwertuje wartośc integer do stringa umieszczając znak końca danego łacucha (NULL). Może dlatego właśnie masz tam złą wartość po przeliczeniu swoim sposobem....
Witam, stworzyłem prostą funkcję która znajduję wszystkie warianty w tabeli: [syntax=vbscript]Function Wyszukiwanie(wartosc As String, Zakres As Range, Kolumna As Integer) As String Dim i As Integer For i = 1 To Zakres.Rows.Count If Zakres.Cells(i, 1) = wartosc Then WyszukajWszystkie = WyszukajWszystkie & Zakres.Cells(i, NrKolumny) & ", " End If Next...
vcarter - w pierwszym poście przedstawiłeś kod, w którym wystarczy tylko zmienić wklejanie całej zawartości pliku na odczyt wiersz po wierszu i umieścić wszystko w pętli. VBA posiada wbudowane funkcje. które radzą sobie z własnymi oraz niektórymi obiektami systemowymi, w przeciwieństwie do Np Basica w Open Office, gdzie niemal wszystkie obiekty wymagają...
Twoja funkcja: w kodzie dodać funkcję sumującą wartości, które zostały wyliczone na podstawie tego kodu Coś bliżej i odrobinę jaśniej ... jakby można było ...
czy da się prawidłowe numery kart wyciągnąć w excelu bez PQ? Podobny problem :cry: , ba chyba nawet gorszy bo z 26 cyfrowymi numerami kont :D rozwiązuje sobie przy imporcie do excela poprzez proste makro :spoko: [syntax=vbscript]Dim intResult As Integer Dim strPathFile As String Application.FileDialog(msoFileDialogOpen... = False intResult...
Convert string to Integer
Zamieniasz jakaś cyfrę z integer na string, to w jaki sposób chiałes to zamienić z "0" na przodzie? MD5 ma podajże 32 znaki długości, prawda? Wypełniaj zerami z przodu ten ciąg, do osiągnięcia odpowiedniej długości.
[syntax=vbscript] Function nazwaMiesiac(i as integer) as string Dim w as string ="" If i=1 then w ="Styczeń" 'i tak do grudnia Return w End function Function nazwaMiesiac(nazwa as string) as integer Dim w as integer =0 If nazwa.Tolower= "styczeń" then w =1 'i tak do grudnia Return w End function Dim ok as boolean = false For i = 1 to 12 If nazwaMiesiac(Msc)...
To spróbuj takie makro - wynik wpisywany jest do kolumny D [syntax=vbscript]Public Sub SprawdzFoldery() Dim Sciezka As String Dim i As Long Dim k As Integer Dim OstW As Long Dim NFolder As String Dim NPodFolder As String Sciezka = "C:\StaryFolder\" ' tu wpisz adres starego folderu OstW = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To OstW NFolder...
1. Zrób nową formę. 2. Wstaw na formę 3 Edit-y. (Edit1, Edit2, Edit3) 3. Wstaw na formę 1 Memo. (Memo1) 4. Wstawiasz jeden przycisk. (Button1) 5. Zmodyfikuj swoją procedurę liczącą w ten sposób : [syntax=delphi]procedure P(var A: string; B: string; R : integer); //zmiana var J: Word; C, D: string; begin { P(N,N) >> R=Slen } if Length(B) = SLen - R then...
Moja mowa będzie krótka ... Dim Zm As String * 10 , X As Integer X = 2000 'dec X=2000 , hex X=7D0 Zm = Str(x) ' Zm="2000" X = Hexval(zm) 'dec X=8192 hex X=2000 Czy o to Ci chodzi :?: Piotrek PS Ale uważaj , bo dla dec X>7999 wyjdą cuda :D
Wydaje mi się, że bardziej chodzi o wybieranie wielu w oknie 'GetOpen'. Nie wnikając w "panel" i "remonty" powinno być coś takiego: [syntax=vbscript]Sub Wczytywaniedancyh() Dim otwieranie As String Dim tb() As Variant, test As Boolean, i As Integer Dim plik As String Dim kopiowanie As String Workbooks("Panel").Activate otwieranie = MsgBox("Wybierz plik",...
Version info jest umieszczane w pliku podczas kompilacji i w efekcie masz - prawym klawiszem na pliku (exe oczywiście) - właściwości - zakładka wersja pliku. Jak w opcjach włączysz automatyczną inkrementację wersji to przy każdej kompilacji "build" zwiększy się. W kodzie już nie jest tak łatwo gdyż musisz odwołać się do całej struktury TFileVersionInfo...
Niestety nie zobaczę twojego pliku (pobieranie zabronione), ale mam dla ciebie materiał do przemyśleń: [syntax=vbscript] Private Sub testEl() Dim y As Long, i As Integer, V As Integer, v1 As Integer Dim Tb() As String y = 2 Do While (Cells(y, 1) <> "") Tb = Split(Cells(y, 1), " ") V = 0 For i = LBound(Tb) To UBound(Tb) Step 2 Select Case Tb(i...
U mnia działa p.s. x wpisywal "na sztywno"(np. x=5) bez InputBox Dodano po 2 Wynik InputBox jest tekst(String) Dim x As Integer byc moze tu powód
Czyli jednym słowem po zrobieniu fusing musze spowrotem zmienic je na zmienna typu integer (bo fusing można tylko jako string zrobić) wynik(ineteger) FUSING Temp1(string)>>tempi1(integer)
string integer singel integer stringi integer
tłumik rezystorowy głowica tosca cieknie pralki
fabia schematy osadzania puszek elektrycznych
Brak komunikacji pilota z samochodem: przyczyny i rozwiązania Odblokowanie projektora Optoma bez cyfr na pilocie