Archiwum kategorii: Programming - Strona 2

VBA (Excel 2007) wczytywanie danych z zew. arkusza

Wysłane przez w 12 października 2010 Brak komentarzy

Ku pamięci:

Załadowanie nazwy pliku:


Sub LoadExcelFile_Click()
Dim ExcelFile As Variant
ExcelFile = LoadFilename()
Cells(2, 6).Value = ExcelFile
End Sub

dobieranie się do danych wewnątrz dodatkowego arkusza:


Sub CopyData()
Dim ExcelFile As Variant
Dim Excel_Sheet As Variant
Dim DataRange As Range

ExcelFile = Cells(2, 6).Value
Excel_Sheet = "Sheet1"
Set wbk = Workbooks.Open(Filename:=ExcelFile)

Set DataRange = wbk.Worksheets(Excel_Sheet).Range("C455:C468")
DataRange.Copy
'.......... i bawimy się dalej
End Sub

Wybieranie losowej próbki danych z populacji (Excel/Crystal Reports).

Wysłane przez w 13 czerwca 2010 Brak komentarzy

Oto kolejne ciekawe zagadnienie:

Mamy kolumnę danych (populację) i z niej musimy wybrać próbkę danych (o ustalonej wielkości). Oczywiście Statistica, Matlab czy też Excel (Sampling – w najbardziej wypasionej wersji) zrobią to za nas lecz czasami potrzebne jest szybkie i lekkie rozwiązanie. I tu z pomocą przychodzi funkcja rand().

  1. MS Excel: w dodatkowej kolumnie umieszczamy rand(). Następnie przeciągamy formułę na cały zakres danych (populację). Sortujemy malejąco obie kolumny po stworzonej przed chwilą kolumnie danych. Następnie wybieramy sobie n komórek danych (gdzie n – wielkość próbki).
  2. Crystal Reports: tworzymy nową formułę @random_num której treść to Rnd(). Nasŧepnie dorzucamy tą formułę do sekcji details. Teraz to już kwestia upodobań w jaki sposób wybierzemy naszą próbkę (Select Expert, Group Sort Expert).

Rozwiązanie może nie jest rewelacyjne, ale przynajmniej jest szybkie i nie wymaga kombinowania.

Uruchamianie projektu Django na home.pl

Wysłane przez w 1 marca 2010 Brak komentarzy

Wszystkim, którzy mają problemy z uruchomieniem aplikacji django na serwerach home.pl polecam ten wpis.

PHP: sortowanie listy plików w katalogu po dacie

Wysłane przez w 11 lutego 2010 Brak komentarzy

Natrafiłem ostatnio następujący problem: wypisać listę plików znajdujących się w podanym katalogu posortowaną według daty modyfikacji pliku.
Rozwiązanie nie jest może super eleganckie, ale działa i ktoś zainteresowany może to poprawić.

Kod znajduje się również: tu


function Filename_Sort($Folder_Name)
{
$counter=0;
if ($FP = opendir($Folder_Name))
{
while (false !== ($current_file = readdir($FP)))
if (!is_dir($Folder_Name.'/'.$current_file.'/'))
{
// Getting the position of extension
$Ext_position=strrpos($current_file,'.');
// checking if extension is present
if ($Ext_position!==false)
{
// not showing php files (you can add more conditions here or use glob instead opendir to get filenames
if(substr($current_file,$Ext_position+1)!='php')
{
//creating two arrays: array of filenames and array of file modification times - using filemtime function
$Current_file_date = date ('y-m-d H:i', filemtime($Folder_Name.'/'.$current_file));
$Filenames_Array[$counter]=$current_file;
$Dates_Array[$counter]=$Current_file_date;
$counter+=1;
}
}
}
closedir($FP);
}
else return false;
//sorting table of filenames
array_multisort($Dates_Array, SORT_DESC, SORT_STRING, $Filenames_Array);
$i=0;
while ($i < $counter)
{
//getting result on the screen as list of http links
$current_file=$Filenames_Array[$i];
echo '<a href="'.$Folder_Name.$current_file.'">'.$Folder_Name.$current_file.' - '.date ('y-m-d H:i', filemtime($Folder_Name.'/'.$current_file)).'</a>
';
$i++;
}
}

$folder = 'uploads/';
Filename_Sort($folder);