²Å¦X±ø¥ó, §R°£¦h¦æ

yc1031

¦U¦ì¦n

§Ú·Q½Ð±Ð¦U¦ì§R°£¦h¦æªºVBA¸Ó«ç»ò¼g¤~¦n
§R°£ªº³W®æ¬O¥u­n¦b lang "Traditional Chinese" ¤W¤èªº, ¦Ü¼Æ¦rÄæ, ³£¬O­n§R°£ªº, ¨Ò¦p¤U¤è3ºØ½d¦C, ²Ä¤@­Ó½d¦C¬O ¦@¦³3¦æ, 1, ¼Æ¦r 2, ­^¤å´y­z 3. lang "Traditional Chinese"
§Ú¦³¥ý§ä¨ìºô¸ô¦³¤Hªº±Ð¾Ç, ¦ý³£¬O¥H§R°£³æ¦æ¬°¥D, ¤£¾å±o§Ú³o¼Ëªº³W«h¬O§_¥i¥H¼gªº¥X¨Ó?

description                               
        1 item_generation_cannot_change_prefixes                       
        1                       
                # "Prefixes Cannot Be Changed"               
        lang "Traditional Chinese"                       
        1                       
                # "¡¾ «eºóµLªk³QÅܧó"               
        lang "Thai"                       
        1                       
                # "ไม่สามารถเปลี่ยน Prefix ได้"               
        lang "Russian"                       
        1                       
                # "ÈDÈfÈZÈjÈ^È`ÈgÈq ÈcÈZÈaÈrÈ]Èu È^È]ÈbÈZÈcÈ^ÈhÈr"               


---------------------------------------------
description               
        1 local_display_socketed_gems_have_mana_reservation_+%       
        2       
                1|# "Socketed Gems have %1%%% increased Mana Reservation"
                #|-1 "Socketed Gems have %1%%% reduced Mana Reservation" negate 1
        lang "Traditional Chinese"       
        2       
                1|# "¦¹ª««~¤WªºÄ_¥Û¼W¥[ %1%%% Å]¤O«O¯d"
                #|-1 "¦¹ª««~¤WªºÄ_¥Û´î¤Ö %1%%% Å]¤O«O¯d" negate 1
        lang "Thai"       
        2       
                1|# "เจ็มที่ใส่มีการสำรองมานาเพิ่มขึ้น %1%%%"
                #|-1 "เจ็มที่ใส่มีการสำรองมานาลดลง %1%%%" negate 1
        lang "Russian"       
        2       
                1|# "ÈEÈUÈ]ÈbÈZÈoÈZÈcÈcÈqÈZ È`ÈUÈbÈcÈ^ È^ÈbÈZÈtÈh %1%%% ÈiÈWÈZÈaÈ^ÈmÈZÈcÈ^ÈZ ÈdÈVÈpÈZÈbÈU ÈiÈYÈZÈfÈ\ÈUÈcÈcÈdÈ_ ÈbÈUÈcÈq"
                #|-1 "ÈEÈUÈ]ÈbÈZÈoÈZÈcÈcÈqÈZ È`ÈUÈbÈcÈ^ È^ÈbÈZÈtÈh %1%%% ÈiÈbÈZÈcÈrÈnÈZÈcÈ^ÈZ ÈdÈVÈpÈZÈbÈU ÈiÈYÈZÈfÈ\ÈUÈcÈcÈdÈ_ ÈbÈUÈcÈq" negate 1

-----------------------------------------------------------------------------------------------
description               
        1 local_physical_damage_+%       
        3       
            #|-100 "No Physical Damage"       
            1|# "%1%%% increased Physical Damage"       
            -99|-1 "%1%%% reduced Physical Damage" negate 1       
        lang "Traditional Chinese"

Hsieh

¦^´_ 1# yc1031 ¨S¦³§Þ¥©ªº¤èªk

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary") '«Ø¥ß©Ó±µ®e¾¹
   
3. Open "stat_descriptions.txt" For Input As #1 '¶}±Ò¤å¦rÀÉ
   
4. Do While Not EOF(1)
   
5.    i = i + 1
   
6.    Input #1, mystr '±N¤å¦rŪ¤JÅܼÆ
   
7.    d.Add i, mystr '±N¤å¦r¼g¤J®e¾¹
   
8.    If mystr = "lang ""Traditional Chinese""" Then
   
9.    j = i
   
10.      Do Until IsNumeric(d(j)) '§PÂ_¬O§_¬°¼Æ­È
    
