string integer

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

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

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

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

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

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

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

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

Atmega8 - Jak zamienić String na integer?

Przepraszam. Bascom avr

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

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

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.

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]

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)

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

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

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

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]

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

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

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

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

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

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

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

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

[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

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

[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

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

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

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

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

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

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

Excel &#8211; 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 - 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,...

filtrowanie danych z rs232-odbiór w programie w delphi

Napisałem parser dla twoich wymagań.. cały bufor to jeden string.. dane zamiast pobierać z rs232 to są pobierane z pliku (dla lepszego testu w porcjach o losowym rozmiarze od 1 do 10 bajtów) i przekazywane do parsera... jedyne co musisz zmienić to źródło danych przekazywanych do AppendToBuf oraz samą obsługe odpowiedzi -> zamienić writeln na co kolwiek...

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

Jak zapamiętać wynik i dodawać kolejne wartości w Delphi?

Zastanow sie co robisz.. Sumujesz wartosc INT z Label1.Caption "X" i wartosc INT z Edit3.Text "Y" (oczywiscie obydwie po przekonwertowaniu ze String na Integer) Teraz aby wykonalo sie zdzrzenie przed ELSE to ta powyzsza suma "Z" musi sie rownac 0, bedzie rowna gdy: X+Y = 0 <=> (X=0 i Y=0) lub (X=-Y i Y=Y) lub (X=X i Y=-X) W przeciwnym wypadku...

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# - Jak sprawdzić, czy dane z TextBox są liczbą przed wysłaniem przez USB?

Convert string to Integer

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]

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

Jak przekonwertować Integer i Boolean na String w Delphi?

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

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

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 dodać wyjątki imion i elementy graficzne w Delphi do programu rozpoznającego płeć?

W Defphi służą do tego funkcje: porównanie dwóch napisów, 0 gdy jednakowe AnsiCompareStr(const text1, text2:string) : integer; jak wyżej ale ignoruje wielkość liter AnsiCompareText(const text1, text2 : string) : integer; Są również starsze wersje tych funkcji które nie rozpoznają znaków z akcentami: CompareStr i CompareText [syntax=delphi] unit SysUtils...

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

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

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

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

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

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;

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

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]

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)

VBA CopyPaste zakresu komórek w zależności od wyboru z Comboboxa

