home *** CD-ROM | disk | FTP | other *** search
/ ftp.tcs3.com / ftp.tcs3.com.tar / ftp.tcs3.com / DRIVERS / Audio / Office2010 / InfoPath.en-us / InfLR.cab / FL_ConvertBetweenHiraganaandKatakanaCharac_142641_ENU____.3643236F_FC70_11D3_A536_0090278A1BB8 < prev    next >
Extensible Markup Language  |  2008-09-17  |  1KB  |  40 lines
  1. ∩╗┐<?xml version="1.0" encoding="UTF-8"?>
  2. <CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  3.   <CodeSnippet Format="1.0.0">
  4.     <Header>
  5.       <Title>Convert between Hiragana and Katakana Characters (Japanese Only)</Title>
  6.       <Author>Microsoft Corporation</Author>
  7.       <Description>Converts between Hiragana and Katakana characters in a String.</Description>
  8.       <Shortcut>typeHiragana</Shortcut>
  9.     </Header>
  10.     <Snippet>
  11.       <Imports>
  12.         <Import>
  13.           <Namespace>Microsoft.VisualBasic</Namespace>
  14.         </Import>
  15.       </Imports>
  16.       <Declarations>
  17.         <Literal>
  18.           <ID>Katakana</ID>
  19.           <Type />
  20.           <ToolTip>Replace with Katakana String.</ToolTip>
  21.           <Default>"Katakana String"</Default>
  22.           <Function />
  23.         </Literal>
  24.         <Literal>
  25.           <ID>Hiragana</ID>
  26.           <Type />
  27.           <ToolTip>Replace with Hiragana String.</ToolTip>
  28.           <Default>"Hiragana String"</Default>
  29.           <Function />
  30.         </Literal>
  31.       </Declarations>
  32.       <Code Language="VB" Kind="method body"><![CDATA[' Convert Katakana to Hiragana (Japanese Only).
  33. Dim hString As String = StrConv($Katakana$, _
  34.     VbStrConv.Hiragana)
  35. ' Convert Hiragana to Katakana (Japanese Only).
  36. Dim kString As String = StrConv($Hiragana$, _
  37.     VbStrConv.Katakana)]]></Code>
  38.     </Snippet>
  39.   </CodeSnippet>
  40. </CodeSnippets>