पावर क्वेरी और वीबीए के साथ एक्सेल सेल में स्वचालित रूप से भाषा का पता लगाएं

स्वचालित रूप से भाषा का पता लगाने के लिए पावर क्वेरी

चरण 1:अपनी निःशुल्क एपीआई कुंजी प्राप्त करें

• डिटेक्टलैंग्वेज.कॉम पर जाएं
• साइन अप करें (निःशुल्क) और डैशबोर्ड से अपनी एपीआई कुंजी कॉपी करें।

चरण 2:अपनी डेटा तालिका तैयार करें

• डेटा श्रेणी का चयन करें।
• सम्मिलित करें पर जाएं टैब>> तालिका चुनें .
• जांचेंमेरी तालिका में हेडर हैं .
• ठीक क्लिक करें .

• अपनी तालिका का नाम बदलें:
  • टेबल डिज़ाइन पर जाएं टैब>> तालिका का नाम चुनें>> भाषा_सूची डालें .

चरण 3:भाषा का पता लगाने के लिए पावर क्वेरी का उपयोग करना

• अपनी तालिका में किसी भी सेल का चयन करें।
• डेटा पर जाएं टैब>>तालिका/श्रेणी सेचुनें .

• घर पर जाएं टैब>>नया स्रोत चुनें>> अन्य स्रोत चुनें>> रिक्त क्वेरी चुनें .
• इसे ऑटो डिटेक्ट लैंग्वेज नाम दें .

• घर पर जाएं टैब>> उन्नत संपादक चुनें .
• निम्नलिखित कोड को कॉपी और पेस्ट करें।
• हो गया क्लिक करें .

let
 APIKey = "YOUR_API_KEY", // <-- Replace this
 Source = Excel.CurrentWorkbook(){[Name="Language_List"]}[Content],
 AddJson = Table.AddColumn(Source, "JsonBody", each 
 Text.ToBinary("q=" & Uri.EscapeDataString([Text]))
 ),
 AddResponse = Table.AddColumn(AddJson, "Response", each 
 Json.Document(
 Web.Contents("https://ws.detectlanguage.com/0.2/detect", [
 Headers = [
 #"Authorization" = "Bearer " & APIKey,
 #"Content-Type" = "application/x-www-form-urlencoded"
 ],
 Content = [JsonBody]
 ])
 )
 ),
 ExtractLang = Table.AddColumn(AddResponse, "Language", each try [Response][data][detections]{0}[language] otherwise "error"),
 Final = Table.SelectColumns(ExtractLang, {"ID", "Text", "Language"})
in
 Final

• बदलें “YOUR_API_KEY” अपनी वास्तविक कुंजी के साथ।

• बंद करें और लोड करें पर क्लिक करें . आपको एक भाषा दिखाई देगी पता लगाए गए भाषा कोड (एन, एफआर, आदि) वाला कॉलम।

स्वचालित रूप से भाषा का पता लगाने के लिए VBA का उपयोग करना

• डेवलपर पर जाएं टैब>> विजुअल बेसिक चुनें .

• से सम्मिलित करें >> मॉड्यूल चुनें .
• निम्नलिखित VBA कोड को कॉपी-पेस्ट करें।

Function Detect_Language(text As String) As String
 On Error GoTo handleErr
 Dim http As Object
 Dim url As String
 Dim response As String
 Dim apiKey As String
 apiKey = "YOUR_API_KEY" ' <-- Replace with your API key! url = "https://ws.detectlanguage.com/0.2/detect?q=" & URLEncode(text) Set http = CreateObject("MSXML2.XMLHTTP") With http .Open "GET", url, False .setRequestHeader "Authorization", "Bearer " & apiKey .send response = .responseText End With ' Parse JSON result for "language" code Dim startPos As Integer Dim endPos As Integer startPos = InStr(response, """language"":""") + Len("""language"":""") If startPos > Len("""language"":""") Then
 endPos = InStr(startPos, response, """")
 Detect_Language = Mid(response, startPos, endPos - startPos)
 Else
 Detect_Language = "unknown"
 End If
 Exit Function
handleErr:
 Detect_Language = "ERROR: " & Err.Description
End Function
' Helper for URL encoding (supports most basic Unicode)
Function URLEncode(str As String) As String
 Dim i As Long
 Dim ch As String
 Dim encoded As String
 For i = 1 To Len(str)
 ch = Mid(str, i, 1)
 Select Case AscW(ch)
 Case 48 To 57, 65 To 90, 97 To 122 ' 0-9, A-Z, a-z
 encoded = encoded & ch
 Case Else
 encoded = encoded & "%" & Hex(AscW(ch))
 End Select
 Next i
 URLEncode = encoded
End Function

• सहेजें कोड और एक्सेल शीट पर वापस जाएं।
• सेल C2 का चयन करें और निम्नलिखित UDF फ़ंक्शन डालें।

बोनस:Excel में DETECTLANGUAGE फ़ंक्शन का उपयोग करना (केवल Microsoft 365 और वेब)

• एक सेल का चयन करें और निम्नलिखित सूत्र डालें।

• वेब के लिए एक्सेल (एक्सेल ऑनलाइन).
• Microsoft 365 (कुछ डेस्कटॉप बनाते हैं, लेकिन सभी उपयोगकर्ता नहीं)।
• उपलब्ध नहीं Excel 2019, Excel 2016, या इससे पहले के स्थायी लाइसेंस संस्करणों में।

निष्कर्ष