11.      d.Remove j '²¾°£
    
12.      j = j - 1
    
13.      Loop
    
14.    End If
    
15. Loop
    
16. d.Remove j
    
17. Close #1
    
18. Sheets(2).[A1].Resize(d.Count, 1) = Application.Transpose(d.items) '¼g¤J¤u§@ªí
    
19. End Sub

½Æ»s¥N½X

yc1031

¦^´_ 2# Hsieh


   ±z¦n, ¤Q¤À·PÁ±zªº¦^ÂÐ!

§Ú­è¦³¸Õ°µ, ¦ýÂà´«¹L¨Ó,  ³£Åܦ¨¶Ã½X?
¤¤¶¡°»¿ù®É, ´N°±¯d¦b"d.Remove j" ³o¤@¦æ

¥i§_½Ð±z¦A¬Ý¬Ý? ÁÂÁ¡C

­ã´£³¡ªL

´£¨Ñ¦b¤u§@ªíª½±µ¤è¦¡¡]¤å¦r½Ð¤â°Ê¶K¤J¡^¡G
Sub TEST20150903_2()
Dim Arr, Brr, R&, C&, i&, j%, TM, TT$, T, N&
TM = Timer
With ActiveSheet.UsedRange
¡@¡@Arr = .Value:  Brr = .Columns(1)
¡@¡@R = UBound(Arr, 1): C = UBound(Arr, 2)
End With

TT = "lang ""Traditional Chinese"""
For i = R To 1 Step -1
¡@¡@For j = 1 To C
¡@¡@¡@¡@If InStr("_" & Arr(i, j), TT) > 1 Then T = 1: Exit For
¡@¡@Next
¡@¡@If T = 0 Then Brr(i, 1) = i Else Brr(i, 1) = "": N = N + 1
¡@¡@For j = 1 To C
¡@¡@¡@¡@If IsNumeric(Arr(i, j) & "") Then T = 0: Exit For
¡@¡@Next j
Next
[K1].Resize(UBound(Brr)) = Brr
[A:K].Sort Key1:=[K1], Order1:=xlAscending, Header:=xlNo
Rows(R - N + 1 & ":" & R + 1).Clear
[K:K].Clear

MsgBox "§¹¦¨¡D¦@§R°£ " & N & " ¦æ¡D¯Ó®É " & Timer - TM & " ¬í"
End Sub
¡@
³o¬O²Ä¤GºØ¤èªk¡A½d¨ÒÀɦ³²Ä¤@ºØ¤èªk¡A³t«×ºC¤F³\¦h¡G
Xl0000085.rar (261.43 KB)

¤U¸ü¦¸¼Æ: 8

2015-9-3 12:18

¡@

Hsieh

¦^´_ 3# yc1031
ª½±µ¥ÎEXCEL¶}±Ò¤å¦rÀÉ´N¤£·|¶Ã½X

1. Sub ex1()
   
2. Dim A As Range
   
3. fs = "D:\test\stat_descriptions.txt" '¤å¦rÀÉ
   
4. With Workbooks.Open(fs) '¥HEXCEL¶}±Ò¤å¦rÀÉ
   
5. Application.ScreenUpdating = False
   
6.    With .Sheets(1)
   
7.    Set A = .UsedRange.Find("lang ""Traditional Chinese""", lookat:=xlWhole) '´M§ä¦r¦ê
   
8.    Do Until A Is Nothing 'ª½¨ì§ä¤£¨ì¦r¦ê
   
9.       r = A.Row
   
10.       Do Until IsNumeric(.Cells(r, 2)) And .Cells(r, 2) <> "" '©¹¤W§ä¼Æ­È
    
11.         .Rows(r).Delete '§R°£¦C
    
12.         r = r - 1
    
13.       Loop
    
14.       .Rows(r).Delete
    
15.    Set A = .UsedRange.Find("lang ""Traditional Chinese""", lookat:=xlWhole)
    
16.    Loop
    
17.    End With
    
18. End With
    
19. Application.ScreenUpdating = True
    
20. End Su

½Æ»s¥N½X

yc1031

¦^´_ 4# ­ã´£³¡ªL


¯uªº«ÜÁÂÁÂ, Á٧ˤF¤GºØ¤èªkµ¹§Ú!

¤@ª½·í¦ù¤âµP«Ü¤£¦n·N«ä, §Ú·|§V¤O¬ÝÀ´±z´£¨Ñªºvba,  ¦A¦¸ÁÂÁÂ!

