- Szabadulnak a kínai eszközöktől az amerikai szolgáltatók, de ez sokba kerül
- Irányíthat-e atomfegyvereket az AI?
- 5 év alatt 100 milliárd dollárt költött fejlesztésre az Apple, az AI a következő
- Az Insta360 ellen fordítja a hatóságokat a GoPro
- Sokat fogyaszt az AI, egyre több az adatközpont, kell az atomenergia
- Mozilla Firefox
- macOS PC-re
- Mindenki AI-t akar, már 2025-re is eladták a HBM chipeket
- Direct One (műholdas és online TV)
- Jelszókezelők
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Crypto Trade
- Szabadulnak a kínai eszközöktől az amerikai szolgáltatók, de ez sokba kerül
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Linux kezdőknek
Új hozzászólás Aktív témák
-
Postas99
senior tag
Sziasztok!
Kicsit elakadtam egy projektben.
A program egyszerű lenne mint a faék, viszont a tippem az, hogy a többszöri utánolvasásra sem úgy működik amint kéne.Adva van egy webbrowser box amiben egy adott oldalt nyitnék meg.
Majd a megnyitott WEB oldalon kellene az adott input boxokba adatokat préselni. a végén SUBMIT.
Viszont tudnom kéne, hogy a submit után az adott WEB oldal újratöltődött és küldhetem a következő csomagot.Eddig ilyet találtam a vizsgálatra, de mivel az egész ciklust szeretném néhány ezerszer lefuttatni ezért ez járhatatlan út.
While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
Application.DoEvents()
' MsgBox("busy")
End While 'LoopValakinek ötlete?
Akár megshare-elném a programot is, csak működjön szépen, azaz tegye a dolgát. -
Postas99
senior tag
Ment privi.
-
Postas99
senior tag
Sziasztok!
Lenne egy érdekes problémám:
Using rdr As New System.IO.StreamReader(openFileDialog1.FileName.ToString())
Do While rdr.Peek() >= 0
InputLine = rdr.ReadLine
InputLine = InputLine.Replace("',", Chr(9))
InputLine = InputLine.Replace("'", "")
InputLine = InputLine.Replace(";", Chr(9))
oRow = oRow + 1
szazalek = oRow
System.Windows.Forms.Clipboard.SetDataObject(InputLine, True)
Try
oBook.Worksheets(1).Range("A" + oRow.ToString).Select()
Catch ex As Exception
End Try
Try
oBook.Worksheets(1).Paste()
Catch ex As Exception
End Try
ProgressBar1.Value = szazalek
Loop
rdr.Close()
End UsingAmi semmi mást nem csinálna ha nem hibázna, hogy beolvas .CSV fájlokat.
Ez idáig tiszta, de a fájlok más más felépítésűek ezért egy kódban kellene megoldanom a feldolgozást..1, CSV
'Label S.r.l.',
'Via Don Mazzucotelli, 6/A',
'24020 Gorle (BG) Italia',
'Tel. +39-035-302.812 Fax +39-035-302.815',
'',
'Dátum: ','06/08/2018 08:24','FOGYASZTÁS RECEPTENKÉNT','Oldal: ','1 - 5',
'',
'Dátum: ','2018.08.01. - 2018.08.01.','Recept:',' - ',
'Kifejezés értékben: ','Nem','Azonosító:',' - ',
'Tűrés: ','Letiltva','Eszköz:',' - ',
'',
'Recept: ','FOGAD4','Leírás: ','',
'',2, CSV
'Label S.r.l.';
'Via Don Mazzucotelli, 6/A';
'24020 Gorle (BG) Italy';
'Phone +39-035-302.812 Fax +39-035-302.815';
'';
'Date: ';'02/08/2018 12:40';'USAGES by RECIPE';'Page: ';'1 - 6';
'';
'Date: ';'01/08/18 - 01/08/18';'Scale:';' - ';
'Valuation: ';'No';'Operator:';' - ';
'Tolerance: ';'No';'Customer:';' - ';
'Recipe:';' - ';
'';A kód kiszedi soroknént és értékenként az aposztróf ' jeleket ha vessző követi ','
SCV2 esetében viszont a ';' értéket kell feldolgozni.
Az értékek a sztringbe visszairódnak, majd ezek excel meghívásával cellánként bemásolásra kerülnek a csv fájl teljes feldolgozásáig.A HIBA
hogy excelbe való másoláskor, néha téveszt és RANDOM üres sorokat is berak. Oszlopokat nem téveszt.
Ezt szeretném kiküszöbölni.
Elakadtam, hogy hol rontottam el a feldolgozást.Esetleg valaki tudna segítséget adni?
Köszönöm
-
Postas99
senior tag
-
Postas99
senior tag
A VBA mint írtad az office közös makró nyelve aminek nincs köze a VB.NET-hez.
-
Postas99
senior tag
VBA-t írtál. VBA!=VB.NET
Idézlek ha nem gond: "De lenne egy VBA-ban írt form és kód hozzá, ami egy adatbázisos mókát képez."[Gugliztam helyetted] gondolom erre lenne szükséged
-
Postas99
senior tag
Mi lenne a cél?
Miért nem használsz inkább DGV-t?
Vagy az lenne a fontos hogy a comboboxba feltöltött elemeket ki tudd választani?
Mert ha túl nagy a populate érték ez a combobox dolog elfajulhat és qrva szar onnan bármilyen adatot könnyen kiválasztani.
Ehhez képest a datagridview ugyanúgy feltölthető ha sok az elem benne akkor még scrollozható is és onnan is ki lehet szedni current cell value-t.Szóval mi lenne a cél?
[ Szerkesztve ]
-
Postas99
senior tag
Válasszuk ketté:
1, Megszámolod a COM portokat.
2, hozzádadod a combobox elemeihez.For Each sp As String In My.Computer.Ports.SerialPortNames
ComboBox1.Items.Add(sp)
Next
ComboBox1.Sorted = True
_________________________________________
HA van COM PORT (COM1,COM2,COM3)
akkor kiválasztod az alapértelmezettnek a legelsőnek megtalált értéket, természetesen ha az kell akkor a sorted-et ki lehet venni, ha sorba akarod rendezni akkor ezzel szebb lesz az eredmény.If ComboBox1.TabIndex <> 0 Then
ComboBox1.SelectedIndex = 0
End If
Mi lenne ha ezt használnád?[ Szerkesztve ]
-
Postas99
senior tag
Matek guru vagy XOR guru segítsége kéne.
Adott a következő proléma:
X= Y XOR (Y>>1)
X értékét tudom.
Van-e erre nem BRUTE FORCE megoldás valamilyen bit eltolásos módszerben.
Igazán azért lenne fontos mert ezt a műveletet egymásra épülően kell elvégezni. A kiszámolt Y érték a következő X értéke.
Előre is köszönöm. -
Postas99
senior tag
válasz Postas99 #3182 üzenetére
A gond azzal van, hogy nem az excel megnyitásra teszed be a combobox populate opciót, hanem a combobox.change opcióra.
Használd ezt:Sub Workbook_Open()
'ide tedd a kododat
Dim i As Long
If Not Comb_Arrow Then
With Me.ComboBox1
.List = Worksheets("szerepkorok").Range("AL4", Worksheets("szerepkorok").Cells(Rows.Count, "AL").End(xlUp)).Value
.ListRows = Application.WorksheetFunction.Min(6, .ListCount)
.DropDown
If Len(.Text) Then
For i = .ListCount - 1 To 0 Step -1
If InStr(1, .List(i), .Text, vbTextCompare) = 0 Then .RemoveItem i
Next
.DropDown
End If
End With
End If
End Sub
-
Postas99
senior tag
A megoldás amit kerestél:
Sub MessageBoxTimer()
Dim AckTime As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")
'Set the message box to close after 10 seconds
AckTime = 10
Select Case InfoBox.Popup("Click OK (this window closes automatically after 10 seconds).", _
AckTime, "This is your Message Box", 0)
Case 1, -1
Exit Sub
End Select
End Sub
Új hozzászólás Aktív témák
- Lenovo 4. generációs i3-4130 sff pc, 16GB vagy 32GB rammal
- Új Bontatlan Univerzális monitorállvány, 17-27'' , VESA 100x100/75x75 UNOXAR UX-MDS-10
- HP pro 6300 SFF i5-3470 16GB vagy 32GB Rammal
- Hófehér Toshiba 15,6"HD,4magosIntel!4x2,2Ghz,IntelHDVga,SSD,szép állapot
- ThinkPad 13,3" FullHd IPS,10.gen.core i5(8x4,2Ghz),Vil.bill.8GB DDR4,512GB SSD,Jó akku, jó állapot
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen