Ajutor vă rugăm să înregistrați deschiderea fișierului finale din dosar. Am înțeles că codul este scris strâmb, dar apoi o voi corecta. vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 Dim oExcel ca obiect Dim oBook ca obiect Dim oSheet ca obiect Dim SaveAs ca obiect klient Dim ca obiect oExcel = CreateObject ( "Excel.Application") oBook = oExcel.Workbooks.Add „Adăugați datele în celula prima foaie a noua carte oSheet = oBook.Worksheets (1) oSheet.Range („A1 : B1 ") Merge () oSheet.Range (." A2: B2 ") Merge () oSheet.Range (." C2: D2 ") Merge () oSheet.Range (" C3 :. D3 „) Merge () oSheet.Range ( "C4: D4") Merge () oSheet.Range. ( "C5: D5") Merge () oSheet.Range ( "A1: D1") .. Font.Bold = True oSheet.Range ( „A1 ".HorizontalAlignment =) -4152 oSheet.Range (" C1 "). HorizontalAlignment = -4,131 oSheet.Range (" A1 "). Valoare =" Contract № "oSheet.Range (" C1 „). Valoare = KartaDataGridView.CurrentRow. . Celulele (0) .value oSheet.Range ( "A2") Valoarea = "Tipul contractului:" oSheet.Range ( "A5") Valoare = "Data concluzie:" oSheet.Range ( "C5") Value = KartaDataGridVie.. w.CurrentRow.Cells (5) .value „Salvați registrul de lucru și închideți Excel oBook.SaveAs ( "D: \ T2" KartaDataGridView.CurrentRow.Cells (0) .Value ".xlsx") oExcel.Quit () Process.Start ("D: \ T2" KartaDataGridView.CurrentRow.Cells (0) .Value ".xlsx")
Bună ziua tuturor. Trebuie să salvați toate imaginile din fișierul de prezentare într-un dosar. Cineva a făcut asta. Spune-mi codul pliz. Vă mulțumim anticipat.
Bună ziua, membrii forumului! Te rog spune-mi metoda corectă de obținere a datelor de text într-un tabel dintr-un fișier text, în cazul în care dimensiunea poate varia de la 200 la 400 MB. În fișierul text, cu excepția etichetelor de marcare HTML și să prezinte o imagine tabel: expresii regulate incercat sa de date, dar nu am reușit din cauza o pauză de linie. Dacă cineva spune model va fi foarte recunoscător. Eu de obicei, în jurul valorii de a lua înlocui, să se alăture într-o singură linie și trageți datele sezonului regulat, iar apoi înlocuirea este imposibilă, problema - OutOfMemory. Deversat în șiruri de un cod variabil următoarele matrice: vb.net1 Dim txt () Deoarece String = File.ReadAllLines (cale) apoi incremental divizat / repleysami căutând datele necesare și să scrie în listboks, dar în anumite rânduri (
1000000) primesc aceeași memorie OutOfMemory.
Fa-o dintr-un fișier este simplu: vb.net1 Cursor.Current = New Cursor ( „plus.ico“) Dar atunci trebuie să efectueze pentru shnikom exe-fișier cu pictograme (și există câteva zeci). Aș dori să aibă totul în interiorul exe-fișier. Pictogramele fișier de resurse de proiect sunt încărcate ca pictograme. Ei primesc un nume. După compilarea tot ce înghesuiți în fișierul de resurse este în interiorul exe-Schnick. Iată de ce am nevoie. Dar cum să folosiți aceste icoane? Strigătul de designeri din clasa Cursor din descrierea trebuie să fie potrivite pentru o astfel de sarcină: Cursor (Type, String) - initializeaza o nouă instanță a clasei Cursor din resursa specificată, folosind tipul de resursă specificat. Dar exemplul utilizarea lui de MSDN nu explică nimic cu adevărat.
Bună ziua tuturor. Există un fișier text co rânduri aceeași dimensiune. Este folosit pentru a citi după cum urmează: vb.net1 2 3 4 5 6 7 8 Utilizarea MyReader Ca New Microsoft.VisualBasic.FileIO.TextFieldParser (sFName) MyReader.TextFieldType = FileIO.FieldType.Delimited MyReader.SetDelimiters ( "") în timp ce nu MyReader.EndOfData currentRow = MyReader.ReadFields () „citit de la linia de date, separate prin virgulă (linii goale sunt ignorate în mod automat)“. End In timp ce End UsingKak indică faptul că un fișier sFName permis accesul la citirea și scrierea altor aplicații (procese). Adică, așa cum este indicat. că FileShared.ReadWrite?
Articole similare
Trimiteți-le prietenilor: