VB.NET質問ｽﾚ (Part8) - 暇つぶし2ch

VB.NET質問ｽﾚ (Part8) at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

100:デフォルトの名無しさん
 04/12/14 16:50:07
VB.NETってOpenFileDialogを使ってファイルを開くとき、文字コード指定ってできないんだっけ？

101:100
 04/12/14 16:51:55
ﾐｽ・・・ 
 
文字コード指定を自分で選択できる？メモ帳みたいに

102:デフォルトの名無しさん
 04/12/14 17:00:34
>99 
num.ToString("##-###-##") 
こんなのは？

103:90
 04/12/14 18:13:31
>>102 
フル桁入力されれば大丈夫なのですが、1234だけの入力だと-12-34と右詰になってしまいます。 
これを12-34-と左詰で返すような書式の設定の仕方を探しています。

104:デフォルトの名無しさん
 04/12/14 18:18:26
正規表現で|あたりを使ってやったら？

105:デフォルトの名無しさん
 04/12/14 18:23:20
整形済み文字列をTextBox自身が扱わないなら、整形は呼出側が処理すべきだよ。 
 
 
書式指定文字列からstring.Formatの引数の配列を無理矢理作ってしまって整形させるコード。 
 
Imports System.Text.RegularExpressions 'コードの先頭で宣言 
 
Private Function DoFormat(ByVal txt As string, ByVal fmt As string) As String 
　 Dim i As Integer, match As Match, txts As New ArrayList(), digit As Integer = 0 
　 Dim matches As MatchCollection = Regex.Matches(fmt, "{\d+,-?(?<len>\d+)(:.|)}") 
　 For i = 0 To matches.Count - 1 
　 　 If txt.Length < digit Then 
　 　 　 txts.Add("") 
　 　 Else 
　 　 　 Dim length As Integer = Integer.Parse(matches(i).Groups("len").Value) 
　 　 　 If txt.length < (digit + length) Or i = matches.Count - 1 Then 
　 　 　 　 txts.Add(txt.Substring(digit)) 
　 　 　 Else 
　 　 　 　 txts.Add(txt.Substring(digit, length)) 
　 　 　 End If 
　 　 　 digit += length 
　 　 End If 
　 Next 
　 Return string.Format(fmt, txts.ToArray()) 
End Function

次ページ