Spróbuj rozdzielić parametr userChoice :D Zmniejszysz ilość cases i obsłużysz wszystkie offsety :spoko: [syntax=vbscript]Dim userChoice As String Dim Choice As String Dim k As Integer userChoice = InputBox("Please type PRODUCT name.") Choice = Mid(userChoice, 1, 1) k = CInt(Mid(userChoice, 2)) - 1 Select Case Choice ... Case "Z" Sheets("CAT. Z").Range("F3:F154").Offset(0,...

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

Excel VBA - Jak przypisać zakres tabeli do funkcji z argumentem rng?

Może jednak wędkę potrzebujesz: http://bfy.tw/2mse [syntax=vbscript]Sub Rand100(ByRef tb() As Single) Dim y, x As Integer For y = LBound(tb, 1) To UBound(tb, 1) For x = LBound(tb, 2) To UBound(tb, 2) tb(y, x) = Int(10 * Rnd()) Next x Next y End Sub Sub Test1() Dim a() As Single ReDim a(1 To 3, 1 To 3) Rand100 tb:=a MsgBox ("Pasuje: " & CountIf(a, "=9"))...

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 VBA – jak scalić i obramować komórki kodem w programie magazynowym?

Private Sub TextBox1_Change() Dim tekst As String, wynik As String, i As Integer tekst = TextBox1.Value For i = 1 To ThisWorkbook.Worksheets.Count ' "i" w tej pętli to indeks arkusza If Left(LCase(Sheets(i).Nam... 2) = "m-" Then 'przypisanie wyniku zwróconego przez funkcję. Drugi parametr funkcji...

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

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

Informacja z RS232 - Jak wydobyć dane ze Stringu w BC++ 6

Witam. Odnośnie punktu 2, niewiem czy pomogę ale wyciąganie ze stringów realizowałem w Delphim w nastepujący sposób. Do tego potrzebne są trzy funkcje: 1. function Length(S: string) : Integer; - Funkcja zwraca liczbę znaków, które zawiera łańcuch S. Liczba znaków nie zawsze oznacza liczbę bajtów zajmowanych przez S. 2.function Pos(Substr: string; S:...

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

do nowo utworzonego pliku

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: Jak znaleźć pozycję wzorca -??: w stringu?

W ten sposób może być ? : procedure TForm1.Button1Click(Sender: TObject); var Ciag: string; Pozycja: integer; begin Ciag:='123rfw23r2er2r2r2r-12:23f... Pozycja:=Pos('-12:',Ciag)... end; Pozdrawiam...

Word Makro - Odczyt wartości z pliku TXT i ich zapis do tabel

Tak samo jak Adamas nie piszę w Wordzie, ale to działa: [syntax=vb]Sub dokument() Dim wartosc As String, wrs As Integer, x As Integer x = 1 Open "C:\Przyklad.txt" For Input As #1 'tu podaj ścieżkę, lub tylko nazwę jeśli w tym samym katalogu Do Until EOF(1) For Each tbl In ActiveDocument.Tables For wrs = 1 To ActiveDocument.Tables(x).Rows.Count Input...

Delphi 6.0: jak odczytywać po jednym znaku ze zmiennej...

tak będzie jaśniej: for index:=1 to 80 do {string ma 80 znaków} znak:=tekst[index]; ;gdzie znak jest zmienna typu 'char' ; tekst 'string' ; index 'integer'

VBA - nieauktualizująca się funkcja niestandardowa

Kolega adamas_nt udzielił już odpowiedzi, więc ja tylko dopowiem parę rzeczy: a. dlaczego jako argumentu funkcji używasz nazwiska z arkusza GRAFIK, a nie z kolumny B arkusza ZESTAWIENIE ? b. można trochę "czytelniej" ten kod zapisać: [syntax=vbscript]Function Licz_dyz_zw(lekarz As String) As Integer Application.Volatile Dim c As Range Dim Lzw As Integer...

Delphi: Jak zliczyć i posortować liczby według częstotliwości wystąpień?

Zbędne spacje usuniesz np. w ten sposób : function TrimSpaces(tekst : widestring):widestring; begin result:=tekst; while (pos(' ',result)<>0) do delete(result,pos(' ',result),1); end; [...] RichEdit1.Text:=TrimSpaces(RichE... A działający kod, który wykonuje to zadanie...

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

Delphi ComPort - Jak wyczyścić bufor przed odczytem danych?

procedure ClearBuffer(Input, Output: Boolean); wystarczy helpa przejrzec ps poza tym function ReadStr(var Str: String; Count: Integer): Integer; przekazuje do Str bajty, nie bity

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

[Pascal] Prog. do obl. il. samogłosek/ współgł. w wyrazie

Po pierwsze - sprawdzasz tylko małe litery, jeśli trafi się samogłoska jako wielka litera to jej nie policzysz. Po drugie trochę zgrabniej wyglądałoby rozwiązanie z wykorzystaniem pascalowych SET-ów: program literki; uses crt; var samogloski : set of char; w : string; l, s : integer; BEGIN s := 0; samogloski := ['e','y','u','i','o','a',...

[Bascom] Jak wykryć zerwanie połączenia RS485 w Bascom? Wyświetlacz LCD 2x16

1) Jakiego typu są zmienne Temp..cośtam ? String, integer, byte? Bo to ważne 2) Pokaz konfigurację bascomową RS232 w obu procesorach (bo potem to na 485 zamieniasz, ale to wciąż RS232, chyba że coś innego wydumałeś) 3) Jak taktujesz oba procesory? RC czy kwarce? 4) Czy w nadajniku próbowałeś zamiast TEMP nadać wpisaną na stałe wartość np 100, a w odbiorniku...

Delphi7 i InterBase - login i hasło porównywane z wpisem w InterBase

Utworzyłem DB w IB i tabelę user, wpisałem do niej dwie kolumny (login,haslo). Utworzyłem Form na którym umieściłem 2 szt TMaskEdit i TBitBtn. W procedurze przycisku wpisałem: begin IBQuery1.Close; IBQuery1.SQL.Clear; if IBQuery1.SQL.Add // ????? begin ShowMessage('poprawne'); Close; end; end; ciąg if ma porównać daną z kolumnę login z oknem login a...

Delphi 5: Konwersja stringa z TComPort na integer - błąd usuwania #13#10

Serdeczne dzięki za okazaną pomoc, światełko w tunelu pokazał mi mirekk36 w jednym z jego wcześniejszych postów http://www.elektroda.pl/rtvforum/topic71... Rozwiązanie okazało się banalnie proste, w zasadzie bez pisania ani jednego słowa kodu, genialne ! Dokładnie rzecz biorąc komponent ComDataPacket z jego zdarzeniem OnPacket. Musiałem tylko...

Excel - importowanie wielu plików excel do 1 pliku

Każdy plik ma 1 arkusz Ja widzę 2.;)

Excel - VBA Drukowanie. Dodanie opcji wyboru drukarki.

