İstenilen boyutta dosya oluşturma - Çözüldü

[mehmet.akif.simsek]

Aslında konuyu hangi başlık altına açsam bilemedim. Yanlışsa taşıyabiliriz.

Konuya gelince bugun laptobuma ait sürücüleri ve format sonrası temel yazılımların bulunduğu klasörü diskimi bölerek ayrı bir disk oluşturdum ve içine taşıdım diskin altında da doluluk oranı görünmesin diye ne yaparım diye düşünürken kalan alanı boş dosya ile doldurmak istedim. Araştırıkten

cmd üzerinden yapılan "fsutil file createnew" komutunu gördüm ve bu şekilde

Kod: Tümünü seç

fsutil file createnew bosdosya 75000

bu komutla oluşturdum ve diski 0 byte boşluk ile doldurum ve o doluluk barı gitti.

Görünümden tamemen de kaldırılabilirdi fakat diğer sürücüler için olsun istedim.

Şimdiik gelelim ricama
şu şekilde içersini veri girişi olan scripti
resimde yaptığım şekilde byte olarak veri girilince masaüstüne ya da scriptin açıldığı yere yukarıdaki komutu uygulayıp istenilen boyutta dosya oluşturtmak mümkün mü?

Ben vb'den anlamadığım için paylaşıp sunamıyorum

[mehmet.akif.simsek]

Sanırım bu yapay zeka bir çok probleme çözüm bulacak gibi:

ChatGPT kardeşim sağolsun çözüme kavuşturdu.

Kod: Tümünü seç

Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strSize = InputBox("Dosya boyutunu girin (byte cinsinden):")
strDesktopPath = objShell.SpecialFolders("Desktop") ' Masaüstü yolunu al

strFilePath = objFSO.BuildPath(strDesktopPath, "bosdosya") ' Dosya yolunu oluştur

' Eğer aynı isimde başka bir dosya varsa, sil
If objFSO.FileExists(strFilePath) Then
    objFSO.DeleteFile strFilePath
End If

' Dosyayı oluştur
objShell.Run "cmd /c fsutil file createnew " & strFilePath & " " & strSize, 0, True

bu kod ile arzu ettiğim şekilde byte cinsinden boyutu belirtince masaüstüne "bosdosya" adında dosyayı oluşturuyor. Eğer daha önce yaynı isimde bir dosya varsa onun üstüne yazıyor. Gayet başarılı.


Tek eksiği scripte bir başlık verdirtemedim. İstenilen Boyutta Dosya Oluşturma Aracı yazsın istiyorum bunu beceremedi bunu nasıl yazdırtırım

[mehmet.akif.simsek]

Flood gibi olsun istemiyorum fakat faydalı olacağı düşüncesiyle arada kaynamaması için:

ChatGPT'ye bir de boyut çevirici yaptırdım dolayısıyla yukardaki scripte dosya oluşturtacakken hangi boyut kaç byte ediyor onu da offline convert etmiş oluruz.

Kod: Tümünü seç

' Dönüşüm fonksiyonu
Sub ConvertSize(value, unit)
    ' Girdi birimine göre dönüşüm faktörlerini belirle
    Dim gigabyteFactor, megabyteFactor, kilobyteFactor, byteFactor
    Select Case LCase(unit)
        Case "gigabyte"
            gigabyteFactor = 1
            megabyteFactor = 1024
            kilobyteFactor = 1024 * 1024
            byteFactor = 1024 * 1024 * 1024
        Case "megabyte"
            gigabyteFactor = 1 / 1024
            megabyteFactor = 1
            kilobyteFactor = 1024
            byteFactor = 1024 * 1024
        Case "kilobyte"
            gigabyteFactor = 1 / (1024 * 1024)
            megabyteFactor = 1 / 1024
            kilobyteFactor = 1
            byteFactor = 1024
        Case "byte"
            gigabyteFactor = 1 / (1024 * 1024 * 1024)
            megabyteFactor = 1 / (1024 * 1024)
            kilobyteFactor = 1 / 1024
            byteFactor = 1
        Case Else
            ' Hatalı birim girdisi
            WScript.Echo "Hatalı birim girdisi!"
            Exit Sub
    End Select

    ' Dönüşümü yap ve sonuçları ekrana yazdır
    WScript.Echo value & " " & unit & " = " & value * gigabyteFactor & " gigabyte"
    WScript.Echo value & " " & unit & " = " & value * megabyteFactor & " megabyte"
    WScript.Echo value & " " & unit & " = " & value * kilobyteFactor & " kilobyte"
    WScript.Echo value & " " & unit & " = " & value * byteFactor & " byte"
