integer string

Jak zamienić liczbę integer na string w PHP? Szukam funkcji lub metody

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

Delphi – jak sprawdzić i zmienić atrybut tylko do odczytu pliku?

function FileGetAttr(const FileName: string): Integer; function FileSetAttr(const FileName: string; Attr: Integer): Integer;

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Konwersja string na integer w Bascom dla DS18B20 - jak zaokrąglić?

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

Jak stworzyć tabelę z boolean, integer, string w LabVIEW?

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

VBA Excel, funkcja wstaw tekst jeżeli spełnia się warunek

[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]

[Delphi] - Podliczanie danych ze StringGrida do Edita

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);

Jak znaleźć wspólne sekwencje znaków w Excelu między komórkami?

[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]

[bascom AVR] Jak zamienić string 922 na integer w Bascom AVR?

Użyj funkcji VAL. var = VAL( s). s to string, a var to liczba.

Excel - Stworzenie złożonej funkcji, która przyjmie jeden z 4 argumentów

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

Jak policzyć ilość liczb w komórce Excel?

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

Delphi - pokrycie procedury Add w obrębie obiektu TCheckListBox

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

EXCEL - Wyszukiwanie w dniach zakresów ... zbyt duzo argumentów "wybierz&qu

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

Java - konwersja int na String do wyświetlenia metodą drawString

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

Delphi/Programik - Pomysł na kod, cokolwiek co mnie naprowadzi

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'),...

Jak przekonwertować binarną wartość na szesnastkową w Delphi 6?

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

Excel VBA - jak ustawić uniwersalny format daty dla różnych lokalizacji?

[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?;)

Jak tworzyć funkcje w Bascomie i zwracać wartości?

' 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,...

Arduino - Jak zamienić String TP i CWU na int dla alarmu temperatury?

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.

Delphi - funkcja Pos: wyświetlanie 9 znaków po znalezionym stringu

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]

[Delphi] Usuwanie pionowych kresek z danych odbieranych przez Comport

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

Atmega8 - Jak zamienić String na integer?

Przepraszam. Bascom avr

EXCEL 2007 - Jak sprawdzić obecność słowa w komórce z wieloma słowami?

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)

Ekstrakcja dat z tekstu w VBA - jak użyć znaków zapytania?

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

Excel – wielopoziomowe numerowanie np. 1, 1.1, 1.2; 2, 2.1, 2.2

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) =...

[Delphi] Procedura zmieniania właściwości komponentów

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

Konwersja liczb hex na dziesiętne i odwrotnie w Delphi

Unit SysUtils function IntToHex(Value: Integer; Digits: Integer): string; W drugą stronę nie ma gotowej, ale można pokombinować np. z StrToInt.

Jak usunąć wiele kolumn po nazwach nagłówków w VBA?

do nowo utworzonego pliku

Visual Basic - Program na dodawanie liczb w text boxach.

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 przekonwertować Integer i Boolean na String w Delphi?

Jak zmienić Integer, boolean na String ??????? Delphi

Delphi 2010 - Wyjaśnienie pewnych linijek w programie

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

Pascal+zamiana licz dziesietnych na liczby o podstawie 3

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

[RS232] Jak napisać program do przechwytywania danych przez RS232?

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

program pisany w Turbo Pasca - jak odpalić w Delphi ??

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

Excel - Jak ukryć wiersze 60-70, gdy pierwsza komórka ma wartość 0?

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]

Turbo Pascal. Program szyfrujący. Wykorzystanie szyfru Cezara.

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

DS18B20 - kalibracja i wyświetlanie temperatury z dokładnością do 0,1°C

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

DELPHI 7 - Czy idzie przesuwać rekordy w Strumieniach?

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 :)....

Delphi - błąd kompilacji przy dzieleniu wartości w Edit4.Text

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

[delphi] Jak automatycznie zapamiętać dane z editów na formie?

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

(VBA) Zaznaczenie określonej komórki wg. liczby pojedyńczej

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]

Visual BasiC for Access - import/kopiowanie określonych plików xml

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

[C++] Automatyczne wykrywanie i otwieranie portów COM dla RS-232 w Borland 6.0

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

WinAPI C++: Zwiększenie interlinii w funkcji DrawText podczas drukowania

skopiuję z Delphi funkcję opakowującą: GetTextExtentPoint32 Handle to oczywiście w WinAPI DC (bodajże ;) )

[Excel 2007] - makro do pobierania danych z innych plików *.xlsx

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

Delphi - Jak obliczyć średnią z wartości z milisekundami w Edit?

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

Jak odczytać adres zaznaczonej komórki w Delphi StringGrid?

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

Countif licz jeżeli - Kryterium tekstowe nie zliczane w funkcji countif

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

[atmega] Jak przekonwertować string xyyy na dwie zmienne w C?

znam atoi() i czasem używa, ale ta funkcja działa niestety w drugą stronę (z liczby robi stringa). Tym razem potrzebuję string --> integer