yc1031

¦^´_ 5# Hsieh



­è¸Õ¤F, ¬O¦¨¥\ªº! ·PÁ·PÁÂ

·Q¦A½Ð°Ý¤@¤U, ¶K¦^txt«á,  µo²{¨C­Ó¥y¤l«á­±³£¦³¨ÇªÅ®æ, ³o­Ó¦³¿ìªk¸Ñ¨M¶Ü?

­ã´£³¡ªL

²Ä¤TºØ¤è¦¡¡A§R°£«á¿é¥X¤@¤å¦rÀÉ¡]unicode®æ¦¡¡^¡G

1. Sub TEST20150903_3()
   
2. Dim Arr, Brr, Crr, R&, C&, i&, j%, TM, TT$, T, N&
   
3. Dim S, ST, uFile, TestObj, TxtFile
   
4. TM = Timer
   
5. Arr = Range([A1], ActiveSheet.UsedRange).Value
   
6. R = UBound(Arr, 1): C = UBound(Arr, 2)
   
7. ¡@
   
8. ReDim Brr(1 To R, 1)
   
9. TT = "lang ""Traditional Chinese"""
   
10. For i = R To 1 Step -1
    
11. ¡@¡@ST = ""
    
12. ¡@¡@For j = C To 1 Step -1
    
13. ¡@¡@¡@¡@S = Arr(i, j)
    
14. ¡@¡@¡@¡@If ST <> "" And S = "" Then S = Chr(9)
    
15. ¡@¡@¡@¡@ST = S & ST
    
16. ¡@¡@Next
    
17. ¡@¡@If InStr("_" & ST, TT) > 1 Then T = 1
    
18. ¡@¡@If T = 0 Then N = N + 1: Brr(N, 0) = i: Brr(N, 1) = ST
    
19. ¡@¡@If IsNumeric(ST) Then T = 0
    
20. Next i
    
21. ¡@
    
22. With Sheets("µ²ªGªí")¡@'¦¹¬q¥Î¨ÓÀˬd¡A¥i¥H§R¥h
    
23. ¡@¡@.[A:B].Clear
    
24. ¡@¡@.[A1:B1].Resize(N) = Brr
    
25. ¡@¡@.[A:B].Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlNo
    
26. ¡@¡@Application.Goto .[A1]
    
27. End With
    
28. ¡@
    
29. uFile = ThisWorkbook.Path & "\VVV.TXT"
    
30. If Dir(uFile) <> "" Then Kill uFile
    
31. Set TestObj = CreateObject("Scripting.FileSystemObject")
    
32. Set TxtFile = TestObj.OpenTextFile(uFile, 8, True, -1)
    
33. For i = N To 1 Step -1
    
34. ¡@¡@TxtFile.WriteLine Brr(i, 1)
    
35. Next i
    
36. TxtFile.Close
    
37. ¡@
    
38. MsgBox "§¹¦¨¡D¦@§R°£ " & R - N & " ¦æ¡D¯Ó®É " & Timer - TM & " ¬í"
    
39. End Sub

½Æ»s¥N½X

Xl0000085v02.rar (267.16 KB)

¤U¸ü¦¸¼Æ: 5

2015-9-4 12:03

¡@

yc1031

¦^´_ 8# ­ã´£³¡ªL


    Xl0000085v02.rar (579.23 KB)

¤U¸ü¦¸¼Æ: 3

2015-12-17 08:53

±z¦n, ·Q¾Ç²ß¤@¤U, °²¦p§Ú¤]·Q§â¥H¤Ulang thai and lang Russian ³£§R±¼, §Ú¥u·Q¯d¤¤¤å½Ķªº³¡¤À, §Y¬O¬õ¦rªº³¡¤À³£¬O­n§R°£ªº
¨ºVBA¸Ó«ç»ò§ï©O?  ·PÁÂ!

description                       
        1 item_generation_cannot_change_prefixes               
        1               
                # "Prefixes Cannot Be Changed"
        lang "Traditional Chinese"               
        1               
                # "¡¾ «eºóµLªk³QÅܧó"       
        lang "Thai"               
        1               
                # "ไม่สามารถเปลี่ยน Prefix ได้"       
        lang "Russian"               
        1               
                # "ÈDÈfÈZÈjÈ^È`ÈgÈq ÈcÈZÈaÈrÈ]Èu È^È]ÈbÈZÈcÈ^ÈhÈr"