End Sub

' Kullanıcıdan giriş al
Dim value, unit
value = InputBox("Değer girin:")
unit = InputBox("Birim girin (gigabyte, megabyte, kilobyte, byte):")

' Dönüşüm fonksiyonunu çağır
ConvertSize value, unit

[velociraptor]

Halletmene sevindim

[mehmet.akif.simsek]

Halletmene sevindim

Hocam penceresine başlık verdirtemedim onu nasıl çözebilirim. Mesela sizin Euro TL çevirici scriptte Sonuç yazıyor bunda da Boyut Çevirici ya da diğeri için Dosya Oluşturucu şeklinde yazsın istiyorum nasıl yapabilirim

[velociraptor]

Tek eksiği scripte bir başlık verdirtemedim. İstenilen Boyutta Dosya Oluşturma Aracı yazsın istiyorum bunu beceremedi bunu nasıl yazdırtırım

Aşağıdaki satırda www. sordum .net yerine başlık için hehangi birşey yazabilirsin

Kod: Tümünü seç

strSize = InputBox("Dosya boyutunu girin (byte cinsinden):","www.sordum.net")

[mehmet.akif.simsek]

Tek eksiği scripte bir başlık verdirtemedim. İstenilen Boyutta Dosya Oluşturma Aracı yazsın istiyorum bunu beceremedi bunu nasıl yazdırtırım

Aşağıdaki satırda www. sordum .net yerine başlık için hehangi birşey yazabilirsin

Kod: Tümünü seç

strSize = InputBox("Dosya boyutunu girin (byte cinsinden):","www.sordum.net")

Hocam bir şey daha danışmak istiyorum yukarıdaki çeviriciyi çalıştırdım fakat sonuçları yani kb byte yada mb cinsinin sonucu kopyalanabilir değil message box olarak veriyor bu yapay zekaya kopyalabilir çıktı vermesini istedim 2 farklı kod verdi ikiside çalışmadı bir bakabilir misiniz size zahmet

KOD 1

Kod: Tümünü seç

' Kullanıcıdan giriş al
Dim value, unit
value = InputBox("Değer girin:")
unit = InputBox("Birim girin (gigabyte, megabyte, kilobyte, byte):")

' Dönüşümü yap ve sonuçları oluştur
Dim resultText
resultText = ConvertSize(value, unit)

' Sonuçları mesaj kutusu olarak göster
MsgBox resultText, vbInformation, "Sonuç"

' Sonuçları panoya kopyala
CopyToClipboard resultText

MsgBox "Sonuçlar panoya kopyalandı.", vbInformation, "Bilgi"

' Dönüşüm fonksiyonu
Function ConvertSize(value, unit)
    ' Girdi birimine göre dönüşüm faktörlerini belirle
    Dim gigabyteFactor, megabyteFactor, kilobyteFactor, byteFactor
    Select Case LCase(unit)
        Case "gigabyte"
            gigabyteFactor = 1
            megabyteFactor = 1024
            kilobyteFactor = 1024 * 1024
            byteFactor = 1024 * 1024 * 1024
        Case "megabyte"
            gigabyteFactor = 1 / 1024
            megabyteFactor = 1
            kilobyteFactor = 1024
            byteFactor = 1024 * 1024
        Case "kilobyte"
            gigabyteFactor = 1 / (1024 * 1024)
            megabyteFactor = 1 / 1024
            kilobyteFactor = 1
            byteFactor = 1024
        Case "byte"
            gigabyteFactor = 1 / (1024 * 1024 * 1024)
            megabyteFactor = 1 / (1024 * 1024)
            kilobyteFactor = 1 / 1024
            byteFactor = 1
        Case Else
            ' Hatalı birim girdisi
            ConvertSize = "Hatalı birim girdisi!"
            Exit Function
    End Select

    ' Dönüşümü yap
    Dim gigabyteResult, megabyteResult, kilobyteResult, byteResult
    gigabyteResult = value * gigabyteFactor
    megabyteResult = value * megabyteFactor
    kilobyteResult = value * kilobyteFactor
    byteResult = value * byteFactor

    ' Sonuç metnini oluştur
    ConvertSize = value & " " & unit & " = " & gigabyteResult & " gigabyte" & vbCrLf & _
                 value & " " & unit & " = " & megabyteResult & " megabyte" & vbCrLf & _
                 value & " " & unit & " = " & kilobyteResult & " kilobyte" & vbCrLf & _
                 value & " " & unit & " = " & byteResult & " byte"
