Otwarcie pliku do odczytu za pomocą klasy fstream powinno wyglądać tak [syntax=cpp]fstream plik("aa.txt",ios::in);[/syntax] Natomiast do zapisu. [syntax=cpp]fstream plik("aa.txt",ios::out);[/syntax] Jeśli nie ma pliku o podanej nazwie to zostanie on utworzony. Dobrze jest też sprawdzić czy podczas otwierania wszystko poszło dobrze. [syntax=cpp]if (!plik.is_open())...
Tak jak adamas_nt pisał pewnie podajesz w b2 bez "\" (więc dir nie sprawdzi katalog i plik pusty) [syntax=vbscript] Sub Krok1_Tworzenie_bazy() 'Import danych tekstowych i stworzenie bazy Dim Katalog As String 'wskazany przez użytkownika katalog, w którym znajdują się pliki tekstowe Dim Plik As String 'nazwa wczytywanego pliku tekstowego Dim Sciezka...
Zrób tak: poszukaj sobie ctrl + f: "using namespace" (na górze pliku są). Dopisz tam: [syntax=cpp] using namespace System::Runtime::InteropServices; [/syntax] I użyj metody którą podałem wcześniej.
[syntax=cpp]#include <iostream> #include <fstream> #include <string> int main() { std::fstream Plik; Plik.open("xe42.txt", std::ios::in); if(!Plik.good()) { std::cout << "Nie udalo sie otworzyc pliku!"; return 1; } std::string Zawartosc; Plik >> Zawartosc; std::cout << Zawartosc; Plik.close(); }[/syntax]
Wczytywanie takiego pliku jest bardzo proste. Zobacz przykłady użycia ifstream W twoim przypadku to mniej więcej tak będzie wyglądać: [syntax=cpp] ifstream plik("plik.txt", ifstream::in); string str1, str2; double num; plik>>str1>>str2>>num; /*dodawanie do listy zostawiam Tobie*/ [/syntax] Pisane na kolanie, ale tak to mniej więcej ma wyglądać. Musisz...
Bash nie umie robić obliczeń zmiennoprzecinkowych. Potrzeba do tego np. `bc` [syntax=bash] LICZBA=`tail -c 6 ./text.txt` echo $LICZBA WYNIK=`echo "100-$LICZBA" | bc` echo $WYNIK [/syntax] Separatorem ułamka dla bc musi być kropka a nie przecinek.
Przy moim Remove jest taki problem, że w tablicy na 0 indeksie wciąż istnieje wpis z tą datą mimo, że ją wyciąłem ... Jakbyś posłuchał rady kolegi bomkallo i przeczytał dokumentację to byś zobaczył, że funkcja Remove() nie modyfikuje stringa, tylko zwraca zmodyfikowany wynik. Kolega Defiace z kolei słusznie podsunął pomysł, żeby czytać plik linijka...
[syntax=vb]Sub Importuj() Dim Plik As String Plik = Dir("C:\DoImportu\*.txt") Do While Plik <> "" 'Tutaj to, co już umiesz, czyli import pliku (zmienna Plik) Plik = Dir Loop End Sub [/syntax]
Spróbuj tak: [code][syntax=vbscript] Sub ZapiszIUsuń() Dim Plik As String Plik = ThisWorkbook.FullName ThisWorkbook.SaveAs Filename:="C:\NowaŚcieżkaDoPliku\" & ThisWorkbook.Name Kill Plik End Sub [/syntax] W cudzysłowie trzeba podać ścieżkę docelową andie
Dorzuć takie coś na początek pliku: [syntax=cpp]#include "stdafx.h" #include <cstdlib> #include <string>[/syntax]
[syntax=vbscript]Function Recurse(sPath As String, Plik As String) As String Dim FSO As New FileSystemObject Dim myFolder As Folder Dim mySubFolder As Folder Dim myFile As File Set myFolder = FSO.GetFolder(sPath) For Each mySubFolder In myFolder.SubFolders For Each myFile In mySubFolder.Files If myFile.Name = Plik Then Recurse = "Tak" Exit Function...
W C (C++ także ;) ) klamry ograniczają widoczność zmiennych. Zmienna utworzona w bloku jest zwalniania na jego końcu. Jako, że case w C nie jest blokiem niezależnym (gdyby nie użyć break - wejdzie się do niego skąd indziej), to chyba właśnie powstaje ograniczenie, że nie można tak bezpośrednio deklarować zmiennych i potrzebne są klamry.
[syntax=vbscript]Sub WyslijSkoroszyt() Dim Haslo As String, Plik As String Plik = ActiveWorkbook.FullName Haslo = InputBox("Podaj hasło do pliku: ", "UWAGA") ActiveWorkbook.SaveAs Filename:=Plik, Password:=Haslo Call WyslijMejla("adresat(at)moj.pl", "Mój plik Excela", "Hasło do pliku zostanie wysłane kolejnym mejlem", Plik) Call WyslijMejla("adresat(at)moj.pl",...
Poszukaj w rejestrze "http://hiderefer.com/?", jak bedzie to wykasuj. Jak nie bedzie w rejestrze to przeszukaj dysk z szukaniem w plikach i ten sam string.
Raczej nie chodzi Ci o fopen, tylko o obiekt klasy std::ifstream. Na przykład: #include <fstream> #include <iostream> #include <string> int main() { const std::string fname = "./file.cc"; std::ifstream file(fname.c_str()); std::string line; while (getline(file,...
Ale dalej nie rozumiem jak właśnie zapisać to do pliku. Mimo, że robimy rzutowanie nie wiem jak to przerobić na znak i wpisać do pliku tak żeby Zapisać to do tablicy 2-wymiarowej. Pierwszy to znak drugi to liczba wystąpień w ASCII. Powiem szczerze czytam i przeglądam tą Symfonie C++ cały czas i nic z tego nie rozumiem. Jest funkcja do otwierania pliku,...
Proszę bardzo, wersja "okienkowa".[syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses...
Sprawa prosta. Pod event click dla buttona podpinasz inkrementacje jakiejś zmiennej a=a+1 analogicznie dla b i c. Następnie trzeba to wysłać do pliku: [syntax=csharp]string line1 = "A,"+a; string line2 = "B,"+b; string line3 = "C,"+c; System.IO.StreamWriter file = new System.IO.StreamWriter("c:\\test.txt"); file.WriteLine(line1); file.WriteLine(line2);...
[syntax=vbscript]Sub ImportujPliki() Application.ScreenUpdating = False Dim Plik As String, Katalog As String Katalog = "C:\PlikiExcela\" Plik = Dir(Katalog & "*.xls*") Set a = ThisWorkbook.Sheets("Arkusz1") x = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 While Plik <> "" Set wb = Workbooks.Open(Katalog & Plik) a.Cells(x, 1) = wb.Sheets(1).Range("D3")...
Aby program był w stanie przeczytać plik musisz umieścić na samej górze kodu taki wiersz: [syntax=csharp]using System.IO;[/syntax] zaraz pod lub nad [syntax=csharp]using System;[/syntax] później ten kod: [syntax=csharp] string sciezka = (at)"D:\projekty\FromTxtToBinary\liczby.... \\tutaj wpisz swoją ścieżkę do pliku using (StreamReader sr = File.OpenText(sciezka))...
Przetestuj poniższe makro. [syntax=vb]Option Explicit Sub Import_TXT_FSO() Dim oFSO As Object 'File System Object Dim oFld As Object 'Obiekt Folder Dim oFls As Object 'Obiekt Plik Dim oTemp As Object Dim iRw As Integer: iRw = 1 'wiersz do którego wpisywane są dane Dim sItem As String 'katalog z plikami Dim sExt As String 'rozszerzenie pliku Dim fl As...
Z mojego pliku należy wyłuskać interesujące mnie fragmenty i dopiero je przetwarzać. Potrzebujesz tylko obiektu StremReader, pewnie BinaryWriter i klasy String. Wczytujesz linię z pliku i ją "obrabiasz". Metoda Substring przyjdzie Ci z pomocą.
Jeżeli ten kod też nie zadziała, to szukaj problemu w zabezpieczeniach. [syntax=vb]Sub PobierzCSV() Sheets("Arkusz1").Select Dim Katalog As String, Plik As String, Zeszyt As String, s As String, nw As Long Katalog = ActiveWorkbook.Path & "\" Application.Calculation = xlCalculationManual Application.EnableEvents = False Application.ScreenUpdating...
Autorka powinna wtedy albo usunąć istniejące katalogi razem z ich zawartością - ręcznie, albo dopisać stosowne zabezpieczenie... Masz słuszność, chociaż można było zrobić goto i wyświetlić komunikat, ale chyba za dużo programuję w VB.NET i później zapominam, że w VB to było mniej przyjemne :) 1. Zamknij oczy 2. Odpal makro He he... to sobie własnie...
[syntax=vbscript]Sub Sumujezeli() Application.ScreenUpdating = False Dim Sc As String, Plik As String, Co As String, KG As String, KW As String, x As Double Co = Sheets("Parametry").Cells(2, 1) KG = Sheets("Parametry").Cells(2, 2) KW = Sheets("Parametry").Cells(2, 3) Sc = Sheets("Parametry").Cells(2, 4) Plik = Dir(Sc & "*.xls*") While Plik <>...
Jak zaprogramować, aby w Javie nazwa pliku była datą + string np.: 2015-14-1 _java.jpeg
Jeśli znaki występują na tych samych pozycjach, to możesz nazwę tego pliku władować do stringa a następnie funkcją substring wyciągnąć interesujący Cię ciąg i użyć go do stworzenia nazwy pliku wynikowego.
A co mi tam. Tak ma być. :) [syntax=vbscript]Sub Drukuj() Dim Word As Object, Dokument As Object, DomyslnaDrukarka As String Dim WybranaDrukarka As String, Plik As String On Error Resume Next WybranaDrukarka = Sheets("Drukarki").Cells(Application.Mat... Sheets("Drukarki").Range("B:B"), 0), "A") If WybranaDrukarka = "" Then MsgBox "Wybierz najpierw...
na stream'ie nie na stringu.
Pozwolę sobie wtrącić swoje 3 grosze.;) [syntax=vb]Sub ImportujPliki() Application.ScreenUpdating = False Dim Plik As String, Katalog As String, SN As String Katalog = "C:\PlikiExcela\" Plik = Dir(Katalog & "*.xls*") With ThisWorkbook While Plik <> "" Set wb = Workbooks.Open(Katalog & Plik) SN = Mid(Plik, 1, InStrRev(Plik, ".") - 1) wb.Sheets(1).Copy...
ak wywołac tą metodę buttonem Zwyczajnie: [syntax=csharp]private void button1_Click(object sender, EventArgs e) { List<string> files = GetFiles((at)"c:\", "*.txt"); MessageBox.Show("Znaleziono " + files.Count.ToString()); }[/syntax]Po wykonaniu znalezione ścieżki plików masz w liście stringów, z którą możesz zrobić, co chcesz, iterować pętlą...
[syntax=vb] Sub PobierzDane() Application.ScreenUpdating = False Dim Sciezka As String, Plik As String, nw As Long, wbk As Workbook, fl As Boolean Sciezka = "C:\Users\kowalczyk.marek\Desktop\sss\" Plik = Dir(Sciezka & "*.xlsx") fl = False While Plik <> "" Set wbk = Workbooks.Open(Sciezka & Plik) With ActiveSheet If .FilterMode Then .ShowAllData...
Rób więc jak napisano - otwieraj plik, dopisuj stringa na jego koniec i go zamykaj. Wszelkie operacje dyskowe są buforowane przez system, a i dysk ma swój własny bufor... poza tym zdaje się nie ma to być wersja docelowa a "Debug Release" mający wychwycić jakieś błędy, w wersji finalnej nie będzie już logowania.
Witam. Mam plik tekstowyw, ktory chce wczytac linijka po linijce na zmienne typu: string int string (tyle razy co wartosc poprzedmiej linijki int'a +1) i tak w kolo do końca pliku. Dopiero się uczę wiec proszę o dość proste tłumaczenie. Z góry dziękuję.
Pliki źródłowe możesz śmiało skompilować pod Atmel Studio/AVR Studio. Tylko musisz stworzyć nowy projekt i dodać pliki ze źródełkami do niego. Działa bezproblemowo.
[syntax=cpp] #include <stdio.h> #include <iostream> #include <string> #include <fstream> #define PLIK "data.h" using namespace std; int main() { string date; string revi; string imie; string gdzie; string ip; string port; fstream plik; system("DEL pawno/include/info.inc"); cout << "Compiler eXe24 by KaSkA3eR" << endl;...
Switche powinieneś mieć: bison -v -d -o y.tab.c c.y --verbose Jeśli chodzi o te błędy chodzi o to że IDENTYFIER CONSTANT i STRING nie mają typu - to błąd w kodzie a nie przy kompilacji. Musisz do pliku c.y dodać: %type <std::string> IDENTIFIER %type <std::string> STRING_LITERAL %type <int> CONSTANT Potem pewnie wyjdzie ci shift/reduce...
Po wymianie PW. Generalnie rozwiązań jest jak zawsze wiele ja to widzę tak [syntax=vbscript]Sub test() Dim Sciezka As String, Plik As String, Rpt As Workbook, Spr As Workbook, x As Long Application.ScreenUpdating = False Sciezka = "C:\VBA\" Plik = Dir(Sciezka & "*sprawozdania*.xlsx") Set Rpt = Workbooks.Open(Sciezka & "Raport.xlsx") While Plik...
Mała zmiana: [syntax=vb]Sub Przenies() Dim Sciezka As String, Pliki As String, Plik As String Dim Rok As String, Cel As String Sciezka = "E:\Faktury\" & Cells(1, 1) & "\" Rok = Cells(1, 2) Pliki = "*" & Rok & ".pdf" Cel = Sciezka & Rok If Dir(Cel, vbDirectory) = "" Then MkDir (Cel) Plik = Dir(Sciezka & Pliki) While Plik <>...
(at)kinggustav Nie, ten string jest w porządku.
Po co kompilator? Mała podpowiedź - klawisz F8 w kodzie VBA. To co chcesz uzyskać zrobisz takim prostym kodem: [syntax=vbscript]Sub DzialajNaPlikach() Application.ScreenUpdating = False Dim Sciezka As String, Plik As String, PlikZrodlowy As Workbook, ArkuszDocelowy As Worksheet Sciezka = "c:\sas\" Plik = Dir(Sciezka & "*.xls*") Set ArkuszDocelowy...
I to właśnie generuje ten błąd. Albo zapisz potrzebne Ci String-i do pliku tekstowego i odczytuj je z niego, albo podziel ten bardzo długi string w kodzie programu na części, nie przekraczające 255 znaków. Tak jak w tym drugim kodzie. --EDIT-- Jeżeli tak, to nie możesz takiego tekstu wprowadzić bezpośrednio do kodu programu! Albo zapiszesz te "skopiowane...
[syntax=vb]Sub PobierzDzisiejszeDane() Application.ScreenUpdating = False Dim Sciezka As String, Plik As String Sciezka = ThisWorkbook.Path p = Date & ".xlsx" Plik = Sciezka & "\Dane\" & p If Dir(Plik) = "" Then MsgBox "Brak pliku z dzisiejszą datą." Exit Sub End If Workbooks.Open Filename:=Plik Sheets("Dzisiejsze dane").Select ow = Cells(Rows.Count,...
Był ostatnio temat [url=http://www.elektroda.pl/rtvforum/to... w którym maglowanych było kilka rozwiązań. Kod jest logiczny i łatwy do zaadoptowania. Fakt, nie ma tam nic o podfolderach. Do pierwszego poziomu można "dobrać się" Np w ten sposób [syntax=vb]Sub Lista1() Dim path1 As String, path2 As String, plik As String Dim folder As...
Explorer.exe -> String Table -> 46 -> 731.
witam forumowiczów, czy w ten sposób można odczytać dane z pliku binarnego i zapisać je w stringu? Bo chyba nie działa. Z góry dzięki za pomoc. [syntax=cpp]string pobierz(void) { ifstream plik; plik.open(sciezka, ios::binary); if( plik.good() == true ) { string linia; while(getline(plik, linia)) message+=linia; plik.close(); } return message; } [/syntax]...
Zastosuj to co bardziej Ci pasuje [syntax=vbscript] 'scieżka z nazawą pliku Dim myPath As String myPath = Application.ActiveWorkbook.FullName 'ścieżka do pliu Dim myFolderPath As String myFolderPath = Application.ActiveWorkbook.Path[/syntax]
Nikt nie będzie sprawdzał kodu, za który musi płacić. Usuń pobieranie punktów za pobranie tego pliku :) Odpowiedź na pytanie z pkt. 1 : var SciezkaPliku : string; [...] GetDir(0,SciezkaPliku); SciezkaPliku:= IncludeTrailingBackslash(NazwaPliku&... if FindFirst( SciezkaPliku+Edit1.text+'*.*', faAnyFile - faDirectory,...
A, to zależy Karolino ;] czy chcesz zliczać pliki z uwzględnieniem podkatalogów czy bez... Moim zdaniem chodzi Ci o coś takiego: [syntax=csharp]//pobierz tylko "topowe" katalogi wskazanego folderu string[] directories = Directory.GetDirectories((at)"C:\Windows... "*", SearchOption.TopDirectoryOnly); foreach (string dir in directories) { //dla każdego...
Serdecznie dziekuje za odpowiedz. Po przerobce fragment programu wyglada nastepujaco: fstream plik1, plik2; // Tworze 2 obiekty klasy fstream // automatyczne dodawanie koncowki _2 przed rozszerzeniem pliku string a; a = sciezka_plik; string::size_type pozycja; pozycja = a.find_first_of("."); // szukanie, na ktorej pozycji jest...
W środku if wykorzystaj właściwość FileName, która zawiera stringa (ścieżka pliku). [syntax=csharp]if (openFileDialog.ShowDialog() == DialogResult.OK) { // tutaj wykorzystaj openFileDialog.FileName }[/syntax]
To sa trzy kolejne nadejścia, trzy zupełnie inne nazwy plików :)
Ale kombinujesz... Podstawy się kłaniają. [syntax=vbscript]Sub Pliki() Dim Sciezka As String, Plik As String Sciezka = ActiveWorkbook.Path & "\Dane\" Plik = Dir(Sciezka & "*.html") While Plik <> "" If Len(Plik) = 17 Then MsgBox Plik & "-12" If Len(Plik) = 18 Then MsgBox Plik & "-13" Plik = Dir() Wend End Sub [/syntax]
Osobiście wolę korzystać z funkcji Dir . FileSerch potrzebuje referencji i lubi stwarzać problemy. Poniżej przykład z pętlą. Jeśli daty w nazwach są w stałym formacie można sobie ułatwić podstawiając dzisiejszą datę. Dla wczoraj będzie to Date-1, itd Oczywiście dla wielu plików przypisanie nazwy odbywać się będzie wewnątrz pętli bez wychodzenia, ale...
[code][syntax=vbscript] Sub wydrukHurtowy() Dim automatycznyWydruk As Boolean Dim Plik As String Dim myPath As String automatycznyWydruk = True 'poniżej jest moja scieżka, prosze ja o dosotosowanie do swoich potrzeb myPath = "C:\Users\marek.korek\Desktop\1-100\1-3\... Plik = Dir(myPath) L = 1 Do While Plik <> "" Documents.Open (myPath & Plik)...
Usiłuję zapisywać dane, które przechodzą przez kartę sieciową (w Bytes) ale wyświetlać sobie w formie czytelnej w GB. No i jest fajnie dopóki nie okazuje się, że tak nie jest. Logowanie do plików nie działa, gdzieś się zapisuje ale nie wiem gdzie, na początku zapisywało tam gdzie miałem skompilowane exe, a teraz pewnie w jakimś temp. a nie w skazanej...
Przerobiłem makro z innego wątku PRL - sprawdź czy działa Umieść makro w plik B"plik B.xlsx" PRL po dodaniu elementów z Twojego nagrywania.
# Funkcja do aktualizacji daty modyfikacji folderu na datę najstarszego pliku function UpdateFolderDate { param( [string]$folderPath ) $oldestDate = Get-Date # Sprawdź wszystkie pliki w folderze Get-ChildItem -Path $folderPath -Recurse | Where-Object { $_.LastWriteTime -lt $oldestDate -and -not $_.PSIsContainer } | ForEach-Object...
Jest jeden poważny błąd. Załącznik zostaje wysłany razem z makrem, w którym są Twoje dane do skrzynki pocztowej! Wszystkie procedury trzymaj w normal, a nie w pliku źródłowym. http://obrazki.elektroda.pl/7493883500_1... A tutaj poprawiona procedura z zapisem do pdf'. http://obrazki.elektroda.pl/3609333200_1...
Na przyszłość załączaj przykładowe pliki. [syntax=vbscript]Function Zadania(Osoba As String, Zakres As Range) As String For Each k In Zakres If InStr(1, UCase(k), UCase(Osoba), vbTextCompare) > 0 Then b = b & vbNewLine & k & vbNewLine Next Zadania = b End Function [/syntax]
Czyli nie możesz porównywać dat? A co dokładnie masz w pliku, jak są zapisane te daty? Jeżeli masz w formacie daty to do porównania też musisz mieć datę, jak string to string. Sprawa prezentacji dat w Excelu jest tu drugoplanowa. Chyba nie załączyłeś przykładowego pliku.
Jeżeli to są ustawienia programu, polecam wykorzystanie pliku .settings - cała obsługa związana z XMLem już w nim jest. [url=http://www.dotnetperls.com/settings... [url=http://msdn.microsoft.com/en-us/lib... [url=http://www.codeproject.com/KB/cs/Pr...
Bibliotekę ArduSerial powinieneś dodać do swojego projektu wg tej instrukcji: [url=https://www.learncpp.com/cpp-tutori... Samo włączenie pliku nagłówkowego to za mało.
Myślę, że zwykłe czytanie (xml potraktowane jako pliki sekwencyjne) powinno poradzić. Wklej do modułu standardowego i wypróbuj [syntax=vbscript]Option Compare Text Option Explicit Sub Proba() Dim katalog As String, plik As String, linia As String Dim licznik As Long, ko As Integer, startuj As Boolean katalog = "c:\" 'podstaw katalog z xml'ami. Slash...
W załączniku. Niestety dalej to samo https://obrazki.elektroda.pl/8971039800_... Mam jeszcze coś takiego ale wskazuje mi błąd : [syntax=vbscript] Sub Przycisk2_Kliknięcie() Dim folder As String Dim plik As String folder = "c:\pliki\" plik = Dir(folder & "*.xlsm") Application.ScreenUpdating = False Do While plik <> "" With...
Tak się nie da. Musisz łączyć się z serwerem SQL a nie z plikiem.
Każdy plik ma 1 arkusz Ja widzę 2.;)
Oj, pisałem dwa razy przecież: NIE UŻYWASZ już StreamReadera. :) Po co?? StreamReader odczytuje dane z pliku którego ścieżkę przekazujesz w konstruktorze - wywala błąd, bo myśli, że podajesz mu ścieżkę do pliku, a Ty przekazujesz mu treść tego pliku. ReadToEnd odczytujesz wszystko do jednej zmiennej typu string - a to już masz od razu odwołując się...
Musisz podać pełną ścieżkę pliku który chcesz otworzyć,np c:\plik.txt #include <fstream> #include <string> using namespace std; string st_o,st,ss; const char* c_str(); int main () { cout<<"podaj plik do otwarcia ";cin>>st_o; cout<<"podaj do jakiego wyrazenia ma wyswietlac ";cin>>ss; ifstream iFile(st_o.c_str()); while(iFile.good())...
Spróbuj czegoś takiego : program pliki_TXT; uses dos,crt; var SRC : SearchRec; ile : integer; {**********************************... procedure TRIM(var src : string); begin while pos(' ',src)<>0 do delete(src,pos(' ',src),1); end; {**********************************... procedure...
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",...
[syntax=vbscript]Sub Dzialaj() Application.ScreenUpdating = False Dim Tekst As String Sciezka = "C:\PlikiExcela\" Tekst = "mój tekst" Plik = Dir(Sciezka & "\*.xls*") While Plik <> "" Call Wyszukaj(Sciezka & Plik, Tekst) Plik = Dir() Wend Set fso = CreateObject("Scripting.FileSystemObject... Set s = fso.GetFolder(Sciezka) For Each p In s.SubFolders...
Plik ten był na płytce z przykładami do książki. Posiada kilka przydatnych skryptów m.in. umożliwia jak widzisz pisanie komunikatów (wstawianie stringu) bezpośrednio w procedurze. Plik ten dołączę później.
Nie mam pewności czy trafiłem z zakresami :) Spróbuj Sub Przycisk1_Kliknięcie() Dim sciezka As String, Wybor As FileDialog, plik As String, wiersz As Integer 'Set Wybor = Application.FileDialog(msoFileDialog... 'With Wybor ' .Title = "Wybierz folder" ' .InitialFileName = ThisWorkbook.Path 'If .Show Then sciezka =...
Coś w tym stylu: [syntax=vbscript]Sub ImportujWybraneKomorki() Application.ScreenUpdating = False Dim Plik As String, Katalog As String, Wej As Workbook, Wyj As Workbook, KomWej As Integer Set Wyj = ActiveWorkbook Katalog = Sheets("Parametry").Range("A2") Plik = Dir(Katalog & "*.xlsx") x = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row + 1 KomWej...
Możesz w tym samym pliku: function checkString($string) { // sprawdzanie poprawnosci danych od uzytkownika } if($_POST['wyslij'] && $_POST['numer']) { $daneZFormularza = $_POST['numer']; if(checkString($daneZFormularza&... $wynik = mysql_query("SELECT * FROM `shaker`.`kopfdaten_polnisch`...
function FileGetAttr(const FileName: string): Integer; function FileSetAttr(const FileName: string; Attr: Integer): Integer;
odczytaj wszystkie linie z pliku do np. vectora stringów, następnie zmień te stringi, które chcesz i wpisz wszystko spowrotem do pliku (wszystkie linie, nadpisując cały stary plik).
Podepnij sobie pod przycisk "Zapisz" następujące makro [syntax=vb]Sub zapisz_karte() Dim sFlnNm As String 'nazwa pliku z komórki A1 Dim sPath As String 'ścieżka zapisu na razie taka sama jak pliku źródłowego Dim sWrbkFrm As String 'nazwa pliku docelowego z rozszerzeniem sPath = ThisWorkbook.Path & "\" sFlnNm = Range("A1").Value If sFlnNm = "" Then MsgBox...
HxD nie wczytuje całego pliku i nie tworzy z niego String'a tylko pokazuje to co aktualnie widać (mniej więcej). Gdybyś miał wczytać 1GB plik to String miałby minimum 3GB.
Spróbuj skorztystać z gotowych metod, do porównania ciągów znaków: [1] http://www.cppreference.com/wiki/string/... [2] http://www.java2s.com/Code/C/String/Comp...
Korzystam z JvInterpretatora który umożliwia wykonywanie kodu Delphi napisanego w skompilowanej już aplikacji. Niestety, z tego co widzę to dodawanie unitów z których chce się skorzystać jest utrudnione. Polega to na napisaniu unitu w procedurze GetUnitSource samego interpretatora, np.: Source była cała jego treść. Próbuję zrobić coś takiego ale nie...
[syntax=cpp] foreach (String file in openFileDialog1.FileNames){ WriteLine(file); }[/syntax]
na potrzeby mojego programu napisałem przeszukiwanie katalogów i pod katalogów tak, ale to w delphi wiec nie wiem czy ci to pomoże: // sprawdza czy nie są to katalogi specjalne function TForm1.Compare(plik: string): boolean; begin Result:=(plik='.') or (plik='..'); end; // sprawdza poprawność scieżki function TForm1.Add(Dir:...
Jak koniecznie VD to SaveWAV(string filename) wstawiasz do pliku skryptu np *.vcf (configuration file) a VirtualDuba wywołujesz z linii poleceń poprzez vdub.exe (lub vdub64.exe dla O/S 64-bit) uwzględniając plik ustawień. Z innych programów, które to potrafią to MEncoder
[syntax=cpp]std::cout << "nazwa pliku: "; std::string fName; getline(std::cin, fName); fName += ".txt"; std::cout << fName << "\n";[/syntax]
RCDATA dev Z tego wnioskuję że używasz dev-cpp, który wie że jest takie coś jak RCDATA, ale nie wie co to jest. Zamień stałą na liczbę: Plik 10 "Plik.exe" * wie że jest takie coś jak RCDATA - zwraca błąd zamiast potraktować RCDATA jako string "RCDATA".
Po mojemu powinno działać coś takiego (nie testowane)[syntax=vb]Sub Przycisk1_Kliknięcie() Dim path1 As String, path2 As String, plik As String Dim folder As Object, pfolder As Object Dim dta1 As Date, dta2 As Date, nazwaMin As String, nazwaMax As String Application.ScreenUpdating = False path2 = "\\Serwer\test" Set folder = CreateObject("Scripting.FileSystemObject...
Musisz wczytywać za pomocą operacji nieformatowanego wejścia. Najłatwiej do "stringu", np. string s; do{ getline( plik, s ); // przetwarzanie lub przepisanie wczytanej linii // np. okret[j].opis = s.c_str(); ... }while( !plik.eof() ); HTH, Dariusz
Poza tym, pliki nagłówkowe powinny miec nazwę np <string.h>, a nie <string> Akurat to jest nieprawda w C++. W szczególności string.h to plik nagłówkowy C zawierający funkcje typu strcpy, strcmp itp, a string to plik nagłówkowy C++ z klasą std::string. Istnieje jeszcze plik cstring - będący odpowiednikiem string.h dla C++.
A może po prostu wczytać cały plik, każdą linijkę jako osobną komórkę tablicy stringów. Zmienić pierwszy element tablicy i zapisać ponownie wszystko do pliku. Nie trzeba nawet używać Memo. Polecam TStringList: http://www.delphibasics.co.uk/RTL.asp?Na...
Długość pliku a właściwie ilość linii bo właśnie ilość linii mnie interesuje, rozpoznaję w taki sposób: int licznik=0; vector<string> v; ifstream plik("plik.txt"); string line; while(getline(plik,line))... v.push_back(line); for(int i=0;i<v.size();i++) licznik++; plik.close(); a...
Niewiele, dlatego że najdłużej trwa otwieranie plików. Wywalając wszelkie zbędne select, copy-paste, itp - wychodzi coś takiego [syntax=vb]Sub podsumowanie() ' podsumowanie Makro ' ' Klawisz skrótu: Ctrl+d Dim i As Integer, k As Long, ostWrs As Long Dim path As String, plik As String Application.ScreenUpdating = False Sheets("offene").Activate Range("A2:S"...
Wczytaj cały plik, usuń ze stringu żądany tekst i nadpisz plik tym stringiem (za pomocą rewrite).
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ł z pomocą serializacji, odczyt i zapis, re'zapis do pliku. To że chcesz umieścić kilka zbiorów danych do pliku to tez nie problem, trzeba tylko zbudować fabrykę. tak więc niech Twoja klasa to: [syntax=csharp][Serializable]//pozwala nam to na skorzystanie banalnego sposobu na zapisywanie danych do pliku public class cOsoba { public int...
W zdarzeniu dodawania nowej zakładki musisz utworzyć obiekt klasy ToolStripMenuItem, przypisać do jego właściwości Text zawartość ComboBoxa, a następnie dodać do nadrzędnego ToolStripMenuItem za pomocą metody Add() stworzony obiekt. W C# wygląda to tak [syntax=csharp] ToolStripMenuItem ulubiona = new ToolStripMenuItem(); ulubiona.Text = urlComboBox.Text;...
należy najpierw uzyskać nazwę pliku (cin), a następnie nazwę pliku przekazać do konstruktora ofstream konwertując string do typu "char *" funkcją c_str() (bo przy otwarciu pliku należy podać nazwę pliku jako "char *"), czyli: [syntax=c]#include<iostream> #include<fstream> using namespace std; int main(){ string nazwa; cout<<"podaj...
Może tak? Private Sub CommandButton14_Click() Dim newFile As String, fname As String fname = "nowy plik" newFile = fname sFName = Application.GetSaveAsFilename If sFName <> False Then ActiveWorkbook.SaveAs Filename:=fname End If End Sub
Chyba nie za bardzo rozumiem jak to wstawić do mojego makra Podstawić (z tego co opisujesz) jako argument (string) metody 'GetObject (tutaj)'
growat string łańcuch string attiny string
expected identifier alternator trafic kontrolka nissan almera
reset pilota szybkość internetu netia
Realtek RTL8188ETV - Jak ponownie włączyć adapter? Kondensatory w sprzęcie elektronicznym po zalaniu fekaliami – czy wymiana jest konieczna?