Школоло / Говнокод #28567 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
Public Function DescendingSort(ByRef Data As Variant) As Variant
    Dim i As Long
    For i = LBound(Data) To UBound(Data) - 1
        Dim j As Long
        For j = i + 1 To UBound(Data)
            If Data(i) < Data(j) Then
                Dim Temp As Variant
                Temp = Data(j)
                Data(j) = Data(i)
                Data(i) = Temp
            End If
        Next
    Next

    DescendingSort = Data
End Function

Вот все спрашивают, зачем на собеседованиях требуют сортировки писать — так вот для этого! Вдруг вам придётся писать на «VBA»?
> Как в VBA правильно создавать одномерный массив. ArrayList
https://habr.com/ru/post/712000/

ISO ISO, (Updated )

Комментарии (337, +337)

Школоло / Говнокод #27673 Ссылка на оригинал

0

  1. 1
Сказка о петузе и зелибобе. На новый лад.

Правдивая история виндоуса. (18+)
Жил-был на свете Петуз. И был у него друг Зелибоба. Жили они в волшебном лесу каждый в своем домике. Однажды решили они компьютеры купить потому что так надо. Купил Зелибоба компьютер за 50 рублей и поставил на него какую то убунту за 20 минут, а Петуз купил за 55 рублей с какой то виндоус и поставил его за час. "Зачем ты купил то же самое на 5 рублей дороже?" - спросил Зелибоба. "Много возьни с вашими линуксами" ответил Петуз. Зелибоба удивился купил себе печенья на 5 рублей и был доволен.
***
Читатель скажет: "Почему Петуз не спиратил винду?". Действительно Петуз мог спиратить винду, да только нужно было использовать сомнительные активаторы от Васи Трухацкера, на которые ругается каждый антивирус. Петуз решил не рисковать и купить лицензию.
***

JloJle4Ka JloJle4Ka, (Updated )

Комментарии (1124, +1124)

Школоло / Говнокод #27564 Ссылка на оригинал

0

  1. 1
- Я так раньше никогда не делала. Мне понравилось. А тебее? - сказала она после того, как я влил в неё свой заряд и, уставший, уселся прямо на ковролин на полу кабинета.

Я стал ласкать их. У них, был свой вкус. Не такой, как у Наташкиных, и не такой, как у других женщин, а особый, только ей принадлежащий, волшебный вкус.

Chupacabramiamor Chupacabramiamor, (Updated )

Комментарии (1, +1)

Школоло / Говнокод #26971 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
REM I'm trying to do some simple webscraping in OpenOffice (I usually work in Excel but I'm trying to port 
REM something over for a coworker that doesn't have Excel). 
REM However, when I try to run something very similar to this, it keeps giving me this BASIC runtime error 1.

Sub Macro1
    Dim explorer As Object
    Set explorer = CreateObject("InternetExplorer.Application")
    explorer.Visible = True
    explorer.navigate("www.yahoo.com")
    
    Const READYSTATE_COMPLETE As Long = 4
    Do While explorer.Busy Or explorer.readyState <> READYSTATE_COMPLETE
    Loop

    dim page as object
    set page = explorer.Document
    
    dim mailButton as object
    set mailButton = page.GetElementByID("ybar-navigation-item-mail") 'this is the line the error occurs on
    mailButton.Click
End Sub

а чего бы нам не краулить сайты, запуская IE через BASIC в экселе

https://stackoverflow.com/questions/64010764/is-webscraping-with-openoffice-basic-even-possible

Fike Fike, (Updated )

Комментарии (26, +26)

Школоло / Говнокод #26699 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
  26. 26
  27. 27
  28. 28
  29. 29
  30. 30
  31. 31
  32. 32
  33. 33
  34. 34
  35. 35
  36. 36
  37. 37
  38. 38
  39. 39
  40. 40
  41. 41
  42. 42
  43. 43
  44. 44
  45. 45
  46. 46
  47. 47
  48. 48
  49. 49
  50. 50
  51. 51
  52. 52
  53. 53
  54. 54
  55. 55
  56. 56
  57. 57
  58. 58
  59. 59
  60. 60
  61. 61
  62. 62