Jak obciąć cyfry do 0.1 w Bascomie bez błędów zmiennoprzecinkowych?

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

Wyświetlanie ilości plików w folderze w Total Commander lub Eksploratorze Windows?

Dodano po 9 Może tak będzie wygodniej.

Tworzenie pliku TXT z określoną strukturą znaków z Excela: 3 kolumny (10, 11, 12 znaków)

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]

Delphi 5 - Jak napisać procedurę losującą unikalne liczby jak w lotto?

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

Zadanko w Delphi. Zwracanie łańcucha znaków wspak.

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];...

Excel - sumowanie cyfr. Jak obliczyć sumę cyfr w komórce?

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

ds1820+bascom+ujemna. Co należy dopisać w kodzie?

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

ObjectPascal/Delphi/Lazarus - Utrata danych przy transmisji przy użyciu TComPort

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

Delphi - Jak wyciągnąć liczby o różnej długości z ciągu znaków?

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]

Excel - Jak wyciągnąć dwa pierwsze wyrazy z komórki?

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

Excel: Automatyczne numerowanie listy pracowników w kolumnie 'A' po dodaniu

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

VBA Excel - Kopiowanie arkusza z kolejnym numerem w nazwie

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

[EXCEL][VBA] złączenie dwóch komórek (&) formułą ujęte w kodzie

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 :)

[Pascal] Jak napisać generator losowego ciągu znaków w Pascalu?

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

DHT22 - Jak dodać obsługę ujemnych temperatur w programie? BASCOM

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

Optymalizacja kodu BASCOM dla DS18B20 na 90s2313 w 2 kB z wyświetlaniem LCD

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

Jak połączyć tekst w komórkach w Excelu, by utworzyć zdanie w jednej kolumnie?

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

[Excel] Jak poprawnie zliczyć wystąpienia sekwencji liczb w komórce?

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

[VBA] Excel - Makro do podziału raportu na pliki według kolumny B

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 usuwania komentarzy excel VBA

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

Jak zaadaptować program z 89c2051 na Atmega8 w Bascom?

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

Makro (pętla for) kopiowanie wybranych wierszy do nowego arkusza

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

VBA Pętla - Kopiowanie wybranych arkuszy i tworzenie z nich nowego skoroszytu

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

Jak w Delphi przekonwertować hex string na binarny string?

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;

Excel - Jak skopiować tekst z komentarza do innych komórek?

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

[Visual Basic] Jak skonwertować string do integer w Visual Basic? Odpowiedniki StrToInt, IntToStr

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

Jak rozdzielić tekst gwiazdkami w Excelu?

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

[Java Script] Jak porównać liczby w JavaScript, by uwzględniać całe wartości?

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%).

[Visual Basic] Zamiana tekstu na liczbę i na odwrót

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]

Delphi - Sprawdzenie wpisanej wartości do komórki StringGrid

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

EXCEL - Jak oddzielić numer telefonu od nazwy miasta w komórce?

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

pętla scalająca komórki i pozostawiająca wartość

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

[EXCEL,VBA] Jak sprawdzić status internetu w Excel VBA? Szukam konkretnego rozwiązania

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

vba-exel przeróbka kodu-zliczanie liter w komórce

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

Jak dokonać zmiany danych wg drzewka?

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

PIC16F628A, LCD NOKIA 5110, MikroC - wyświetlanie zmiennych

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.

Jak poprawnie wyświetlić liczbę float na STM32?

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

Tworzenie nowego wiersza przy funkcji wyszukaj pionowo

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

VBA Excel - Import plików txt do kolejnych kolumn w jednym arkuszu

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

VBA - Jak sumować wartości z różnych komórek w Excelu?

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

Import pliku csv do Excela - Niepoprawne numery kart bankowych

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

C# - Jak sprawdzić, czy dane z TextBox są liczbą przed wysłaniem przez USB?

Convert string to Integer

Java - jak wyświetlić pełny skrót MD5 z zerami na początku?

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.

[Visual Basic] Błąd 400 przy kliknięciu Anuluj w input box

[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)...

Tworzenie i sortowanie folderów z pliku Excel oraz przypisywanie plików PDF

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

[Pascal->Delphi] Permutacje w Pascalu chcę przełożyć na Delphi

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

Konwersja BYTE na wartość HEX w Bascom AVR - jak to zrobić?

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

Jak modyfikować kod VBA do wczytywania wielu plików Excel naraz?

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

[Delphi] Jak automatycznie inkrementować wersję w Delphi i wyświetlić ją w TLabel?

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

VBA Excel - Jak stworzyć makro do mnożenia wartości z kodami kolorów?

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

VBA exel kopowanie arkusza - kopowanie akrusza x razy

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

Schemat układu do sterowania 8 urządzeniami i transmisji 8 bitów przez RS232

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)