End Function

' Sonucu panoya kopyalamak için yardımcı fonksiyon
Sub CopyToClipboard(text)
    With CreateObject("Scripting.FileSystemObject").CreateTextFile("temp.txt", True)
        .WriteLine text
        .Close
    End With
    CreateObject("WScript.Shell").Run "cmd.exe /c clip < temp.txt", 0, True
    CreateObject("Scripting.FileSystemObject

KOD 2

Kod: Tümünü seç

' Kullanıcıdan giriş al
Dim value, unit
value = InputBox("Değer girin:")
unit = InputBox("Birim girin (gigabyte, megabyte, kilobyte, byte):")

' Dönüşüm fonksiyonu
Sub ConvertSize(value, unit)
    ' Girdi birimine göre dönüşüm faktörlerini belirle
    Dim gigabyteFactor, megabyteFactor, kilobyteFactor, byteFactor
    Select Case LCase(unit)
        Case "gigabyte"
            gigabyteFactor = 1
            megabyteFactor = 1024
            kilobyteFactor = 1024 * 1024
            byteFactor = 1024 * 1024 * 1024
        Case "megabyte"
            gigabyteFactor = 1 / 1024
            megabyteFactor = 1
            kilobyteFactor = 1024
            byteFactor = 1024 * 1024
        Case "kilobyte"
            gigabyteFactor = 1 / (1024 * 1024)
            megabyteFactor = 1 / 1024
            kilobyteFactor = 1
            byteFactor = 1024
        Case "byte"
            gigabyteFactor = 1 / (1024 * 1024 * 1024)
            megabyteFactor = 1 / (1024 * 1024)
            kilobyteFactor = 1 / 1024
            byteFactor = 1
        Case Else
            ' Hatalı birim girdisi
            MsgBox "Hatalı birim girdisi!", vbCritical
            Exit Sub
    End Select

    ' Dönüşümü yap
    Dim gigabyteResult, megabyteResult, kilobyteResult, byteResult
    gigabyteResult = value * gigabyteFactor
    megabyteResult = value * megabyteFactor
    kilobyteResult = value * kilobyteFactor
    byteResult = value * byteFactor

    ' Sonuçları kopyalayabilir şekilde mesaj kutusunda göster
    Dim resultText
    resultText = value & " " & unit & " = " & gigabyteResult & " gigabyte" & vbCrLf & _
                 value & " " & unit & " = " & megabyteResult & " megabyte" & vbCrLf & _
                 value & " " & unit & " = " & kilobyteResult & " kilobyte" & vbCrLf & _
                 value & " " & unit & " = " & byteResult & " byte"

    MsgBox resultText, vbInformation, "Sonuç"

    ' Sonuçları panoya kopyala
    CreateObject("WScript.Shell").Run "cmd.exe /c echo " & resultText & " | clip", 0, True

    MsgBox "Sonuçlar panoya kopyalandı.", vbInformation, "Bilgi"
End Sub

' Dönüşümü yap
ConvertSize value, unit

[velociraptor]

' Sonuçları panoya kopyala
'CopyToClipboard resultText
Yerine aşağıdakini kullan bakalım ne sonuç verecek

Kod: Tümünü seç

Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("clip")
Set oIn = oExec.stdIn
oIn.WriteLine resultText
oIn.Close

[mehmet.akif.simsek]

' Sonuçları panoya kopyala
'CopyToClipboard resultText
Yerine aşağıdakini kullan bakalım ne sonuç verecek

Kod: Tümünü seç

Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("clip")
Set oIn = oExec.stdIn
oIn.WriteLine resultText
oIn.Close

Hocam süpersin harika oldu

[velociraptor]

Hallolmasına memnun oldum