Hmmm, w takim razie proszę: http://support.microsoft.com/kb/q166008/ Działa na 100% Wystarczy zaadaptować do swoich potrzeb. A poniżej nieco inny wariant:[syntax=vb] Sub Drukarki() Dim WshNetwork As Object Dim oPrinters As Variant Dim strPrinterList As String Dim i As Integer Set WshNetwork = CreateObject("WScript.Network") Set oPrinters = WshNetwork.EnumPrinterConnections...

Open Calc - Jak automatycznie scalić komórki dla 3000 słówek?

:arrow: adamas_nt :) Ok. Dzięki za nakierowanie. Niemniej tam jest "odwrotna" adresacja komórki i w dodatku od zera :) W takim wypadku będzie tak: Sub Main Dim ciag As String Dim x As Integer Dim y As Integer dim ark As Object ark = Thiscomponent.Sheets.GetByName("... 'x = 0 y = 0 ciag = "" Do Until (ark.GetcellByPosition(0,x)....

VBA jak wysłać pliki o określonych nazwach do odbiorców z określonego słownika

Mała poprawka. [syntax=vbscript]Sub Wysyłaniemailipetla() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Dim Sciezka As String Dim Adresat As String Dim licznik As Integer Dim kolejka As Integer kolejka = 1 For licznik = 2 To Range("W1") + kolejka Adresat = Sheets("Dostawy").Cells(licznik,...

Excel 2003 - jak znaleźć tekst i zwrócić dane z kolumny?

Jeśli FindNext w pętli, to na tym samym zakresie (zakres1, zakres2). Z drugiej strony Sub Wywolaj() MsgBox "Wynik: " & Szukaj("ABC", "A:A", "B:B", 5) End Sub Function Szukaj(szukana As String, zakres1 As String, zakres2 As String, Optional numer As Integer) Set zak1 = Range(zakres1)...

Delphi - Odbiór danych z ComPort i rysowanie na TImage za pomocą Canvas

No tak mam, bo podałem kod programu do wglądu. Odhaczyłem część kodu bo robiłem próby z różną konwersja i nic nie wymyśliłem, wywala bład przy próbie konwersji z strtoint(revs). No to powiedzmy że program powinien wyglądać tak: [syntax=delphi] procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer); var RevS: String; i: integer; begin ComPort.ReadStr(RevS,...

[Delphi] Jak przyspieszyć przeszukiwanie pliku w Delphi? Użycie funkcji Pos()

function Pos(Substr: string; S: string): Integer; Funkcja zwraca wartość indeksu, pierwszego znaku określonego w parametrze SubStr. Szukanie odbywa się w łańcuchu S. Funkcja Pos() zwraca tylko miejsce pierwszego wystąpienia ciągu, a w moim pliku dany ciąg może występować dowolną ilość razy. Plik jest tego typu: [śmieci, krzaczki, znaczki] <znacznik_początku>...

VBA nie działające makro Excel na innych komputerach

Wydziel dodatkowy arkusz (może być ukryty), zrób tabelkę znaków i ich odpowiedników łacińskich i zamiast w tablicy działaj w arkuszu. Na przykład tak: https://obrazki.elektroda.pl/4775489200_... https://obrazki.elektroda.pl/4498160400_... gdzie:[syntax=vbscript]Function FrPol(tekst As String) As String Dim i As Integer,...

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

Jak pobrać wyniki zapytania SQL do tablicy lub zmiennych w Delphi?

Cześć np : var s : string; i : integer; begin s:=Table1.FieldByName('NAZWAPOLA... v:=Table1.FieldByName('NAZWAPOLA... end;

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]

Jak utworzyć regułę zgodności PESEL z datą urodzenia w Access?

Taka prosta funkcja: [syntax=vbscript]Function PESELRok(PESEL As String) As Integer l = CInt(Left(PESEL, 2)) If CInt(Mid(PESEL, 3, 2)) > 12 Then PESELRok = 2000 + l Else PESELRok = 1900 + l End If End Function [/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;...

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.

[Excel] Dane z pomiarów i obliczanie średniej co godzinę

Wtrącę swój kod VBA: [syntax=vb]Sub Srednie() Dim ow As Long, x As Long, d As String, g As Integer, ds As Double, l As Integer Dim gs As Double, lg As Integer ow = Cells(Rows.Count, "A").End(xlUp).Row lg = 1 For x = 2 To ow d = Cells(x, 1) g = Val(Left(Cells(x, 2), 2)) ds = ds + Cells(x, 3) ld = ld + 1 If Cells(x + 1, 1) = d Then If Val(Left(Cells(x...