{"id":9102,"date":"2010-07-03T09:59:00","date_gmt":"2010-07-03T09:59:00","guid":{"rendered":"http:\/\/melotopia.net\/b\/?p=9102"},"modified":"2010-07-03T09:59:00","modified_gmt":"2010-07-03T09:59:00","slug":"%ec%99%84%ec%84%b1-%ed%81%b4%eb%a6%ad-%ec%88%98-%ec%84%b8%eb%8a%94-%ed%94%84%eb%a1%9c%ea%b7%b8%eb%9e%a8","status":"publish","type":"post","link":"http:\/\/melotopia.net\/b\/?p=9102","title":{"rendered":"\uc644\uc131 – \ud074\ub9ad \uc218 \uc138\ub294 \ud504\ub85c\uadf8\ub7a8"},"content":{"rendered":"
\n

\n \uc774\uac8c \uc5b4\uca4c\ub2e4 \uc774\ub807\uac8c \ub41c\uac74\uc9c0\ub294 \ubaa8\ub974\uaca0\uc9c0\ub9cc \uc774\ubc88\uc5d0\ub3c4 \uc790\uc138\ud55c \uc124\uba85\uc740 \uc0dd\ub7b5\ud55c\ub2e4. \uc544\ubb34\ud2bc, \uc6d0\ud558\ub294\ub300\ub85c \ud504\ub85c\uadf8\ub7a8\uc744 \ub9cc\ub4e4\uc5c8\ub2e4. \uc774\uac83\uc73c\ub85c \ub808\uc774\uc800 \ud55c\ubc88 \uc3e0 \ub54c\ub9c8\ub2e4 \uba87\ubc88 \uc408\ub294\uc9c0 \uae30\ub85d\ud574 \uc8fc\ub294 \ud504\ub85c\uadf8\ub7a8\uc744 \uc791\ub3d9\uc2dc\ud0ac \uc0ac\ub78c 1\uba85\uc744 “\uc808\uc57d”\ud560 \uc218 \uc788\uac8c \ub418\uc5c8\ub2e4. \ub0a0\ub9bc\uc73c\ub85c \ub9cc\ub4e0 \ucf54\ub4dc\uc774\uba70 \ub9e4\uc6b0 \uc26c\uc6b0\ubbc0\ub85c \uc18c\uc2a4\ucf54\ub4dc \ubd84\uc11d\uc740 \uac01\uc790 \ud574\ubcf4\uae30 \ubc14\ub780\ub2e4. \uc774\ub7f0 \ud504\ub85c\uadf8\ub7a8\uc744 \ub2e4\ub978\ub370\uc11c \uc4f8 \uc0ac\ub78c\uc774 \uc788\uc744\uc9c0\ub294 \ubaa8\ub974\uaca0\uc9c0\ub9cc \ub9cc\uc57d \uc0ac\uc6a9\ud558\uace0 \uc2f6\ub2e4\uba74, \uac1c\uc778\uc801\uc778 \uc6a9\ub3c4\ub85c\ub294 \ub9c8\uc74c\uaecf \uc368\ub3c4 \ub418\uc9c0\ub9cc \uc5b4\ub518\uac00\uc5d0 \uacf5\ud45c\ud560 \ub54c\uc5d0\ub294 snowall\uc758 \uba85\uc2dc\uc801 \ud5c8\ub77d\uc744 \ubc1b\uace0 \uc0ac\uc6a9\ud558\uae38 \ubc14\ub780\ub2e4. (\uc800\uc791\uad8c\ub8cc\ub97c \ub530\ub85c \uccad\uad6c\ud558\uc9c0\ub294 \uc54a\uc744 \uac83\uc774\ub2e4.)
\n \n<\/p>\n

\n
\n Public Class frmMain
\n
\n Private c As Integer = 0
\n
\n Private today As Integer = 0
\n
\n Private beginning As Integer = 0
\n
\n Private autoflag As Boolean = False
\n
\n Private diaflag As Boolean = False
\n
\n Private remoteFlag As Boolean = False
\n
\n Private filenumber As Integer = 0
\n
\n Private file As String()<\/p>\n

Public Property intcount() As Integer
\n
\n Get
\n
\n Return c
\n
\n End Get
\n
\n Set(ByVal value As Integer)<\/p>\n

If value < 0 Then\n
\n c = 0
\n
\n Else
\n
\n c = value
\n
\n End If
\n
\n counting()
\n
\n End Set
\n
\n End Property<\/p>\n

Private Sub counting()
\n
\n txtCount.Text = intcount.ToString
\n
\n txtPresent.Text = (intcount – 1).ToString
\n
\n ‘txtToday.Text = today.ToString
\n
\n System.IO.File.WriteAllText(My.Application.Info.DirectoryPath & “\\APRICounter.txt”, txtCount.Text)
\n
\n End Sub<\/p>\n

Private Sub up()
\n
\n intcount += 1
\n
\n txtToday.Text = CInt(txtToday.Text) + 1
\n
\n End Sub<\/p>\n

Private Sub down()
\n
\n intcount -= 1
\n
\n txtToday.Text = CInt(txtToday.Text) – 1
\n
\n End Sub<\/p>\n

Private Sub reset()
\n
\n intcount = 0
\n
\n beginning = intcount
\n
\n txtToday.Text = 0
\n
\n End Sub<\/p>\n

Private Sub setting()
\n
\n Try
\n
\n intcount = CInt(txtSetCount.Text)
\n
\n beginning = intcount
\n
\n txtToday.Text = 0
\n
\n Catch
\n
\n End Try
\n
\n End Sub<\/p>\n

\n Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
\n
\n reset()
\n
\n End Sub<\/p>\n

Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
\n
\n up()
\n
\n End Sub<\/p>\n

Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
\n
\n down()
\n
\n End Sub<\/p>\n

Private Sub btnSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSet.Click
\n
\n setting()
\n
\n End Sub<\/p>\n

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
\n
\n Try
\n
\n intcount = System.IO.File.ReadAllText(My.Application.Info.DirectoryPath & “\\APRICounter.txt”)
\n
\n beginning = intcount
\n
\n txtToday.Text = “0”
\n
\n Catch
\n
\n intcount = 0
\n
\n End Try
\n
\n txtDate.Text = System.DateTime.Today
\n
\n End Sub<\/p>\n

Private Sub btnFontSize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFontSize.Click
\n
\n Dim fnt As Font
\n
\n fnt = New Font(System.Drawing.FontFamily.GenericSansSerif, CInt(txtFontSize.Text))
\n
\n txtCount.Font = fnt
\n
\n End Sub<\/p>\n

Private Sub btnAuto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAuto.Click
\n
\n If diaflag Or remoteFlag Then
\n
\n If autoflag Then
\n
\n btnAuto.Text = “Auto” & vbCr & “count”
\n
\n Else
\n
\n btnAuto.Text = “Stop” & vbCr & “count”
\n
\n End If<\/p>\n

autoflag = Not (autoflag)
\n
\n Timer1.Enabled = autoflag
\n
\n Exit Sub
\n
\n End If<\/p>\n

If Not diaflag Then
\n
\n MsgBox(“First, Select auditing folder!”)
\n
\n Exit Sub
\n
\n End If<\/p>\n

If Not remoteFlag Then
\n
\n MsgBox(“First, Select auditing file!”)
\n
\n Exit Sub
\n
\n End If
\n
\n End Sub<\/p>\n

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
\n
\n If diaflag Then<\/p>\n

If filenumber <> System.IO.Directory.GetFiles(diaFolder.SelectedPath).Length Then
\n
\n file = System.IO.Directory.GetFiles(diaFolder.SelectedPath)
\n
\n txtCount.Text = CInt(filenameWashing(file, diaFolder.SelectedPath.Length)) + 1
\n
\n Me.txtPresent.Text = CInt(filenameWashing(file, diaFolder.SelectedPath.Length))
\n
\n txtToday.Text = CInt(txtToday.Text) + 1<\/p>\n

Else
\n
\n Exit Sub
\n
\n End If
\n
\n filenumber = System.IO.Directory.GetFiles(diaFolder.SelectedPath).Length
\n
\n End If
\n
\n If remoteFlag Then
\n
\n Dim n As New System.IO.StreamReader(OpenFileDialog1.FileName)
\n
\n Dim k As String
\n
\n k = n.ReadLine
\n
\n If txtToday.Text <> k Then
\n
\n txtPresent.Text = txtCount.Text
\n
\n txtCount.Text = CInt(txtCount.Text) + 1
\n
\n txtToday.Text = k ‘CInt(txtToday.Text) + 1
\n
\n End If
\n
\n n.Close()
\n
\n n.Dispose()<\/p>\n

End If<\/p>\n

System.IO.File.WriteAllText(My.Application.Info.DirectoryPath & “\\APRICounter.txt”, txtCount.Text)
\n
\n End Sub<\/p>\n

Private Sub btnDir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDir.Click
\n
\n If diaFolder.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
\n
\n flagClean()
\n
\n diaflag = True
\n
\n End If
\n
\n End Sub<\/p>\n

Private Sub btnSetToday_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetToday.Click
\n
\n txtToday.Text = txtSetCount.Text
\n
\n End Sub<\/p>\n

Private Function filenameWashing(ByVal filename() As String, ByVal baseLength As Integer) As String
\n
\n ‘Dim f As String
\n
\n Dim files As Integer()
\n
\n ReDim files(filename.Length)
\n
\n Dim i As Integer<\/p>\n

Dim regexPattern As String = “[^0-9]”
\n
\n Dim regex As New System.Text.RegularExpressions.Regex(regexPattern)
\n
\n For i = 0 To filename.Length – 1
\n
\n files(i) = CInt(regex.Replace(filename(i).Substring(baseLength, filename(i).Length – 4 – baseLength), regexPattern, “”)) ‘CAUTION!!! This code will work WRONG
\n
\n Next
\n
\n Array.Sort(files)
\n
\n Return files(files.Length – 1)
\n
\n End Function<\/p>\n

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
\n
\n Me.Close()
\n
\n End Sub<\/p>\n

Private Sub btnRemote_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemote.Click
\n
\n If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
\n
\n flagClean()
\n
\n remoteFlag = True
\n
\n txtToday.Text = 0<\/p>\n

End If<\/p>\n

End Sub<\/p>\n

Private Sub flagClean()
\n
\n remoteFlag = False
\n
\n diaflag = False
\n
\n autoflag = False
\n
\n End Sub
\n
\n End Class<\/p>\n

\n<\/div>\n

\n
\n
\n\"\uc2e0\uace0\"
\n<\/a>\n<\/div>\n<\/div>\n<\/div>\n","protected":false},"excerpt":{"rendered":"

\uc774\uac8c \uc5b4\uca4c\ub2e4 \uc774\ub807\uac8c \ub41c\uac74\uc9c0\ub294 \ubaa8\ub974\uaca0\uc9c0\ub9cc \uc774\ubc88\uc5d0\ub3c4 \uc790\uc138\ud55c \uc124\uba85\uc740 \uc0dd\ub7b5\ud55c\ub2e4. \uc544\ubb34\ud2bc, \uc6d0\ud558\ub294\ub300\ub85c \ud504\ub85c\uadf8\ub7a8\uc744 \ub9cc\ub4e4\uc5c8\ub2e4. \uc774\uac83\uc73c\ub85c \ub808\uc774\uc800 \ud55c\ubc88 \uc3e0 \ub54c\ub9c8\ub2e4 \uba87\ubc88 \uc408\ub294\uc9c0 \uae30\ub85d\ud574 \uc8fc\ub294 \ud504\ub85c\uadf8\ub7a8\uc744 \uc791\ub3d9\uc2dc\ud0ac \uc0ac\ub78c 1\uba85\uc744 “\uc808\uc57d”\ud560 \uc218 \uc788\uac8c \ub418\uc5c8\ub2e4. \ub0a0\ub9bc\uc73c\ub85c \ub9cc\ub4e0 \ucf54\ub4dc\uc774\uba70 \ub9e4\uc6b0 \uc26c\uc6b0\ubbc0\ub85c \uc18c\uc2a4\ucf54\ub4dc \ubd84\uc11d\uc740 \uac01\uc790 \ud574\ubcf4\uae30 \ubc14\ub780\ub2e4. \uc774\ub7f0 \ud504\ub85c\uadf8\ub7a8\uc744 \ub2e4\ub978\ub370\uc11c \uc4f8 \uc0ac\ub78c\uc774 \uc788\uc744\uc9c0\ub294 \ubaa8\ub974\uaca0\uc9c0\ub9cc \ub9cc\uc57d \uc0ac\uc6a9\ud558\uace0 \uc2f6\ub2e4\uba74, \uac1c\uc778\uc801\uc778 \uc6a9\ub3c4\ub85c\ub294 \ub9c8\uc74c\uaecf \uc368\ub3c4 \ub418\uc9c0\ub9cc […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_crdt_document":"","_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[12],"tags":[],"class_list":["post-9102","post","type-post","status-publish","format-standard","hentry","category-12"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p8o6gA-2mO","jetpack-related-posts":[],"jetpack_likes_enabled":true,"_links":{"self":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts\/9102","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=9102"}],"version-history":[{"count":0,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts\/9102\/revisions"}],"wp:attachment":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=9102"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=9102"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=9102"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}