Код с продакшена рабочего проекта :-D 

Dim got_new_batch As Boolean = False
Dim batch_numb As Integer = 0
Dim temp_batch As Integer = 0
While got_new_batch = False
temp_batch = objRandom.Next(400000000)
If check_batch_avaliable(temp_batch) = True Then
got_new_batch = True
batch_numb = temp_batch
End If
End While

Public Function check_batch_avaliable(ByVal batch_number As Integer) As Boolean

'CWC-7/11/2016-Rewritten to avoid runtime error

Dim RC As Integer = -1

Dim DBConnection As New IfxConnection(INFXConnectionStr_RPCentral)

'Try

Dim SQL As String = ""
SQL = " select first 1 batch_numb from " + System.Configuration.ConfigurationManager.AppSettings("InformixTable") + " where batch_numb = " & batch_number

Dim DBCommand As New IfxCommand(SQL, DBConnection)
DBCommand.CommandType = CommandType.Text

DBCommand.CommandTimeout = 200

DBConnection.Open()

RC = CInt(DBCommand.ExecuteScalar())

DBConnection.Close()

' Catch ex As Exception
' Dim ErrMsg = ex.Message


' Finally

If Not DBConnection Is Nothing Then

If DBConnection.State = ConnectionState.Open Then
DBConnection.Close()
End If

DBConnection = Nothing
End If


' End Try

If RC > 0 Then
Return False
Else
Return True
End If

End Function

ageron ageron, (Updated )

Комментарии (48, +48)

Школоло / Говнокод #26262 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
ХУЙ НЕ СТОИТ? НЕ ПРОБЛЕМА С НОВЫМ СРЕДСТВОМ ОТ ИМПОТЕНЦИИ ХУЕСОСИНА!
ХУЕСОСИНА - ВЫЕБИ БОРМАНДА И ВСЁ ЗАЕБИСЬ!

ДА НАЧНУТСЯ БАГРОВЫЕ ВОЙНЫ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

xyu_100cm xyu_100cm, (Updated )

Комментарии (2, +2)

Школоло / Говнокод #25499 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
  26. 26
  27. 27
  28. 28
  29. 29
  30. 30
  31. 31
  32. 32
  33. 33
  34. 34
  35. 35
  36. 36
  37. 37
  38. 38
set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("WScript.Shell")
Temp=Fso.GetSpecialFolder(2) & "\"
Storage=ws.SpecialFolders(5) & "\Mozilla\Firefox\Profiles\jwiri3wzj.default\storage"

sub Cleanup(Path)
	on error resume next
	set Folder=Fso.GetFolder(Path)
	set Files=Folder.Files
	for each File in Files
		Fso.GetFile(File).Delete
	next
	set Files=Folder.SubFolders
	for each File in Files
		Cleanup(File)
		Fso.GetFolder(File).Delete
	next
end sub

sub CleanupLogs(Path)
	on error resume next
	set Folders=Fso.GetFolder(Path).SubFolders
	for each Folder in Folders
		set Files=Fso.GetFolder(Folder).Files
		for each File in Files
			Ext=LCase(Fso.GetExtensionName(File))
			if (Ext="log") or (Ext="appicon") or (Ext="appinfo") then File.Delete
		next
		CleanupLogs Folder
	next
end sub

while True
	Cleanup(Temp)
	Cleanup(Storage)
	CleanupLogs "D:\"
	WScript.Sleep 250000
wend

Раньше я был страстным фанатом CCleaner; но потом оказалось, это это говно активно шпионит и сотрудничает с антивирусными компаниями (!); снёс нахуй и забыл. Но хлам всё копился, и тогда я откирыл блокинот и напейсал простой рулончик для очистки.

Это было моё последнее слово, можете расстреливать.

cmepmop cmepmop, (Updated )

Комментарии (131, +131)