Amaiko WebLog

På grunn av mitt tap av mine data mer enn en gang jeg så at innlegget mitt filene på harddisken som er rett fordi det som du deler det er det som er igjen, så kanskje vil du finne artikler av denne typen, inkludert denne artikkelen, som inneholder klasse idé i boken Objektorientert programmering, som prøvde i et par dager siden.

Classic skrevet i VB.Net og leter etter antall filer som ligger på et bestemt sted ved å bruke filen dato, størrelse, eller Amtdadtha og koden forklarer seg selv

 Public Overloads Function GetFiles ( ByVal Max As Integer , ByVal Min As Integer , ByVal PATH As String ) As Integer Max = Max * 1024 * 1024 'To Convert MB to Byte Min = Min * 1024 * 1024 'To Convert MB to Byte Dim files ( ) As String files = System. IO . Directory . GetFiles ( PATH ) Dim i, counter As Integer For i = 0 To UBound ( files ) Dim F1 As New System. IO . FileInfo ( files ( i ) ) If F1. Length < Max And F1. Length > Min Then counter += 1 End If Next Return ( counter ) End Function Public Overloads Function GetFiles ( ByVal toDate As Date , ByVal FromDate As Date , ByVal PATH As String ) As Integer 'To Get Files Nuumber By Date Dim files ( ) As String files = System. IO . Directory . GetFiles ( PATH ) Dim i, counter As Integer For i = 0 To UBound ( files ) Dim F1 As New System. IO . FileInfo ( files ( i ) ) If F1. CreationTime . Date < toDate And F1. CreationTime . Date > FromDate Then counter += 1 End If Next Return ( counter ) End Function Public Overloads Function GetFiles ( ByVal ext As String , ByVal PATH As String ) As Integer 'To Get Files Nuumber By Extention Dim files ( ) As String files = System. IO . Directory . GetFiles ( PATH, "*." + ext ) Dim i, counter As Integer For i = 0 To UBound ( files ) counter += 1 Next Return ( counter ) End Function End Class Klasse CountFiles '/ / Get Files nummer i bestemt mappe - Lisens: Public Domain Public overbelaster Funksjon GetFiles (ByVal Max As Integer, ByVal Min As Integer, ByVal bane som String) As Integer = Max Max * 1024 * 1024 "Å Konvertere MB til Byte Min = Min * 1024 * 1024 "Å Konvertere MB til Byte Dim filer () Som String filer = System. IO. Directory. GetFiles (PATH) Dim i, teller As Integer For i = 0 For å UBound (filer) F1 Dim Som Ny System. IO. FileInfo (filer (i)) Hvis F1. lengde <Max Og F1. Length> Laveste Så counter + = 1 End If Next Tilbake (telleren) End Function Public overbelaster Funksjon GetFiles (ByVal todate Som Dato, ByVal FromDate Som Dato, ByVal bane som String) As Integer 'for å få filer Nuumber Dato Dim filer () Som String filer = System. IO. Directory. GetFiles (PATH) Dim i, teller As Integer For i = 0 For å UBound (filer) Dim F1 som ny System. IO. FileInfo (filer (i)) Hvis F1. CreationTime. Date <toDate Og F1. CreationTime. Date> FromDate Så counter + = 1 End If Next Tilbake (telleren) End Function Public overbelaster funksjon GetFiles ( ByVal ext Som String, ByVal bane som String) As Integer 'for å få filer Nuumber Ved forlengelse Dim filer () Som String filer = System. IO. Directory. GetFiles (PATH, "*." + EXT) Dim i, teller As Integer For i = 0 For å UBound (filer) mot + = 1 Neste Tilbake (telleren) End Function End Class 

For å sikre at arbeidet til Classic
Skriv inn koden nedenfor i hvilken som helst knapp

Dim DllFiles As New CountFiles()
MsgBox(DllFiles.GetFiles("dll", "c:/windows"))

Vil komme til deg antall filer med filtypen DLL i mappen c: / windows
Jeg håper at noen utnyttet i denne kategorien

For en tid siden og jeg har tenkt å vie tid til å lære programmering skall Shell skripting, men dagsorden var og er fortsatt å få slutt på overfylte sa jeg det beste å tvinge meg til å sette av tid til å lære er å starte noen prosjekter, og allerede, og straks du velger ideen om noe som faktisk brukes, og trenger jeg i min omgang daglig med Linux og er ferdige maler som jeg liker i Alapunto b

R. Klikk>> Create Document>> Tøm fil

For å gjøre jeg opprette en tom tekstfil jeg skriver hva jeg liker i stedet for å skrive det berører newfile på kommandolinjen og herfra kom ideen.

Da har jeg skrevet et script til å bygge min kunnskap om mine tidligere ordre og skall som jeg vet at det er veldig enkelt, men målet er å gjøre meg begynne å lære programmering skallet til Atorh

Ubuntu Maler

Script er å forenkle prosessen med å opprette tomme filer gjennom listen med høyre museknapp stedet for å åpne programmer slik som Office-pakken Alobn for eksempel, eller Gimp, og deretter opprette en ny fil.

Funksjoner script

Skriptet støtter en Alaovis og programmere Gimp, som de er Mujdin som standard i alle distribusjon av ubuntu også Isaaadat skript for å lage filer av typen xhtml overgangsreglene og rammesett og strenge, og sparer du skriver en slik kode

<! DOCTYPE html
OFFENTLIG - / / W3C / / DTD XHTML 1.0 Strict / / EN

http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd>

<html>
<head>
<title> enkelt dokument </ title>
</ Head>
<body>
<p> et enkelt avsnitt </ p>
</ BODY>
</ HTML>

Bruk av script

Skriptet har blitt programmert rent for pedagogiske formål og tilstrekkelig for min bruk av personlige og ble testet på Ubuntu 7.10 vellykket og du er invitert til å bruke skript eller utvikle eller korrigere mine feil nå fiolin script landing GPL License

Kode

Pthami skriptet ditt fra her

Utføre skript på datamaskinen

For å kjøre skriptet ved å skrive følgende på kommandolinjen
cd
gedit maler
Deretter kopiere og lime inn koden, og lagre filen, og deretter
sh maler
Tid programmet som skal
Eller
chmod + x maler
. / Maler

For å legge til en eiendom i manuset

- For å legge til en bestemt eiendom som en bestemt type Alamtdadt og la den slags. Rb touch GIMP.xcf søke og legge til etter touch RubyFile.rb

Bugs

Denne regionen for å legge til bugs for Balascrepett
Et skript er satt opp filene Alobn Office og Gimp på grunnlag av at det tekstfiler
Jeg håper at du har hjulpet meg en løsning